Pasar los datos del lisbox1 a una hoja de excel
Saludos amigos del foro
Quisiera que me alumbraran el camino con la siguiente pregunta
Tengo un formulario donde introduzco información a un Lisbox1 que tiene 4 columnas
lo que quiero es vaciar la información contenida del Lisbox1 a una hoja de excel ("CFISCAL"), que empiece en la Fila 15 Columna4. Aquí va el "CodItem", en la siguiente columna va "Descripción,... Sucesivamente
en el Lisbox1 tengo las columnas siguientes:
CodItem Descpricion Precio Total
Esta información vaciarla por columnas en la hoja
Quisiera que me alumbraran el camino con la siguiente pregunta
Tengo un formulario donde introduzco información a un Lisbox1 que tiene 4 columnas
lo que quiero es vaciar la información contenida del Lisbox1 a una hoja de excel ("CFISCAL"), que empiece en la Fila 15 Columna4. Aquí va el "CodItem", en la siguiente columna va "Descripción,... Sucesivamente
en el Lisbox1 tengo las columnas siguientes:
CodItem Descpricion Precio Total
Esta información vaciarla por columnas en la hoja
1 respuesta
Respuesta de calvuch
1
Utiliza este código:
Sub vaciar()
Dim n As Long
Dim c As Long
c = 15
For n = 0 To (ListBox1.ListCount - 1)
c = (c + 1)
Range("D" & c).Value = ListBox1.List(n, 0)
Range("E" & c).Value = ListBox1.List(n, 1)
Range("F" & c).Value = ListBox1.List(n, 2)
Range("G" & c).Value = ListBox1.List(n, 3)
DoEvents
Next
MsgBox "Terminado", vbInformation
End Sub
Ejecutalo desde la hoja CFISCAL
Sub vaciar()
Dim n As Long
Dim c As Long
c = 15
For n = 0 To (ListBox1.ListCount - 1)
c = (c + 1)
Range("D" & c).Value = ListBox1.List(n, 0)
Range("E" & c).Value = ListBox1.List(n, 1)
Range("F" & c).Value = ListBox1.List(n, 2)
Range("G" & c).Value = ListBox1.List(n, 3)
DoEvents
Next
MsgBox "Terminado", vbInformation
End Sub
Ejecutalo desde la hoja CFISCAL
