Van 2 ComboBox. ComboBoxA, ComboBoxB. Azt szeretném, ha ComboBoxA = Számlák akkor ComboBoxB Rowsaurce – e az adatokat vegye az C nevű tartományból, ha ComboBoxA = Egyéb akkor ComboBoxB Rowsaurce – e az adatokat vegye a D nevű tartományból.
Private Sub Cbo_A_Change()
If Cbo_A.Value = „Számlák” Then
Cbo_B.RowSource = „C”
If Cbo_A.Value = „Egyéb” Then
Cbo_B.RowSource = „D”
End If
End If
End Sub
Az általad C-nek nevezett tartomány a C oszlopban van, a D pedig a D oszlopban, mindkettő az első sorban kezdődik.
Private Sub Cbo_A_Change()
Dim usor As Long
Select Case Cbo_A.Value
Case Is = "Számlák"
usor = Range("C" & Rows.Count).End(xlUp).Row
Cbo_B.RowSource = "Munka1!C1:C" & usor
Case Is = "Egyéb"
usor = Range("D" & Rows.Count).End(xlUp).Row
Cbo_B.RowSource = "Munka1!D1:D" & usor
End Select
End Sub
.
