Příspěvky uživatele
< návrat zpět
To je přesně ono, moc děkuji, já bych se s tím pekloval kdoví jak dlouho. Ještě jednou díky
Ahoj všichni, potřeboval bych poradit s vymyšlením vzorce nebo makra, které by mi postupně naplnilo tabulku prehled daty z tabulky evidence.
Díky za radu
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íky
Nevím proč, ale nefunguje mi to :-(
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)
Nechci nikomu cpát své rady, ale kdyby tento problém náhodou někdo řešil a nevěděl si rady, vyřešil jsem to nakonec takto:
Private Sub UserForm_Initialize()
Dim rok, mesic As Long
'použil jsem operátor "\" pro dělení s celočíselným výsledkem
rok = DateDiff("m", od, datum) \ 12
'a operátor (funkci)Mod pro zbytek po dělení
mesic = DateDiff("m", od, datum) Mod 12
'výsledkem je v mém případě téměř přesné určení odpracovaných roků a měsíců
roku = rok
mesicu = mesic
End Sub
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
Já se do toho ponořil a už jsem to vyřešil. Díky za snahu všem.
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"
Potřeboval bych, aby to fungovalo takhle, pouze s tím rozdílem, že se budou zobrazovat pouze záznamy s příznakem "D"
Už to skoro vypadalo jako, že jo, ale ve finále mi to způsobilo trable s načítáním ostatních údajů. Já na základě toho kombíčka načítám i související údaje. Jestli máš čas, mrkni na to, prosím
děkuji
jo jo jo, díky moc
Mám ještě jeden zákeřný dotaz, je možné, aby se mi tom kombíčku zobrazovala i jména uložená ve sloupci "B"?
Pánové, jste oba úžasní a máte moje symfonie.
Kmárečku, to je přesně to, co potřebuji.
Ještě jednou děkuji a přeji pohodový víkend
Zde je pro ilustraci kód načtení záznamů do ComoBoxu Cx4
-----------------------------------------------------
Private Sub UserForm_Initialize()
Dim nacti As Worksheet
Set nacti = ThisWorkbook.Worksheets("evidence")
Cx4.RowSource = nacti.Name & "!A4:B" & nacti.Range("A3").End(xlDown).Row
UserForm4.Cx4.SetFocus
End Sub
-----------------------------------------------------
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články