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 a Todos el Equipo del Ayudaexcel
tengo una duda de como insertar un texto a una celda a travez de una macro
la unica manera que se me ocurrio fue esta:
Range("d11").Select
ActiveCell.FormulaR1C1 = "matematicas"
Pero siendo varios textos me salta muchas veces la seleccion por EJEMPLO:
celda b10= texto(matematicas)
celda b150=texto(quimica)
celda b80=texto(algebra)
esw decir me selecciona la celda b10 baja la seleccion a la celda b 150 y luego sube a la celda 80
Mi duda es que si puedo insertar el texto a la celda a traves de una macro x un commanbutton
de una manera que no me tenga q seleccionar la celda
Gracias de Antemano
Mis Cordiales Saludos