Foro Excel

Siempre me he querido introducir en el mundo fantástico del excel y espero encontrar aqui la ayudadita que siempre he necesitado, desde ya muchas gracias !

El siguiente es un ejemplo afin con mi reaalidad, un poquitico más compleja

Mi hoja queda organizada asi

A B C D E
1 1 =A1*A1
2 2 =A2*A2
3 3 =A3*A3
4
5

Necesito "buscar": Crear una macro para hallar ("buscar") un determinado valor de la columna B que contiene formulas
La he realizado normalmente pero me devuelve un valor absurdo que no corresponde
o me dice que la busqueda no corresponde

Desde ya les quedo altamente agradecido, espero poder contar con su colaboración, Gracias !

Pon un adjunto con un ejemplo de los valores que te da y lo que quieres que te de
Saludos

JM123 escribió:Pon un adjunto con un ejemplo de los valores que te da y lo que quieres que te de
Saludos

Gracias, ahi adjunto el archivo modelo para la consulta deseada[url]C:\Users\USER\Documents\RIFA MIGUEL JIMENEZ/pregunta todoexcel.xlsx[/url]

David Adolfo escribió:

JM123 escribió:Pon un adjunto con un ejemplo de los valores que te da y lo que quieres que te de
Saludos

Adjunto el archivo, gracias !

Hola David, probá esta macro:
Sub Buscar_en_D()
Dim Valor
Valor = 5443 'Aca cambiar el valor
If Not Range("D2:D30").Find(Valor, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
MsgBox "Encontrado", 64, ""
Range("D2:D30").Find(Valor, LookIn:=xlValues, LookAt:=xlWhole).Select
Else
MsgBox "No Encontrado", 64, ""
End If
End Sub

Es algo muy simple, ahora vos lo completas con tus requerimientos si te sirve.

Adrian escribió:Hola David, probá esta macro:
Sub Buscar_en_D()
Dim Valor
Valor = 5443 'Aca cambiar el valor
If Not Range("D2:D30").Find(Valor, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
MsgBox "Encontrado", 64, ""
Range("D2:D30").Find(Valor, LookIn:=xlValues, LookAt:=xlWhole).Select
Else
MsgBox "No Encontrado", 64, ""
End If
End Sub

Es algo muy simple, ahora vos lo completas con tus requerimientos si te sirve.

Perfecto !
La adecue a mi necesidad y listo ya funciones, Adrian Dios te multiplique tu generosidad, Gracias !

La estaré estudiando para verla elemental, hasta ahora ni inicio en la programación de Macros,
Gracias, gracias gracias....