Buscar y mostrar

Hola,

A lo mejor no necesitas una macro, lo que tu necesitas es precisamente lo
que hace la funciona buscarv, mira en la ayuda de esta funcion y a ver si te
es útil, si no habria que hacer la macro utilizando esta función.


Un saludo

Ana Cuesta
Microsoft España

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.
"Salvador García" wrote in message
news:

Hola a todos:

Espero puedan ayudarme.

Resulta que necesito hacer una macro que opere de la siguiente forma:

1.- Ya sea que desde un cuadro de texto o una celda, tome un valor

numérico.

2.- Con ese valor numérico busque en una hoja de excel ese número y me
muestre el contenido de la celda que se encuentra a la derecha de la celda
que contenga ese número, pero que me lo muestre en una ventana que tenga

un

boton "Aceptar" o "Cerrar"

Gracias de antemano

Salvador

Hola:

Les comento que ya resolví esto, encontré la solución en algún foro de
internet, a continuación les pongo el código, en caso de que le sea útil a
alguien

Saludos



Dim rango As String
Private Sub busca_pet_Click()
rango = "A1:A5000"
abuscar = Val(Peticion_1.Value) 'txtCodigo es el nombre del textbox
Set micodigo = Range(rango).Find(abuscar, LookIn:=xlValues,
LookAt:=xlWhole)
If micodigo Is Nothing Then
MsgBox "Petición no Encontrada, verifique"
Else
Dim Mensaje, Estilo, Título, Ayuda, Ctxt, Respuesta, MiCadena
ubica = micodigo.Address(False, False)
Range(ubica).Select
ActiveCell.Next.Activate
Mensaje = ActiveCell ' Define el mensaje.
Estilo = vbOKOnly + vbInformation ' Define los botones.
Título = "Texto de la Posición" ' Define el título.
Range("A65510").Select
Respuesta = MsgBox(Mensaje, Estilo, Título)
Me.Hide
End If
Set micodigo = Nothing
End Sub



"Salvador García" escribió en el mensaje
news:

Hola a todos:

Espero puedan ayudarme.

Resulta que necesito hacer una macro que opere de la siguiente forma:

1.- Ya sea que desde un cuadro de texto o una celda, tome un valor

numérico.

2.- Con ese valor numérico busque en una hoja de excel ese número y me
muestre el contenido de la celda que se encuentra a la derecha de la celda
que contenga ese número, pero que me lo muestre en una ventana que tenga

un

boton "Aceptar" o "Cerrar"

Gracias de antemano

Salvador