Combobox
Hola, tengo un gran problema para mi, te comento tengo un libro de excel con dos hojas hoja1 llamada "captura" hoja 2 llamada "datos válidos", también tengo un userform el cual contiene dos combobox dependientes, el problema surge que al llenar el combobox 1 con el siguiente código:
Private Sub ComboBox1_Enter()
Sheets("DATOS VÁLIDOS").Select
Me.ComboBox1.Clear
For x = 2 To Range("a" & Rows.Count).End(xlUp).Row
If Cells(x, 1) <> Empty Then ComboBox1.AddItem Range("A" & x).Value
Next
End Sub
Lo que necesito es que efectivamente se llene el combobox1 con los datos de la hoja 2 "datos válidos" pero que no se cambie a la hoja 2 "datos válidos" si no que se quede en la hoja 1 captura.
Saludos
Private Sub ComboBox1_Enter()
Sheets("DATOS VÁLIDOS").Select
Me.ComboBox1.Clear
For x = 2 To Range("a" & Rows.Count).End(xlUp).Row
If Cells(x, 1) <> Empty Then ComboBox1.AddItem Range("A" & x).Value
Next
End Sub
Lo que necesito es que efectivamente se llene el combobox1 con los datos de la hoja 2 "datos válidos" pero que no se cambie a la hoja 2 "datos válidos" si no que se quede en la hoja 1 captura.
Saludos
2 Respuestas
Respuesta de Elsa Matilde
1
Podes resolverlo de 2 modos: ocultar el movimiento de hojas y volver a la 1 luego de cargar el combo o hacer mención a la Hoja2 en las instrucciones del For
Modelo1:
Private Sub ComboBox1_Enter()
Application.ScreenUpdating = False
Sheets("DATOS VÁLIDOS").Select
Me.ComboBox1.Clear
For x = 2 To Range("a" & Rows.Count).End(xlUp).Row
If Cells(x, 1) <> Empty Then ComboBox1.AddItem Range("A" & x).Value
Next
'vuelvo a la hoja1
Sheets("captura").select
End Sub
Modelo2:
Private Sub ComboBox1_Enter()
Me.ComboBox1.Clear
For x = 2 To Sheets("DATOS VÁLIDOS").Range("a" & Rows.Count).End(xlUp).Row
If Sheets("DATOS VÁLIDOS").Cells(x, 1) <> Empty Then ComboBox1.AddItem Sheets("DATOS VÁLIDOS").Range("A" & x).Value
Next
Modelo1:
Private Sub ComboBox1_Enter()
Application.ScreenUpdating = False
Sheets("DATOS VÁLIDOS").Select
Me.ComboBox1.Clear
For x = 2 To Range("a" & Rows.Count).End(xlUp).Row
If Cells(x, 1) <> Empty Then ComboBox1.AddItem Range("A" & x).Value
Next
'vuelvo a la hoja1
Sheets("captura").select
End Sub
Modelo2:
Private Sub ComboBox1_Enter()
Me.ComboBox1.Clear
For x = 2 To Sheets("DATOS VÁLIDOS").Range("a" & Rows.Count).End(xlUp).Row
If Sheets("DATOS VÁLIDOS").Cells(x, 1) <> Empty Then ComboBox1.AddItem Sheets("DATOS VÁLIDOS").Range("A" & x).Value
Next
Respuesta de bacter582
1
Amigo pruébalo de esta forma
Private Sub ComboBox1_Enter()
Me.ComboBox1.Clear
For x = 2 To Sheets("DATOS VÁLIDOS").Range("a" & Rows.Count).End(xlUp).Row
If Cells(x, 1) <> Empty Then ComboBox1.AddItem Sheets("DATOS VÁLIDOS").Range("A" & x).Value
Next
End Sub
Private Sub ComboBox1_Enter()
Me.ComboBox1.Clear
For x = 2 To Sheets("DATOS VÁLIDOS").Range("a" & Rows.Count).End(xlUp).Row
If Cells(x, 1) <> Empty Then ComboBox1.AddItem Sheets("DATOS VÁLIDOS").Range("A" & x).Value
Next
End Sub