Agregar listas al Combobox

[vecodis]

Buenos días, soy bastante novato en programación y tengo un problema, no consigo ver las listas en el Combobox del Formulario. 

A ver quien me puede echar una mano.

Gracias.prueba.xlsm

[Antoni]

Cambia Private Sub UserForm1_Initialize() por Private Sub UserForm_Initialize() y listo.

Si quieres prever que las listas puedan ampliarse:

Private Sub UserForm_Initialize()
With Sheets("NOTAS")
   ComboBox1.List = .Range(.Range("S1"), .Range("S1").End(xlDown)).Value
   ComboBox2.List = .Range(.Range("T1"), .Range("T1").End(xlDown)).Value
   ComboBox3.List = .Range(.Range("Q1"), .Range("Q1").End(xlDown)).Value
   ComboBox4.List = .Range(.Range("R1"), .Range("R1").End(xlDown)).Value
End With
End Sub

 

[Haplox]

@vecodis , cambia tú codigo por el siguiente y borra el del evento "Initialize"

Private Sub UserForm_Activate()
    ComboBox1.RowSource = Worksheets("NOTAS").Range("S1:S12").Address
    ComboBox2.RowSource = Worksheets("NOTAS").Range("T1:T6").Address
    ComboBox3.RowSource = Worksheets("NOTAS").Range("Q1:Q30").Address
    ComboBox4.RowSource = Worksheets("NOTAS").Range("R1:R2").Address
End Sub

Te diría que mires la diferencia entre "Initialize" y "Activate" y entre "List" y Rowsource"

[JSDJSD]

Hola vecodis, te dejo mi opción pero fíjate muy bien en lo que te sugiere tanto el Maestro Antoni, como el maestro Haplox no tiene desperdicio ninguno.

Prueba (1).xlsm

[vecodis]

Muchas gracias por vuestro tiempo y dedicación.

Sin duda,  que estudiaré vuestras sugerencias.

Saludos.

TEMA SOLUCIONADO.

[JSDJSD]

Hola vecodis, nunca olvides agradecer a quien te ayuda o intenta ayudar y en el foro la manera de agradecer es mediante el corazoncillo que hay en la parte inferior izquierda.