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
Aumentar valor de ComboBox con for??
Hola, tengo en un formulario 102 entradas, divididas en 17 lineas de 6 columnas.
linea 1: ComboBox1, txtDesc1, txtCant1, txtPrecio1, txtDto1, txtTotal1
linea 2: ComboBox2, txtDesc2, txtCant2, txtPrecio2, txtDto2, txtTotal2
linea 3: ComboBox3, txtDesc3, etc......
estoy intentando que a la hora de enviar los datos a la hoja excel, lo haga con un for de esta forma
For lineas = 1 To 17
Cells(Rows.Count, 52 + lineas).End(xlUp).Offset(1, 0).Value = Me.ComboBox1.Text
Cells(Rows.Count, 52 + lineas).End(xlUp).Offset(1, 1).Value = Me.txtDesc1.Text
Cells(Rows.Count, 52 + lineas).End(xlUp).Offset(1, 2).Value = Me.txtCant1.Text
Cells(Rows.Count, 52 + lineas).End(xlUp).Offset(1, 3).Value = Me.txtDto1.Text
Cells(Rows.Count, 52 + lineas).End(xlUp).Offset(1, 4).Value = Me.txtPrecio1.Text
Cells(Rows.Count, 52 + lineas).End(xlUp).Offset(1, 5).Value = Me.txttotal1.Text
Next
El problema es que no se como hacer que el valor 1 de "Me.ComboBox1.Text" aumente con el for... vamos Me.ComboBox (lineas) .Text...
Podeis orientarme un poco??
gracias.