< návrat zpět

MS Excel

Téma: Filtr v ComboBoxu rss

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
avatar
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
avatar
třeba takhle ?? jinak nejlepší zadání je konečné řešení
Příloha: zip16963_sesit3.zip (91kB, staženo 19x)
citovat
husita(28.12.2013 22:31)#016964
avatar
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
avatar
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: zip17349_sesit3.zip (91kB, staženo 19x)
citovat
cmuch1(18.1.2014 13:25)#017352
avatar
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
avatar
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
avatar
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
avatar
Nevím proč, ale nefunguje mi to :-(citovat
cmuch(19.1.2014 10:32)#017358
avatar
Tady posílám soubor,
kde mi to jde.
Příloha: zip17358_17349_sesit3.zip (92kB, staženo 20x)
citovat
husita(19.1.2014 20:06)#017360
avatar
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)
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