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 mi duda es sobre selección de rangos. ¿Para poder seleccionar un rango la hoja donde se encuentra debe estar seleccionada/activada?
Lo he intentado mientras estaba seleccionada otra hoja de esta forma:
Sheets(«Datos»).Range(«A1:A5»).Select
Pero da error, para evitarlo solo se me ocurre, seleccionar la hoja previamente:
Sheets(«Datos»).Select
Range(«A1:A5»).Select
No se si hay alguna forma de hacerlo sin seleccionar previamente la hoja, para que sea un proceso mas rápido.
¿Seria lo mismo si pongo .Select ó . Activate; cual es la diferencia entre ambas?
Por otro lado; ¿Todo lo anterior es extrepolable a otros procedimientos?, por ejemplo si quisiera poner en negrita la letra:
Sheets(«Datos»).Range(«A1:A5»).Font.Bold = True
o también debería ser:
Sheets(«Datos»).Select
Range(«A1:A5»).Font.Bold = True
Muchas gracias.