Pasar datos de listbox a otra hoja nueva
Dante me has sido de mucha ayuda ahora me carga el listbox mediante tu codigo.. Al presionar generar reporte quisiera que los datos que se muestran en el listbox, pasen a otra hoja llamada "Reporte" con el orden que se ve en la segunda foto. Y de mismo momento se exporte en pdf
1 Respuesta
Respuesta de Dante Amor
1
Revisa cómo estás poniendo las fechas, porque están apareciendo en la celda como textos.
Te anexo el código para pasar los datos a la hoja
Private Sub CommandButton2_Click()
'Por Dante Amor
If ListBox1.ListCount = 0 Then
MsgBox "No hay registros"
Exit Sub
End If
Set h2 = Sheets("Reporte")
h2.Rows("4:" & Rows.Count).ClearContents
n = 4
For i = 0 To ListBox1.ListCount - 1
fila = ListBox1.List(i, 5)
h2.Cells(n, "A") = h.Cells(fila, "F").Value
h2.Cells(n, "C") = h.Cells(fila, "O").Value
h2.Cells(n, "D") = h.Cells(fila, "C").Value
h2.Cells(n, "E") = h.Cells(fila, "L").Value
h2.Cells(n, "F") = h.Cells(fila, "D").Value
n = n + 1
Next
End Subsal u dos
