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
Macro datos de varias celdas a una
Hola buenas.tengo una macro que uso para otra cosa pero algo similar me podria valer,trato de adaptarla pero no me va,
Como se ve en la columna L me repite los datos, en la columna N es lo que tendría que ser en L
Y claro la macro que fuese que recoga de tiron todo el rango H4,I4,J4,K4 no como esta que además no logro adaptarla:
If Range("L" & Rows.Count).End(xlUp).Offset(0, 0).Value <> Range("H4") Then Range("L" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("H4")
If Range("L" & Rows.Count).End(xlUp).Offset(0, 0).Value <> Range("H5") Then Range("L" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("H5")
y si no es mucho pedir, una macro que me ordene de mayor a menor la columna de los datos L
subo libro.
Salud2.
macro datos en una celda.xls