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 amigos/as. Quiero pedirle nuevamente ayuda para solucionar mi problema.
Tengo un TextBox en una HOJA Excel el cual el evento es Private Sub TextVenta_Change().
Puede que el evento no tenga que ser este pero probe con GotFocus que es el que mejor dá pero hace una repeticion cuando cambio de hoja
No he podido lograr insertar formula y formato a partir de la 1ª libre.
Adjunto libro de prueba en 3 partes una ves que no me acepta el tamaño en uno solo. Son de 60 KB cada
De verdad necesito su ayuda. Agradezco una mirada al codigo que tengo su correccion
Gracias
Editado:
Quisiera cerrar o eliminar este tema, preferiblemente eliminarlo porque el tema esta mal expuesto
Gracias