¿Cómo cargar un combobox de excel y mostrar los datos en los textbox?
Tengo un proyecto sobre calificaciones escolares donde utilicé muchos formularios de excel, pero me funciona correctamente, ahora lo armé con un solo formulario multipagina. Los formularios los reemplazo por las páginas y no tengo problema, solo con uno solo que es a la hora de guardar las notas en la hoja de calificaciones, utilizando un combobox. Es decir el combobox no me funciona en el formulario multipagina, los de más perfecto... ¿Quiero qué me ayuden en corregir el código o si debo escribir otro y cual seria?. Adjunto imagen de los dos proyectos y el código.
Private Sub ComboBox1_Change()
Dim Fila As Integer
Dim Final As Integer
If ComboBox1.Value = "" Then
Me.TextBox2 = ""
Me.TextBox3 = ""
End If
For Fila = 5 To 1000
If Hoja2.Cells(Fila, 1) = "" Then
Final = Fila - 1
Exit For
End If
Next
For Fila = 2 To Final
If ComboBox1 = Hoja2.Cells(Fila, 1) Then
Me.TextBox2 = Hoja2.Cells(Fila, 2)
Me.TextBox3 = Hoja2.Cells(Fila, 3)
Me.TextBox4 = Hoja2.Cells(Fila, 4)
Me.TextBox5 = Hoja2.Cells(Fila, 5)
Me.TextBox6 = Hoja2.Cells(Fila, 6)
Me.TextBox7 = Hoja2.Cells(Fila, 7)
Me.TextBox8 = Hoja2.Cells(Fila, 8)
Me.TextBox9 = Hoja2.Cells(Fila, 12)
Me.TextBox10 = Hoja2.Cells(Fila, 13)
Me.TextBox11 = Hoja2.Cells(Fila, 14)
Me.TextBox12 = Hoja2.Cells(Fila, 15)
Me.TextBox13 = Hoja2.Cells(Fila, 16)
Me.TextBox14 = Hoja2.Cells(Fila, 20)
Me.TextBox15 = Hoja2.Cells(Fila, 21)
Me.TextBox16 = Hoja2.Cells(Fila, 22)
Me.TextBox17 = Hoja2.Cells(Fila, 23)
Me.TextBox18 = Hoja2.Cells(Fila, 24)
Me.TextBox19 = Hoja2.Cells(Fila, 28)
Me.TextBox20 = Hoja2.Cells(Fila, 29)
Me.TextBox21 = Hoja2.Cells(Fila, 30)
Me.TextBox22 = Hoja2.Cells(Fila, 31)
Me.TextBox23 = Hoja2.Cells(Fila, 32)
Exit For
End If
Next
End Sub