Código para cargar datos en un listbox

No se como cargar en un listbox los datos de una hoja llamada Empleados

1 respuesta

Respuesta
1

¿Dónde estas el listsbox?

Si estas en un userform seria así en el evento Initialize del userform

Range("a2").Select
Do While ActiveCell.Value <> ""
ListBox1.AddItem ActiveCell
i = ListBox1.ListCount - 1
ListBox1.List(i, 1) = ActiveCell.Offset(0, 1)
ListBox1.List(i, 2) = ActiveCell.Offset(0, 2)
ActiveCell.Offset(1, 0).Select
Loop

no olvides valorar para cerrar la pregunta

$$\begin{align}&Saludossss\end{align}$$

Hola

Gracias por tu respuesta

Desde la hoja activa funciona muy bien

Pero como le digo que me lo cargue de la hoja Z_Empleados

Seria así si el nombre de la hoja es Z_Empleados

sheets("Z_Empleados").select

Range("a2").Select
Do While ActiveCell.Value <> ""
ListBox1.AddItem ActiveCell
i = ListBox1.ListCount - 1
ListBox1.List(i, 1) = ActiveCell.Offset(0, 1)
ListBox1.List(i, 2) = ActiveCell.Offset(0, 2)
ActiveCell.Offset(1, 0).Select
Loop

No olvide valorar la pregunta si te silve para cerrar la preguta

¡Gracias!

funciona

que pases buenas fiestas

Hola de nuevo

no e sabido explicarme

Estoy en la hoja EntradaDatos donde introduzco toda la información y e de cargar datos en una lista de una hoja llamada Z_Empleados  si utilizo   sheets("Z_Empleados").select lo que me hace es llevarme a la hoja seleccionada.

yo lo que quiero sin moverme de la hoja EntradaDatos que me carge los datos de Z_Empleados

gracias por tu tiempo

Seria así

sheets("Z_Empleados").select

Range("a2").Select
Do While ActiveCell.Value <> ""
ListBox1.AddItem ActiveCell
i = ListBox1.ListCount - 1
ListBox1.List(i, 1) = ActiveCell.Offset(0, 1)
ListBox1.List(i, 2) = ActiveCell.Offset(0, 2)
ActiveCell.Offset(1, 0).Select
Loop

sheets("EntradaDatos").select

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas