Listbox

Hola tengo un Userform y tengo varios listbox donde selecciono cada dato y me lo copia a una base de datos.
Pero cuando abro el userform no se me cardan los dato en este momento lo hago a través de otro botón lo que necesito es que cuando abra el userform ya me cargue la lista de datos.
Hay algún código para hacerlo gracias

1 respuesta

Respuesta
1
¿Cómo estas tomando lo datos?
Acá un ejemplo sencillo
Private Sub UserForm_Initialize()
Dim i As Integer
ListBox1.Clear
For i = 1 To 100
ListBox1.AddItem ActiveSheet.Range("A" & i)
Next
End Sub
Carga al list los datos del rango A1:A100 de la hoja activa
Como puedes ver esta en el evento Initialize del form.
Ahora si dices que mediante un botón ya lo hace, pues ya esta solucionado no tienes más que invocar el evento click del botón en cuestión desde el evento Initialize del formulario
Es decir cuando tu formulario se inicie lo "primero" que hará es llamar el evento del botón, ( como si tu le dieras el click)
Hola muchas gracias por su pronta respuesta.
Lo ultimo me gusta, pero donde pongo el argumento para que realice como si yo le diera click, en mi caso tengo el argumento en el commandbutton8_click
Haber si me entero
Tengo que poner
private sub userform_initialize()
Y luego lo que tengo en mi commandbutton8_click es así o estoy equivocado
Para llamar al evento.
Justo así:
Private Sub UserForm_Initialize()
commandbutton8_click
End Sub
Hola disculpe las mulestias, lo he puesto tal cual pero me sale un error de compilación
se esperaba: =
O tengo que poner todo el código el commandbutton8_click()
Le puse el sibolo de = pero me sale error de compilación se esperaba : expresión
Pues no ... basta con la forma en que te puse antes,
Private Sub UserForm_Initialize()
CommandButton8_Click
End Sub
Prueba paso a paso con F8 y ve en donde se te cae, no debería
Ahora bien... no se de donde estas tomando los datos.
Si continuas con problemas pon el código que tienes en el botón

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas