Macro que busque un valor e indique si este no existe

[rid501]

Tu código modificado para que haga lo que quieres. Busca el valor introducido en la primera columna de la hoja de cáculo y marca todas aquellas celdas cuyo valor sea coincidente. Si no lo encuentra te lo dice antes de seguir pidiendo un nuevo valor.

Código:

Sub BuscaResalta()
'
' BuscaResalta Macro
'

Dim valor As String, celda1 As String, celda2 As String
Dim inicio As String, largo1 As String, celda3 As String



celda3 = 1
Do Until celda3 = [R1]
    valor = InputBox("Ingrese Numero de Inventario: ")
    If valor = "" Then Exit Sub
    largo1 = Len(valor)
    Encontrado = "N"
    I = 1
    Do While Cells(I, 1) <> Empty
        If valor = Cells(I, 1) Then
            Encontrado = "S"
            Cells(I, 1).Interior.ColorIndex = 3
            Cells(I, 1).Interior.Pattern = xlSolid
        End If
         I = I + 1
    Loop
    If Encontrado = "N" Then
        MsgBox " El valor " & valor & " no existe"
    End If
Loop
End Sub