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
Saludos Excelistas:
Me he topado con un problema complicado
Se trata de una lista de contenido donde cada fila se corresponde con un palet de un proveedor.
Lo he diseñado como una lista de validacion concatenando los datos ya que las listas no permiten varias columnas.
El hecho es que cuando termine de introducir el dato, los "desconcatene" y coloque en sus respectivas celdas.
He pensado en el evento change y que coloque esos valores . Me podeis echar una mano con el procedimiento.
Adjunto un fichero de muestra
De antemano muchisimas gracias
Duda Lista.xls