Arrojo de un valor dependiendo si encuentra texto en un rango de celdas

[JulioCesarCM]

Mostrar MsgBox si no se encuentra una valor en un rango de datos

Buenos días a todos, soy nuevo en este foro, y de antemano les agradezco por las respuestas que me pueden brinda. El problema es el siguiente.

Tengo una hoja de cáculo y busco una cadena de texto mediante la función ".Find" en el siguiente rango de celdas ("B10:B100") así:

Set A = Range("B10:B100").Find(texto) 'siendo texto mi cadena de texto a buscar

Lo que quisiera hacer en este punto es que :

Si en caso no encontró la cadena de texto en ese rango de datos:

Muestre un Msgbox diciendo que "no se encontró la cadena de texto"

Escriba en una celda de la hoja de cálculo: VALOR NO ENCONTRADO

Si en casó si encontró la cadena de texto}

Escriba en una celda de la hoja de cáculo: VALOR ENCONTRADO

Ojalá me puedan ayudar, un fuerte abrazo para todos

[joshua]

Saludos.

De la siguiente forma lo consigues:

Set A = Range("B10:B100").Find(texto)
If Not (A Is Nothing) Then
ActiveCell = "VALOR ENCONTRADO"
Else
ActiveCell = "VALOR NO ENCONTRADO"
End If[/HTML]

Atte.

joshua