Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  5 6 7 8 9 10 11 12 13   další » ... 69

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.


Strana:  1 ... « předchozí  5 6 7 8 9 10 11 12 13   další » ... 69

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse