MS Excel

Téma: Propojené seznamy ve formuláři (VBA)

Zaslal/a daidar 22.12.2020 10:08

Potřeboval bych, aby při výběru položky v jednom ComboBoxu se mi ve druhém objevil výběr závislý na předchozí volbě.
Děkuji
P.S. Normálně to udělám pomocí Ověření dat a Nepřímého odkazu, ale ve VBA si nevím rady. Děkuji

Zaslat odpověď >

elninoslov(22.12.2020 11:35)#049254

Pr.
Dim Seznam1()

Private Sub ComboBox1_Change()
Dim r As Long, s As Integer
s = Application.Match(ComboBox1.Value, Seznam1, 0)
r = wsSeznam.Cells(Rows.Count, s).End(xlUp).Row - 1
ComboBox2.List = wsSeznam.Cells(2, s).Resize(r).Value
ComboBox2.ListIndex = 0
End Sub

Private Sub UserForm_Initialize()
Seznam1 = Application.Transpose(wsSeznam.Range("A1:C1").Value)
ComboBox1.List = Seznam1
ComboBox1.ListIndex = 0
End Sub

Příloha: zip