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
Buscador Diag&Dispatch - Filtrar ListBox en cascada - Error devuelve solución.
Hola amigos,
Estos trabajando en un Formulario que trabaje de la siguiente manera.
Un total de 3 ListBox relacionadas entre si.
El primer ListBox los servicios ofrecidos.
Dependiendo lo seleccionado en el Primer ListBox muestra las aplicaciones de este servicio.
Selecionando en el segundo ListBox la aplicación, muestra los errores de esta.
Por ultimo seleccionando el error en la tercer ListBox, muestra la solución del error en el TextBox1.
Tambien me gustaria que en el textBox2 al poner el error, aparezca la solución en el TextBox1.
Ando un poco perdido, me podriais ayudar?
Gracias!
Diag&dispatchv2.zip