Příspěvky uživatele

A když zkusím
Sub otevirac()
cesta = InputBox("Zadejte cestu k adresáři", "Cesta k adresáři", Default) 'cesta musí končit lomítkem

ChDir cesta
nazevtab = Dir(cesta & "*.xlsx")
While nazevtab <> ""
MsgBox nazevtab
Wend

End Sub

tak mi to zacykleně ukazuje cestu prvního souboru. potřeboval bych ať to ukáže všechny a pak makro skončí. Bohužel zrovna while wend moc neovládám :-(

Tak jsem to zkusil a píše mi to error while without wend :-(

Zdravím,
potřeboval bych makro, kde uživatel vybere nějakou složku a makro poté udělá cyklus, a z každého nalezeného souboru xlsx vykopíruje cca 10-20 buňek do cílového souboru (otevírat ty soubory?). Těch dokumentů tam bude až 150.

Jde to nějak udělat? Děkuji moc za snahu.

Zdravím,
potřebocval bych poradit. Mám makro pracující s 2 dokumenty. Najde v záhlaví tabulky číslo sloupce a zkopíruje data ze sloupce do prvního dokumentu do stejného sloupce. Vše funguje, pokud používám copy a paste. Chtěl bych však jednoduše napsat že range = range, ale nefunguje mi to. Přitom když jsem na zkoušku napsal Range(Cells(1, 1), Cells(3, 3)) = Range(Cells(4, 4), Cells(6, 6)).Value
tak makro funguje. Když ale použiji skutečné adresy co potřebuji a napíšu kód Workbooks(CIL).Worksheets(listcil).Range(Cells(spodniradekcil, i), Cells(spodniradekcil + spodniradekzdroje - 2, i)) = Workbooks(ZDROJ).Worksheets(listzdr).Range(Cells(2, sloupec), Cells(spodniradekzdroje, sloupec)).Value

tak makro nefunguje. Vážne nevím kde může být zádrhel. Už se s tím peru 2 dny.

Funguje mi to dobře.
Ještě bych ale potřeboval poradit. Jak uživateli zakázet (případně jinak to vyřešit) aby nemohl hodnotu vybranou do refeditu přepsat ručně. Protože nasává situace, kdy prvně správně vybere sloupec pomocí minitlačítka. Ale pak ručně klapne nějaký znak nebo něco do toho políčka refeditu. Tím je adresa neplatná a makro mi zhavaruje. Je nějaká rada nato?

Zatím se mi podařilo jen přes okliku
Range(RefEdit1.Value).Select
MsgBox ActiveCell.Column

Ale to není úplně nejelegantnější. Není jiné řešení?

Ale ještě si nevím rady. Potřeboval bych pro další potřeby makra číslo vybraného sloupce.

Třeba
MsgBox RefEdit1.Value
funguje skvělě a hodnota je např List1!$J$22:$L$27

Ale co kdybych potřeboval číslo sloupce (Když je větší rozsah, tak číslo prvního sloupce). Jde to nějak udělat? S RefEdit1.column si to neporadí a víc mě nenapadá.

Přesně to jsem potřeboval. Díky moc

A hanba na mě. To jsem přehlídl opravdu blbě :-)

Funguje skvěle

Ahoj,
potřeboval bych poradit. Spustím makro, a pak bych potřeboval, ať se otevře okno/formulář ve kterém uživatel zadá souřadnice buňěk s kterými se bude pracovat. V současné době tam mám textboxy do kterých souřadnice vypíše ručně, ale bylo by daleko pohodlnější, kdyby tam bylo tlačítko, tak jako u vkládání např funkcí na které kliknu a buňky vyberu jednoduše přímo v sešitu. Potvrdím a do textboxu by se vepsaly zvolené souřadnice.
Lze tento zadávací režim nějak v makru vyvolat?

Díky

Použil bych nato vzorec countifs. A to konkrétně takto:
=COUNTIFS(A2:A9;2010;B2:B9;1)

Případně kdybys chtěl, ať se pouští samo. Bez nutnosti mačkat tlačítko a makro spouštět :-)

A nebo toto. Nedává to všude pan. Ale do všech řádků u kterých je ID to hodí oslovení navolené v buňce B2.
To znamená, že můžeš přidávata ubírat řádky dle libosti a bude nadále fungovat.

Zdravím,
měl bych dotaz. Nevíte někdo jak dosáhnout toho, aby se mi aktivní list vytiskl jako koncept?
ActiveSheet.PrintOut
Funguje přesně dle představ, akorát tiskne na volbu normální a já bych v rámci úspor potřeboval tisk jako koncept (kvalita tisku). Bohužel ani na googlu ani v nápovědě funkce printout jsem nic takového nenašel :-(

Děkuju moc Poki
Učím se makra za pochodu a většinou se stačí podívat zde na forum, vyhledat podobný problém. Zkouknout jak jsi poradil (nebo někdo jiný), inspirovat se a udělat podle svého.

Díky moc zato, jak tu radíš!

Ahoj,
chtěl jsem se zeptat. Jak se dá zaheslovat vstup do VBA a úprav maker v excel 2007? Nějak to nemůžu najít :-(

Díky moc

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje