Cambiar este código para que me aparezca un msbox si lo encontró..como seria..gracias por su ayuda
dim código As String
código = InputBox("Ingresa el Nro de dua..")
donde = InputBox("Ingresa el rango") 'El valor a escribir será R1:R100
Range(donde).Select Selection.Find(What:=código).Activate
hola....espero me ayudes lo que quiero es q cuando encuentre el código ingresado, en el rango q también ingrese , me salga un msbox "código encontrado"
y los datos de la misma fila q encontró me muestre los valores de la columna c , d , e, en un texbox1, texbox2,texbox3, q esta en mi formulario, si no lo encuentra q el msbox sea "código no se encuentra en la base de datos"..
gracias de antemano..espero me puedas ayudar..
1 respuesta
Respuesta de Luis Mondelo
1
Te mando el ejemplo:
Sub prueba1()
'Por Luismondelo
dato = InputBox("que dato buscamos???")
rango = InputBox("donde lo buscamos???")
Set busca = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
MsgBox "valor encontrado"
End If
End Subrecuerda finalizar la consulta
