Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
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:
Si en casó si encontró la cadena de texto}
Ojalá me puedan ayudar, un fuerte abrazo para todos