Macro para buscar texto y marcar error

[gonzalo.valle]

Estimados,

Necesito vuestra ayuda con una macro. Básicamente necesitaría una macro que busque en el rango B2:B, el texto "Completar con Documento UUID". Si lo encuentra, me devuelva un MsgBox que diga "Ingresar Documento UUID". Y si no encuentra, que termine la macro, para que luego siga con otra que ya tengo armada.

Adjunto planilla con ejemplo.

 

Muchas gracias

 

Gonzalo

Ejemplo para Macro.xlsm

[Toldeman]

Hola.

No lo tengo muy claro, pero prueba este codigo.

Sub encontrar()
Dim rng As Range
Dim ult As Long
ult = Hoja1.Range("B2:B" & Rows.Count).End(xlDown).Row
Set rng = Hoja1.Range("B2:B" & ult)
For Each cel In rng
If cel = "Completar con Documento UUID" Then MsgBox "Ingresar Documento UUID"
Next
End Sub

 

Saludos.

[JSDJSD]

Hola    gonzalo.valle   , otra opción.

Ejemplo para Macro1.xlsm