VBA, Buscar el valor de celda B2 del rango A5:A1000 y se posicione en la celda donde este el dato, (los datos en A son únicos)

Me podrían ayudar con esa macro para buscar el contenido especifico que yo vacío desde un inputbox de un formulario, la celda B2 es dinámica y la idea es buscar en ese rango A5:A1000 ese dato único, una vez que lo encuentra se posicione sobre esa celda.

Respuesta
2

Prueba la siguiente macro:

Sub BuscarDato()
  Dim f As Range
  Set f = Range("A5:A1000").Find(Range("B2").Value, , xlValues, xlWhole, , , False)
  If f Is Nothing Then
    MsgBox "Dato no existe"
  Else
    f.Select
  End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas