Macro que indique cuando un dato no existe. Hola, tengo un problema con una macro que tome prestada del foro y ajuste un poco para que realizara lo que necesito, lo que dicha macro hace es buscar valores en la hoja de trabajo y cuando los encuentra rellen la celda, pero cuando ingresa un valor que no existe en la hoja me da un error 91 y se detiene la macro, lo que me gustaria es que en vez de salir de la macro me de un mensaje indicando que el valor no existe y continue la ejecucion de la macro, no se si esto sea posible, espero y agradezco su ayuda.
Agrego el codigo con el que estoy trabajando:
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: ")
largo1 = Len(valor)
Cells.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
' If valor Is Nothing Then MsgBox ("Numero no registrado") Else valor Activate
If valor = "" Then Exit Sub
Application.ScreenUpdating = True
celda1 = ActiveCell.Address
celda2 = 0
Do While celda2 <> celda1
inicio = InStr(ActiveCell, valor)
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Cells.FindNext(After:=ActiveCell).Activate
celda2 = ActiveCell.Address
Loop
Loop
End Sub
Espero que me puedan ayudar, gracias.!!!!
Marco
