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 buenas, tengo una consulta alguien sabe algún código para crear una variable dentro de un for cambiando los nombres
seria algo asi como
col = 0
y = 10
For cell = 10 To 16
If Cells(y, 29) = True Then
col = col + 1
####criterio + col = dalomismo ## la idea es que se cree una variable llamada criterio1, criterio2, criterio3, hasta que termine el for
End If
y = y + 1
Next cell
siento fallar en algo así pero no pude hacerlo
se agradece cualquier ayuda, de antemano gracias