Příspěvky uživatele
< návrat zpět
A to makro spouštíš odkud?
Pokud to má být Excel, tak na to je kód na konci stránky.
Asi sem blbej, ale stále nechápu co se tu řeší?
CTRL+C -> vložit jinak -> Hodnoty a formáty čísla.
Taky nevyhovuje?
Co takto?
Písmo je Webdings
Nejjednodušším řešením je, vůbec do kolekce duplicity nezapisovat. Použiješ k tomu další parametr funkce ADD a to key, který se zadává jako string (proto ta fce Cstr) viz soubor. Pokud se pokusíš do kolekce načíst dva stejné klíče dojde k chybě, proto je cyklus vložen mezi On Error ....
V editoru si zobraz okno Locals a kontroluj, jakých hodnot nabývají proměnné.
Zaměřil bych se na Rng.
O jakých číslech mluvíš? v MyArrList máš text.
Jinak MyArrList.Sort
Sheets(TiskovaSestava(i, 1)).PrintOut , Copies:=TiskovaSestava(i, 2)
Nahraď tímto:
Sheets(TiskovaSestava(i, 1)).PrintOut , Copies:=TiskovaSestava(i, 2), Preview:=True
Co tohle:
Sub Tisk()
Dim TiskovaSestava(1 To 2, 1 To 2)
Dim i As Integer
TiskovaSestava(1, 1) = Array("Titulní strana", "1. strana")
TiskovaSestava(1, 2) = 1
TiskovaSestava(2, 1) = "Kniha jízd"
TiskovaSestava(2, 2) = 5
For i = LBound(TiskovaSestava, 1) To UBound(TiskovaSestava, 1)
Sheets(TiskovaSestava(i, 1)).PrintOut , Copies:=TiskovaSestava(i, 2)
Next i
Erase TiskovaSestava
End Sub
@Milan-158
https://wall.cz/excel-navod/prizpusobeni-pasu-karet-ribbon-vlastni-pas-karet
Sakra holka, to jako vážně?!
Ani já ani Veny NEJSME AUTOREM listu HelpSheet!
To je Tvůj skrytý list ve Tvém původním souboru s Tvými vzorci. Tak se mě prosím neptej proč si použila takové vzorce jaké si použila.
Celkově je tam ten list zbytečný. A už vůbec neovlivňuje hodnoty na listu "Hlavní tabulka".
List "Hlavní tabulka NEOBSAHUJE žádné vzorce!
Lebo ked si vytvorím aj list s číslom 10 tak stále mi nedáva hodnoty do hárka2 ani keď kliknem na spustenie makra. Vždy zadá údaj s hlavnej tabulky lebo táto tabuľka slúži len na skopírovanie tejto tabuľky ktorú následne vložím do nového číselneho harka a tu si už zadavam ina údaje do zostatku
Což je blbost, viz můj koment z 9.10.2021 5:47
V souboru orig_tabulka sem upravil část kódu
With Worksheets("Hárok2") nahrazeno za
With Worksheets("Hárok2").Range("C27")
aby se nemusela přepisovat adresa buňky na několika místech v kódu při změně umístění výsledné tabulky.
simona1 napsal/a:
dakujem len som si vsimla ze do harka2 neberie udaje vzdy s posledneho harka 1-31 ale s hlavnej tabulky viete sa mi nato este raz pozriet.dakujem
Ne, to opravdu ne. Makro bere data z posledního listu, tedy listu s názvem 6.
Makro vezme poslední list v souboru, co se týče pořadí a provede kontrolu zda je název listu číslo a zda je rozsah 1 - 31. Pokud nebudou podmínky splněny zobrazí chybovou hlášku.
V Příloze je Tvůj původní soubor který má listy 1-5. Všimni si, že sem nechal zobrazený původně skrytý list HelpSheet, který je přesunut na první pozici z důvodu popsaného výše.
Makro tedy v tomto souboru pracuje s listem 5. Tuto skutečnost si můžeš ověřit zobrazením okna Immediate v editoru VBA a odstraněním apostrofu (komentáře) z řádku kódu - Debug.Print list.Name
Při každém spuštění makra se do okna Immediate zapíše název listu, se kterým se pracovalo.
simona1 napsal/a:
Je este to mozne upravit aby som nemusela zadavat cestu suboru . Dovod je to ze si ukladam zosit za kazdy mesiac podla aktualneho mesiaca a roku napr: Október 2021
???
Makro žádnou cestu k souboru nepoužívá.
Použil sem soubor, který přiložil Veny abys to měla vše pohromadě a taky pro kontrolu výsledků. Popravdě sem ani nějakou cestu k souboru nezaregistroval. Nejspíše je potřeba k PowerQuery, s kterým nejsem kamarád.
simona1 napsal/a:
Dakujem pekne prave v query este neviem pracovat ked chcem nieco upravit mozna este ak by pomohol pan elninoslov s tvorbou VBA
Nejsem sice Elnino, ale podobné téma se tu řešilo nedávno.
https://wall.cz/index.php?m=topic&id=49894
Upravil sem makro použité v předešlém vlákně, snad to bude stačit.
Zdejší web, knihy, youtube. Vlastně se dá říct - internet.
Tak máš pravdu, že SVYHLEDAT je řešením, pokud bude cena za jednotku vždy stejná.
Pokud bude pracovat s cenou rozdílnou (dražší nákup...) má další volbu.
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