Visual Basic para Aplicaciones - Cargar Combobox con Datos de Hoja Excel

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 28
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

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.

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 final
    If 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Cargar Combobox con Datos de Hoja Excel

Publicado por Antoni Masana (498 intervenciones) el 26/06/2019 10:29:56
Explicas lo que supuestamente estás haciendo pero no cual es el problema.

Y digo supuestamente porque una cosa es lo que queremos hacer y otra lo que le decimos al programa que haga.

Saludos.
\\//_
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
sin imagen de perfil
Val: 28
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Cargar Combobox con Datos de Hoja Excel

Publicado por Michael Elvis (16 intervenciones) el 26/06/2019 15:08:36
Buenos días, el problema que tengo es que el Combobox esta cargando desde la celda A3 y yo quiero que cargue desde la Celda A2 hasta la última celda que contenga datos (solo quiero que cargue los datos de la columna A). Por favor necesito su ayuda. Gracias.
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
Imágen de perfil de MIGUEL
Val: 424
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Cargar Combobox con Datos de Hoja Excel

Publicado por MIGUEL (121 intervenciones) el 26/06/2019 17:19:50
Buenas Michael

Así a ojo de buen cubero, el problema está en el segundo for ya que en este le indicas que empiece a buscar desde la fila 3 si tu tabla empieza con el encabezado en A1 se saltará el primer registro que es A2, solo ponle For Fila = 2 To Final y ya quedo.

Saludos
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
sin imagen de perfil
Val: 28
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Cargar Combobox con Datos de Hoja Excel

Publicado por Michael Elvis (16 intervenciones) el 26/06/2019 19:47:08
Gracias por la ayuda no me percate de eso, asunto solucionado.
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