< návrat zpět

MS Excel

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

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
elninoslov
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: zip49254_prepojeny-vba-combobox.zip (15kB, staženo 32x)
citovat
daidar(22.12.2020 12:09)#049255
avatar
Perfektní, díky 5citovat
Merlin99(22.12.2020 20:26)#049256
Merlin99
*Pěkné, může se hodit, ukládám 5citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje