Mejorar la eficiencia de la acción de exportar datos de un listbox a una hoja.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.GoTo Sheets("Historial T").Range("C" & Rows.Count).End(xlUp).Offset(1)
For r = 0 To listbox_seleccion.ListCount - 1
For c = 0 To listbox_seleccion.ColumnCount - 1
Selection.Offset(r, c).value = listbox_seleccion.List(r, c)
Next
Next
Range(Selection.Offset(r - r, -1), Selection.Offset(r - 1, -1)) = Label3.Caption
Range(Selection.Offset(r - r, -2), Selection.Offset(r - 1, -2)) = Date
end
end subHola! El objetivo de la macro lo logre hacer, pero a medida que lleno de datos el listbox inferior se hace muy lenta la macro.
Como pueden apreciar en las imágenes adjuntas, la primera es antes de hacer click en el comandbutton "seleccionar" con los datos seleccionados, y la segunda imagen es una vez realizada la macro con los datos pasados a la hoja "Historial T".
Label3. Caption es la leyenda "B 27979"
Listbox. Selection es el listbox inferior con sus 3 columnas
Si me podrían ayudar a mejorar la rapidez de la macro se los ultra agradecería!
Saludos!
1 Respuesta
Respuesta de Dante Amor
1
Revisa lo siguiente:
Sal u dos
Dante Amor
