Příspěvky uživatele

Dobrý den,
mám podobný problém a prosím o pomoc:
Chci získat přehled o údajích léků, které jsou na jednotlivých listech, do listu PŘEHLED. Představuji si to tak, že na list PŘEHLED budou zapsány jednotlivé údaje makrem ze všech listů, kterých bude víc než 50.
Příkládám přílohu jako příklad. Děkuji všem za pomoc.

Tak hotovo. Vytvořil jsem formulář s listboxem, do kterého načtu obsah adresáře (zatím přednastavený na "C:\11111\kopiruj\" Dle potřeby lze změnit), vyberu cílovy soubor a do toho se mi následně zkopírují moduly. Má to ovšem jednu chybu: Pokud již v cílovém souboru existuje stejný název modulu nebo formuláře, tak se to zastaví. Asi by nebyl problém to oeštřit ...
Pokud se to bude někomu hodit, tak je to v přiloze.
Jinak díky všem, kteří byli nápomocní :-)

elninoslov:
dá se, ale jenom částečně, protože cílový soubor se bude měnit. Zdrojový soubor bude pořád: Likvidační_MSOFFICE2019.xltm
Cílový se bude měnit. Ale nešlo by to udělat tak, že by si dejme tomu, jeho název načetl z proměnné vložené ručně do textboxu? :-)

elninoslov:
Díky. Funguje to :-) Jenom technicky dotaz: nešlo by to nějak upravit tak, aby to makro nevytvářelo nový sešit a tam zkopírovalo moduly, ale aby ty moduly zkopíroval do druhého otevřeného sešitu?
Např.: z pokus.xlsm moduly zkopíroval do otevřeného sešit s názvem xxx.xlsm?

Už to vidím. problém je tady:
Set SourceModule = sourceVBProject.VBComponents("Module1").CodeModule

Ono to zkopíruje jenom ten modul, který je tady zapsaný. V tomto případě je to Modul1.

Díky za odpověď.
google není mrcha, ale všechno co najde, nemusí být funkční.
Kdyby jsem našel funkční kod, tak vás (všechny co tomu rozumí, nežádám o pomoc ve vyhledávání a poučování jak se v googlem vyhledává, ale o opravdu funkční makro, které řeší konkrétní problém.
Ale jinak díky za link, který sice odkazuje na možnou variantu, ale to mokra je nevím proč nefunkční. Tady na tomto se to zastaví:
For Each vbcompSource In wbSource.VBProject.VBComponents

Ahoj všem.
Lze provést export (a následný import do jiného sešitu) více modulů najednou?
Díky za odpověď.

Díky moc. Jak je to jednoduché, když se to umí :-))

Dííky :-)

Ahoj všem a prosím o radu:
Je možné propojit dva ComboBoxi? Mám dva ComboBoxi v jednom sešitu na dvou různých listech. Chci docílit toho, že pokud zadám hodnotu v jednom comboxu (value), tak aby se zobrazila i v druhém. Dá se nějak je propojit?
Děkuji za odpověď a návod.

Takže, našel jsem na netu tento zajímavý kód, který jsem mírně upravil a dělá to, co právě potřebuji. Možno se to bude někdy někomu hodit :

Sub dopsatzaduplicitnihodnotu()
Dim lastRow As Long
Dim matchFoundIndex As Long
Dim x As Long
lastRow = Range("A65000").End(xlUp).Row

For x = 1 To lastRow
If Cells(x, 1) <> "" Then
matchFoundIndex = WorksheetFunction.Match(Cells(x, 1), Range("A1:A" & lastRow), 0)
If x <> matchFoundIndex Then
Cells(x, 1) = Cells(x, 1) & " dopisovaná hodnota"
End If
End If
Next
End Sub

Děkuji za odpověď, ale contif neřeší to, co jsem napsal. Vzorcem se to buhužel řešit nedá a proto hledám makro. Nepotřebuji dopsat duplicitní hodnotu do dalšího sloupce, ale u duplicitní hodnoty do té samé buňky dopsat slovo např. "první".
Ale i tak děkuji ...

Ahoj všem,
řeším problém a nevím jak ho vyřešit. Ve sloupci A mám hodnoty - dejme tomu jména. Potřebuji pomoci makra najít duplicitní hodnoty a jedné z těch duplicitních hodnot přiřadit pebně dané slovo . Např. Duplicitní hodnoty v A1 Johan a v A4 taky Johan. K jedné z nich potřebuji připsat např. slovo "první" aby z toho vzniklo Johan první. Dá se to ? Díky všem za rady. :-)

elninoslov:
vaše připomínky beru jako poučení. Nic méně jsem tento "problém" vyřešil tím, že makrem připíšu do sloupce B text 341100 u požadovaných položek. Tzn. že v rozevíracím seznamu se mi zatím u položky, které vyhovuji, zobrazí s dodatkem 341100. No pa pak bych asi mohl použít ten závislý výběrový seznam na základě podmínky pro sloupec B "obsahuje text 341100". Ale to ještě nevím jak na to... Sice trošku "laické" řešení, ale taky funkční:-)
Děkuji moc za snahu všem a přeji hezký den.

mepexg:
Díky, taky by to bylo možné řešení, ale zdá se mi to poněkud kostrbaté...

Používám název uvedený ve sloupci B pro vyhledávání účetní věty. Ta účetní věta se líší v závislosti na hodnotě ve slouci A. Pokud existuje jeden název (sloupec B) pro obě hodnoty ve sloupci A, tak hledaná účetní věta je jiná. Např. Akumulátory a baterie může mít hodnotu jak 51100 tak i 341100.

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje