Excel - Lista despegable en Formulario

   
Vista:

Lista despegable en Formulario

Publicado por Alvaro (1 intervención) el 19/03/2013 13:12:08
Tengo creadas listas depegables mediante la opción "LISTA" de "VALIDACIÓN DE DATOS". Y me funciona correctamente en la hoja de datos. Sin embargo, si quiero introducir los datos desde un FORMULARIO en lugar desde la hoja de datos, no me aparece la lista despegable. ¿Puedo conseguir lo que quiero de alguna manera? Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Lista despegable en Formulario

Publicado por Armando Montes (240 intervenciones) el 19/03/2013 15:56:59
Tal vez algo asi:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Por ejemplo si tienes una lista en columna A, este script te pasa todos los registros de la columna A al cuadro de lista
 
Dim i As Long
For i = 1 To Application.WorksheetFunction.Count(Range("A:A"))
ComboBox1.AddItem Range("A" & i)
Next
 
Si deseas que se cargue el list cuando se cargue el formulario entonces agregas este script en el evento "Initialize " del form, quedaría así:
 
Private Sub UserForm_Initialize()
Dim i As Long
For i = 1 To Application.WorksheetFunction.Count(Range("A:A"))
ComboBox1.AddItem Range("A" & i)
Next
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar