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, estoy intentando hacer lo siguiente:
Tengo la siguiente matriz:
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
17 18 19 20
Necesito introducir en una matriz o vector lo siguiente:
v(0)=1 6 11 16 'Diagonal izquierda
v(1)=5 10 15 20
v(2)=9 14 19 13
v(3)=18 17 2 7
v(4)=12 3 8 4
v(5)=4 7 10 13 'Diagonal derecha
v(6)=8 11 14 17
v(7)=12 15 18 16
v(8)=19 20 3 6
v(9)=9 2 5 1
Estoy intentando hacer una macro. Me podéis echar un cable?
Muchas gracias a todos por las molestias