Přidej přílohu.
P.citovat
P.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Výběr z Comboboxu dle hodnoty v listu
MS Excel
Téma: Výběr z Comboboxu dle hodnoty v listu 
Zaslal/a KOB 28.1.2013 9:50
V listu jsou 2 sloupce. Název a Počet. Když vyberu z Názvu (sloupec1) položku nechci aby ji Combobox načítal pokud hodnota Počtu (sloupec 2) = 0. Pracuji v Office 2010
nasimuloval jsem malý soubor.Snad to bude stačit. KOB.
Příloha: 
11184_combobox_vyber.zip (19kB, staženo 33x)
citovat11184_combobox_vyber.zip (19kB, staženo 33x)Těch možností je několik. Já bych to klasicky načítal v cyklu přes AddItem před show formuláře. Ale jde to i takhle: definoval jsem dynamickou oblast ve spojení s KT, která je pak zdrojem pro ten combobox. Ve vlastnostech comba pak zvolíš jako zdroj onu oblast pojmenovanou "zdrojProCombo".
Příloha: 11186_zdrojprocombobox.zip (13kB, staženo 35x)
citovat11186_zdrojprocombobox.zip (13kB, staženo 35x)S tím načítáním přes smyčku by to vypadalo takhle"
Sub Spusti()
Dim i As Integer, iMxRow As Integer
iMxRow = Range("A65000").End(xlUp).Row
With UserForm1.ComboBox1
.RowSource = ""
For i = 2 To iMxRow
If Cells(i, "B") <> 0 Then
.AddItem Cells(i, "A")
End If
Next i
End With
UserForm1.Show Default
End Subcitovat
Sub Spusti()
Dim i As Integer, iMxRow As Integer
iMxRow = Range("A65000").End(xlUp).Row
With UserForm1.ComboBox1
.RowSource = ""
For i = 2 To iMxRow
If Cells(i, "B") <> 0 Then
.AddItem Cells(i, "A")
End If
Next i
End With
UserForm1.Show Default
End Subcitovat
Výběr z Comboboxu dle hodnoty v listu
S načítáním přes smyčku to jde, ale pouze pro dané dva sloupce. Ale nemůžu přijít na to,když načtu údaj ze sloupce "D" ,aby se mě načetli všechny ostatní sloupce A-G pro možnost uložení načtených dat do jiného listu samozřejmě bez řádku s hodnotou 0 ve sloupci"F".
S načítáním přes smyčku to jde, ale pouze pro dané dva sloupce. Ale nemůžu přijít na to,když načtu údaj ze sloupce "D" ,aby se mě načetli všechny ostatní sloupce A-G pro možnost uložení načtených dat do jiného listu samozřejmě bez řádku s hodnotou 0 ve sloupci"F".
Příloha: 11425_nahled_combobox.zip (32kB, staženo 32x)
citovat11425_nahled_combobox.zip (32kB, staženo 32x)Jedna z možností jak nenačítat do Comboboxu nulové hodnoty je načíst tabulku do bez "nulových" řádků na pomocný (skrytý list).
Příloha: 11437_nahled_combobox_2.zip (37kB, staženo 39x)
citovat11437_nahled_combobox_2.zip (37kB, staženo 39x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články