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

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

 

Editado el el 2 de mayo5 años por Antoni

@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"

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

Muchas gracias por vuestro tiempo y dedicación.

Sin duda,  que estudiaré vuestras sugerencias.

Saludos.

TEMA SOLUCIONADO.

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.