Rangos desplegables en excel
hola una pregunta te comento
tengo algo asi
plaza
mexico
puebla
tlaxala
acapulco
etc
y cada uno tiene como 10 clientes aquí esta la pregunta si pongo un combo box donde se desplieguen las plazas que tengo (mexico,puebla,etc) selecciono la plaza mexico
en el combo box 2 se desplieguen solo los clientes de esa plaza
y en el combox3 los domicilios de ese cliente.
como o que me recomiendas para poder hacer esto o como interpretarlo en visual basic
saludos
1 respuesta
Revisa el siguiente archivo tiene 3 combos, dime si es lo que necesitas y si gustas lo puedo adaptar a tu archivo
https://www.dropbox.com/s/5441r9jt1jupwoa/combobox%203%20filtros.xls
Saludos. DAM
es exactamente lo que necesito
solo un detalle la verdad es que soy novato en esto como le puedo hacer para que me los jale solo de la hoja que se llama clientes para que esa hoja la pueda retroalimentar
creo que es algo asi
Sheets("cliente").Range("a")
pero como adaptarlo ójala me puedas echar la mano
este es tu código
Private Sub ComboBox1_Change()
'Pone al combo2 dependiendo del combo1
'Por.Dam
Dim col2 As New Collection
On Error Resume Next
ComboBox2.Clear
ComboBox3.Clear
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") = ComboBox1 Then
'ComboBox2.AddItem Cells(i, "B")
col2.Add Item:=Cells(i, "B").Value, Key:=CStr(Cells(i, "B").Value)
End If
Next
For j = 1 To col2.Count
Me.ComboBox2.AddItem col2(j)
Next
End Sub
Private Sub UserForm_Activate()
'Pone valores únicos combobox1
'Por.Dam
Dim col1 As New Collection
On Error Resume Next
'Llenar el combo 1 con valores únicos
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
col1.Add Item:=Cells(i, "A").Value, Key:=CStr(Cells(i, "A").Value)
Next i
For i = 1 To col1.Count
Me.ComboBox1.AddItem col1(i)
Next i
End Sub
Private Sub ComboBox2_Change()
'Pone al combo3 dependiendo del combo1 y 2
'Por.Dam
Dim col3 As New Collection
On Error Resume Next
ComboBox3.Clear
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") = ComboBox1 And Cells(i, "B") = ComboBox2 Then
col3.Add Item:=Cells(i, "C").Value, Key:=CStr(Cells(i, "C").Value)
End If
Next
For j = 1 To col3.Count
Me.ComboBox3.AddItem col3(j)
Next
End Sub
Prueba lo siguiente
Private Sub ComboBox1_Change()
'Pone al combo2 dependiendo del combo1
'Por.Dam
Dim col2 As New Collection
On Error Resume Next
ComboBox2.Clear
ComboBox3.Clear
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") = ComboBox1 Then
'ComboBox2.AddItem Cells(i, "B")
col2.Add Item:=Cells(i, "B").Value, Key:=CStr(Cells(i, "B").Value)
End If
Next
For j = 1 To col2.Count
Me.ComboBox2.AddItem col2(j)
Next
End Sub
Private Sub UserForm_Activate()
'Pone valores unicos combobox1
'Por.Dam
Sheets("clientes").Select
Dim col1 As New Collection
On Error Resume Next
'Llenar el combo 1 con valores únicos
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
col1.Add Item:=Cells(i, "A").Value, Key:=CStr(Cells(i, "A").Value)
Next i
For i = 1 To col1.Count
Me.ComboBox1.AddItem col1(i)
Next i
End Sub
Private Sub ComboBox2_Change()
'Pone al combo3 dependiendo del combo1 y 2
'Por.Dam
Dim col3 As New Collection
On Error Resume Next
ComboBox3.Clear
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") = ComboBox1 And Cells(i, "B") = ComboBox2 Then
col3.Add Item:=Cells(i, "C").Value, Key:=CStr(Cells(i, "C").Value)
End If
Next
For j = 1 To col3.Count
Me.ComboBox3.AddItem col3(j)
Next
End Sub
Saludos. DAM
Si es lo que necesitas.
excelente muchísimas gracias justo lo que necesito
mis respetos.
abusando
en mi libro tengo tengo mas o menos 10 hojas como le puedo hacer para que
sacar un reporte de todas ellas
supongamos que quiero sacar un reporte de cuanto se a pagado de teléfono en en todas las hojas de uqe forma puedo sacar un reporte
has de cuenta que llo quiero hace para que me lo de por
fecha (quiero un reporte por fecha de todas las empresas )
concepto (todo lo que se haya movido en ese rango de fecha obvio de todas las hojas
cliente seleccionamos por clientes pero de toadas hojas
solo pudieras ponerme 2 ejemplos y yo lo modifico
saludos
