Combobox relacionados con registro en una hoja de excel con VBA
Me gustaría que me ayudarada en la realización de un pequeño proyecto donde tendo que relacionar 2 combobox y registrar esos datos en una hoja de calculo de excel
espero que la imagen sea clara...
1 Respuesta
Respuesta de Dante Amor
1
Te anexo el código para hacer los combobox dependientes.
Dim h1
'
Private Sub cbovendedor_Change()
'Por. Dante Amor
cboproducto.Clear
If cbovendedor = "" Then Exit Sub
If cbovendedor.ListIndex = -1 Then Exit Sub
'
i = 5
Do While h1.Cells(i, "C") <> ""
If h1.Cells(i, "C") = cbovendedor Then
cboproducto.AddItem h1.Cells(i, "B")
End If
i = i + 1
Loop
End Sub
'
Private Sub UserForm_Activate()
Set h1 = Sheets("BaseDatos")
i = 5
Do While h1.Cells(i, "C") <> ""
Call Agregar(cbovendedor, h1.Cells(i, "C"))
i = i + 1
Loop
End Sub
'
Sub Agregar(combo As ComboBox, dato As String)
'por.DAM agrega los item únicos y en orden alfabético
For i = 0 To combo.ListCount - 1
Select Case StrComp(combo.List(i), dato, vbTextCompare)
Case 0: Exit Sub 'ya existe en el combo y ya no lo agrega
Case 1: combo.AddItem dato, i: Exit Sub 'Es menor, lo agrega antes del comparado
End Select
Next
combo.AddItem dato 'Es mayor lo agrega al final
End Sub
Te anexo tu archivo con el funcionamiento de los combos
https://www.dropbox.com/s/3w77j7yli8fxdzy/control%20general%20de%20prensa%20dam.xlsm?dl=0
Crea otra pregunta y revisamos lo de pasar los datos a la hoja. Me dices qué datos y en qué hoja quieres poner los datos.
.
.
