Excel: Macro con la funcion de edicion/buscar

[David]

Iniciado por angel21

peor cuando pongo es texto no sale :(

No entendí lo que quisiste decir. El uso de Nothing sería:

Código:

Private Sub TextBox1_Change()
Dim n As Range

Set n = Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

If n Is Nothing Then
    'No hay coincidencias
Else
    'Hay coincidencias
End If
End Sub

Y como te dije, si no quieres usar MsgBox puedes usar un Label que se muestre cuando no hay coincidencias y de lo contrario se oculte.