• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Filtr v ComboBoxu

Zaslal/a husita 27.12.2013 23:37

ahoj všichni,
potřeboval bych poradit jakým způsobem pomocí makra vyfiltrovat načítané záznamy z tabulky do ComboBoxu v UserForm. Ve sloupci A mám čísla záznamů ve formátu 2013_12-001-R, t.j. rok, měsíc, pořadové číslo a příznak
Do ComboBoxu bych potřeboval načítat pouze ty, které mají příznak "D"
Děkuji

Zaslat odpověď >

---

Strana:  « předchozí  1 2

husita(28.12.2013 16:09)#016960

To si nemyslím, je to trochu složitější než to vypadá. Jsou tam tři stupně úprav vybraného záznamu, tudíž se vždy ta data načtou a posléze někam uloží. Potřebuji pouze vyfiltrovat záznamy s příznakem "D"citovat

kmarecek(28.12.2013 22:11)#016963

třeba takhle ?? jinak nejlepší zadání je konečné řešení

Příloha: 16963_sesit3.zip (91kB, staženo 18x)

citovat

husita(28.12.2013 22:31)#016964

Já se do toho ponořil a už jsem to vyřešil. Díky za snahu všem.citovat

husita(18.1.2014 10:08)#017349

Ahoj všichni, měl bych ještě jeden malý, ale zákeřný dotaz. Potřeboval bych poradit jak vytvořit podmínku v cyklu, aby mi při nenalezení žádného záznamu s příznakem "D" vyskočil msgbox. Jedná se o filtr v comboxu
Díky

Příloha: 17349_sesit3.zip (91kB, staženo 18x)

citovat

cmuch1(18.1.2014 13:25)#017352

Poupravil jsem inicializaci frm

Private Sub UserForm_Initialize()

'filtr načítání pouze neregistrovaných úrazů
Dim Vj As Worksheet
Dim VystupOK As Boolean

Set Vj = Sheets("evidence")
VystupOK = False

Dim Vstup
Dim Vystup
Dim test As String
Dim r As Long
r = 4
Do Until Sheets("evidence").Cells(r, 1) = ""

Vstup = Sheets("evidence").Cells(r, 1)
Vystup = InStr(12, Vstup, "D")
If Vystup = "13" Then

VystupOK = True

UserForm4.Cx4.AddItem Sheets("evidence").Cells(r, 1)

'zobrazení druhého sloupce v Cx4 - NENAČÍTÁ DATA! :-(
'& " -- " & Sheets("evidence").Cells(r, 2)

End If
r = r + 1
Loop

If Not VystupOK Then
MsgBox " V EVIDENCI NENÍ ŽÁDNÝ ÚRAZ K EDITACI ", vbOKOnly + vbExclamation, " UPOZORNĚNÍ"
Unload UserForm4
End
End If

End Subcitovat

husita(18.1.2014 16:10)#017353

Cmuchu, tys hotový eskamotér, díky, funguje to báječně a mám ještě jeden dotaz, je možné, aby se mi v comboboxu zobrazovaly záznamy dvou sloupců, ale zároveň, aby byla zachována funkčnost načítání vybraných záznamů?
chtěl jsem to vyřešit takhle, což mi sice načte dva sloupce, ale nenačte už ten zbytek dat :-(
UserForm4.Cx4.AddItem Sheets("evidence").Cells(r, 1)
'& " -- " & Sheets("evidence").Cells(r, 2)citovat

cmuch1(18.1.2014 18:02)#017355

Nahraď smyčku tímto

Cx4.ColumnCount = 2 'nastaveni poctu sloupcu

Do Until Sheets("evidence").Cells(r, 1) = ""

Vstup = Sheets("evidence").Cells(r, 1)
Vystup = InStr(12, Vstup, "D")
If Vystup = "13" Then

Cx4.AddItem Sheets("evidence").Cells(r, 1)
Cx4.Column(Cx4.ColumnCount - 1, Cx4.ListCount - 1) = Sheets("evidence").Cells(r, 2)
End If
r = r + 1
Loopcitovat

husita(18.1.2014 23:04)#017357

Nevím proč, ale nefunguje mi to :-(citovat

cmuch(19.1.2014 10:32)#017358

Tady posílám soubor,
kde mi to jde.

Příloha: 17358_17349_sesit3.zip (92kB, staženo 19x)

citovat

husita(19.1.2014 20:06)#017360

Já su totiž úplná lama, ještě nad ránem jsem to rozchodil. Mám to totiž jako samostatné makro a nějak mi ušlo, že mi tam chyběl odkaz na formulář kam správně to combo patří. Mockrát děkuji za ochotu a Tvůj bezpochyby velmi drahocený čes a vyřešení mého problému. Díkycitovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse