Userform Filtro.
Hola a todos.
Espero estén bien. Les comento en que necesito ayuda, en dos cosas similares.
Tengo un archivo con una base de datos de todas nuestras sucursales y adjunto a estas el nombre del responsable de cada sucursal.
Son 8 personas a cargo de un total 200 sucursales aprox.
Tengo un Userform en este mismo archivo en donde tengo un ComboBox para seleccionar una sucursal, y me entrega todos los datos de esta. (Código sistema, dirección, mail, fono, jefe, Responsable).
1.- Pero lo que quiero hacer es crear otro ComboBox en donde escogan a un responsable y más abajo, ya sea un listbox, Marco, o textbox... Aparezcan los nombres de todas sus sucursales a cargo.
2.- Lo otro es en base a lo mismo, pero tener 3 combobox.
En el primer ComboBox escogeré al responsable.
En el segundo me aparecerán solamente las sucursales de este responsable, de las cual escogeré una.
En el tercer ComboBox me mostrara solo los bancos donde esta sucursal, que yo escogí, deposita.
¿Creo qué esto ultimo se llama Filtro Avanzado?
Aun no aprendo a utilizar esto.
Todo esto lo hago en Userform.
Desde ya agradezco sus ayudas, ya que llevo bastante tiempo cabezeandome como se hace y aun no logro aprender, me rendí y decidí molestarlos.
Saludos y de antemano gracias.
Espero estén bien. Les comento en que necesito ayuda, en dos cosas similares.
Tengo un archivo con una base de datos de todas nuestras sucursales y adjunto a estas el nombre del responsable de cada sucursal.
Son 8 personas a cargo de un total 200 sucursales aprox.
Tengo un Userform en este mismo archivo en donde tengo un ComboBox para seleccionar una sucursal, y me entrega todos los datos de esta. (Código sistema, dirección, mail, fono, jefe, Responsable).
1.- Pero lo que quiero hacer es crear otro ComboBox en donde escogan a un responsable y más abajo, ya sea un listbox, Marco, o textbox... Aparezcan los nombres de todas sus sucursales a cargo.
2.- Lo otro es en base a lo mismo, pero tener 3 combobox.
En el primer ComboBox escogeré al responsable.
En el segundo me aparecerán solamente las sucursales de este responsable, de las cual escogeré una.
En el tercer ComboBox me mostrara solo los bancos donde esta sucursal, que yo escogí, deposita.
¿Creo qué esto ultimo se llama Filtro Avanzado?
Aun no aprendo a utilizar esto.
Todo esto lo hago en Userform.
Desde ya agradezco sus ayudas, ya que llevo bastante tiempo cabezeandome como se hace y aun no logro aprender, me rendí y decidí molestarlos.
Saludos y de antemano gracias.
1 Respuesta
Respuesta de sandra155
1
Acabo de enviar el correo.
Gracias.
Gracias.
Ya lo recibí ya entiendo tu pregunta apenas tenga la respuesta te devuelvo el correo
Ya te envíe el archivo modificado
Oka.
Ahora estoy en casa eso si.
¿Me podrías mandar el archivo a mi correo personal? Por favor.
Estoy ansioso por verlo.
[email protected]
Ahora estoy en casa eso si.
¿Me podrías mandar el archivo a mi correo personal? Por favor.
Estoy ansioso por verlo.
[email protected]
Hola.
Estuve revisando el archivo para entenderlo, y me quedo super claro como cargar los ComboBox.
Que seria con este código:
Private Sub UserForm_Initialize()
Sheets("Base").Select
Call llenarcombo(ComboBox2, "a")
Call llenarcombo(ComboBox1, "c")
Call llenarcombo(ComboBox3, "d")
End Sub
Pero me quedaron dudas con respecto a otros codigos, no entiendo que hacen.
Por ejemplo este que esta en el ComboBox2...
Private Sub ComboBox2_Change()
Dim inc As Integer
Dim fila As Integer
inc = 1
Sheets("Base").Select
Range("a" & inc).Activate
Do While (ActiveCell.Cells.Text <> "")
If ComboBox2.Text = "" Then
Exit Do
End If
inc = inc + 1
Range("a" & inc).Activate
If (ActiveCell.Cells.Text = ComboBox2.Text) Then
fila = inc
Range("b" & inc).Activate
TextBox15.Text = ActiveCell.Cells.Text
Else
End If
Loop
If fila = 0 Then
Exit Sub
End If
End Sub
Y en un Modulo tengo este otro codigo:
Public Sub llenarcombo(combo As ComboBox, rango1 As String)
Dim inci As Integer
inci = 1
Sheets("Base").Select
Range(rango1 & inci).Activate
Do While (ActiveCell.Cells.Text <> "")
inci = inci + 1
Range(rango1 & inci).Activate
If (ActiveCell.Cells.Text <> "") Then
combo.AddItem (ActiveCell.Cells.Text)
Else
Exit Do
End If
Loop
End Sub
Espero me puedas explicar un poco la función de estos códigos.
De antemano gracias por tu ayuda.
Estuve revisando el archivo para entenderlo, y me quedo super claro como cargar los ComboBox.
Que seria con este código:
Private Sub UserForm_Initialize()
Sheets("Base").Select
Call llenarcombo(ComboBox2, "a")
Call llenarcombo(ComboBox1, "c")
Call llenarcombo(ComboBox3, "d")
End Sub
Pero me quedaron dudas con respecto a otros codigos, no entiendo que hacen.
Por ejemplo este que esta en el ComboBox2...
Private Sub ComboBox2_Change()
Dim inc As Integer
Dim fila As Integer
inc = 1
Sheets("Base").Select
Range("a" & inc).Activate
Do While (ActiveCell.Cells.Text <> "")
If ComboBox2.Text = "" Then
Exit Do
End If
inc = inc + 1
Range("a" & inc).Activate
If (ActiveCell.Cells.Text = ComboBox2.Text) Then
fila = inc
Range("b" & inc).Activate
TextBox15.Text = ActiveCell.Cells.Text
Else
End If
Loop
If fila = 0 Then
Exit Sub
End If
End Sub
Y en un Modulo tengo este otro codigo:
Public Sub llenarcombo(combo As ComboBox, rango1 As String)
Dim inci As Integer
inci = 1
Sheets("Base").Select
Range(rango1 & inci).Activate
Do While (ActiveCell.Cells.Text <> "")
inci = inci + 1
Range(rango1 & inci).Activate
If (ActiveCell.Cells.Text <> "") Then
combo.AddItem (ActiveCell.Cells.Text)
Else
Exit Do
End If
Loop
End Sub
Espero me puedas explicar un poco la función de estos códigos.
De antemano gracias por tu ayuda.
Esas funciones lo que ue hacen es ahorrar todo el trabajo que tenias, la primera toma el valor del combobox y le asaigna el de la columna que le digas al combobox siguiente y la segunda asigna desde la base los valores a tu primer combobox
