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
-----------------------------------------------------
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
Laboroval jsem s datovými typy a zjistil jsem, že mu, nevím proč, vadí český formát data t.j. 1.1.1900. Změnil jsem ho na 01/01/1900 a to zafungovalo. Takže ještě jednou díky za Tvou podporu a Tvůj čas
Tak jsem to vyzkoušel a nefunguje mi to, už mi došly nápady, kde ještě by mohla být chyba :-(
s tím pojmenováním prvků formuláře máš asi pravdu, mám to pojmenováno podle oddílů a položky v něm, aby se mi snadněji pracovalo s uložením a načítáním dat z a do formuláře. Mě totiž vyděsilo, že mi to v excelu 2007 počítalo naprosto bez problémů a pak jsem naistaloval 2013 a přestalo to fungovat. V každém případě ještě jednou děkuji. Až přijdu odpoledne domů, vyzkouším to na těch 2013
Ten formulář vypadá následovně. Dopsal jsem tam část tvého kódu
DateDiff("m", [a1], [a2]) - DateDiff("YYYY", [a1], [a2]) * 12
na 2013 jsem to ještě nezkoušel, uvidím odpoledne. zatím děkuji za ochotu.
Apropo proč se mi nenačítají objekty z knihovny MSCOMCTL.OCX do toolboxu asi nevíš, viď?
Ahoj všichni,
mám jeden vlastně dva zákeřné dotazy
1. Vytvořil jsem si formulář v němž se mi načítal rozdíl dvou dat vložených do textboxů a ten rozdíl se rozdělil na roky a měsíce.
viz níže
---------------------------------------
Dim rok, mesic As Variant
rok = DateDiff("yyyy", datum1, datum2)
mesic = DateDiff("m", datum1, datum2)
textbox.rok = rok
textbox.mesic = mesic - (rok * 12)
----------------------------------------
Vše báječně fungovalo v excelu 2007, teď mám excel 2013 a nefunguje. zkoušel jsem i excel 2010 a taky nic. Nemáte někdo tušení kde je problém?
2. Mám Windows 8 64bit a nezobrazují se mi v excelu knihovny MSCOMCTL.OCX ani MSCOMCT2.OCX. Zaregistrovat se mi je podařilo, ale do excelu se nenačtou.
Prosím o radu a předem děkuji
ahoj všichni, nedaří se mi nainstalovat mscomct2.ocx do office2010, poraďte kde dělám chybu, nebo je nějaký jiný způsob jak dostat kalendář do comboboxu?
už jsem to rozchodil, taková hovadina :-)
v kódu bylo velké písmeno ve slově Muž a v tabulce malé.
Díky Já
Když tam byla pouze ta dvě jména fungovalo to skvěle.
Jakmile jsem naplnil tabulku dalšími jmény a vybral pomocí combo boxu některé jméno, hned se mi nastavílo v OB žena a tak už to zůstalo :-(
Je to jak píše Pavlus, nicméně oběma neobyčejně děkuji za Váš čas a řešení. Teď je to naprosto líbící.
Ještě jednou oběma moc děkuji .
pro ilustraci přikládám soubor
Ahoj všichni guruové excelu, mám jeden zákeřný dotaz. Je možné změnit hodnotu v option button z TRUE na FALSE na základě údaje v buňce tabulky pomocí VBA? Mám UserForm na evidenci pracovních úrazů, do kterého pomocí ComboBoxu načítám údaje z tabulky příjmení, jméno,.... a mimo jiné taky pohlaví. V UF mám dva OptionButtony "Muž" a "Žena" a potřeboval bych, aby se mi při výskytu pohlaví muž zaškrtlo v UF tačítko "Muž" a naopak. Děkuji všem, kdož vyslyší mé prosebné volání o pomoc :-)
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.