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
Hola a todos:
Quiero dar las gracias a este foro porque pude resolver muchas de mis dudas con respecto a macros.
Mi duda es la siguiente y no la he encontrado o no la he entendido de forma correcta:
Tengo una macro "sonar" que me reproduce un sonido cuando una celda "C5" tiene la palabra "Error", y funciona correctamente con el siguiente codigo.
"Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Range("C5") = "Error" Then sonar
End With
End Sub"
Pero necesito hacerlo no solo en la celda "C5" sino en un rango de celdas por ejemplo de "C5:H5".
Gracias por la ayuda