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
tengo un formulario en excel con tres CheckBox, me gustaría que al seleccionar,
ejemplo: 1.- si CheckBox1 esta seleccionado, en celda "q9" me coloque "si" y si no esta seleccionado,"no"
2.- si CheckBox2 esta seleccionado, en celda "r9" me coloque "si" y si no esta seleccionado,"no"
3.- si CheckBox3 esta seleccionado, en celda "s9" me coloque "si" y si no esta seleccionado,"no"
espero puedan ayudarme con esta consulta, soy novato.:02.47-tranquillity:
de antemano mil gracias por el apoyo.