Cargar Combobox con Datos de Hoja Excel
Publicado por Michael Elvis (16 intervenciones) el 26/06/2019 00:02:56
Buenas tardes con todos, por favor necesito ayuda.
Tengo un Combobox y quiero cargar los datos de la columna A2 hasta la última celda que contenga datos, con la programación que hice me esta jalando los datos a partir de la celda A3. A continuación les dejo la programación de mi Combobox.
Por favor espero me ayuden de antemano muchas gracias.
Tengo un Combobox y quiero cargar los datos de la columna A2 hasta la última celda que contenga datos, con la programación que hice me esta jalando los datos a partir de la celda A3. A continuación les dejo la programación de mi Combobox.
Por favor espero me ayuden de antemano muchas gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub ComboBox1_Change()
Dim Fila As Long
Dim final As Long
'Si borramos los datos del combobox se borran los datos de los textbox
If ComboBox1.Text = "" Then
Me.txt_ap = ""
Me.txt_fecnac = ""
End If
For Fila = 2 To 1000 'Determinar el final del listado
If Hoja1.Cells(Fila, 1) = "" Then
final = Fila - 1
Exit For
End If
Next
For Fila = 3 To finalIf ComboBox1.Text = Hoja1.Cells(Fila, 1) Then
Me.txt_ap = Hoja1.Cells(Fila, 2)
Me.txt_fecnac = Hoja1.Cells(Fila, 3)
Me.cbb_sexo = Hoja1.Cells(Fila, 4)
Me.txt_edad = Hoja1.Cells(Fila, 5)
Exit For
End If
Next
End Sub
Valora esta pregunta
0
