Ayuda con macro que busca datos
Publicado por Diego (1 intervención) el 01/04/2017 04:29:44
Buenas tardes, estoy empezando a estudiar programación en visual basic y tengo el siguiente problema:
Estoy creando una macro que busque el valor que le diga en el rango que le diga, funciona cuando busco texto, sin embargo no sirve cuando busco números, quisiera saber si me pueden decir cual es el error en mi código, muchas gracias:
Estoy creando una macro que busque el valor que le diga en el rango que le diga, funciona cuando busco texto, sin embargo no sirve cuando busco números, quisiera saber si me pueden decir cual es el error en mi código, muchas gracias:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub macro()
Dim a As Variant
Dim b As String
Dim c As String
Dim d As Range
a = InputBox("introduzca el valor buscado", "busca valores")
b = InputBox("1ra celda del rango", "1ra celda")
c = InputBox("2da celda del rango", "2da celda")
For Each d In Range(b, c)
If d = a ThenMsgBox "Valor encontrado en:" & d.Address, , "encontrado!"
End If
Next
End Sub
Valora esta pregunta
0
