Příspěvky uživatele
< návrat zpět
elninoslov napsal/a:
Namiesto
For Each Bunka In Selection
musí byť
For Each Bunka In Q
a namiesto
Q.Resize(ArrList.Count).Value = ...
zase
Q.Offset(0, 1).Value = ...
Netuším jak to myslíš.
Selection je zdrojová oblast tedy v tomto případě sloupec A (např. řádky 3 až 7) podle toho co si označíš.
Q je cílová buňka do které se bude kopírovat, tedy počáteční buňka do které/od které se zapíší hodnoty z pole, proto resize.
Offset je k prdu.
???
GeorgeK napsal/a:
veny napsal/a:když budu mít buňku a v ní hodnotu 20 a formát třeba hodiny tak do buňky zapíšu 20 a ukáže se 20 hod.
a GeorgeK chce aby makro vzalo z této buňky její obsah tzn. "20 hod." a překopírovalo to do jiného sloupce kde bude formát Obecný ale bude vidět "20 hod." (Pravděpodobně jako text)
BINGO
Já Ti nevím, ale v původním dotazu nevidím o VBA ani zmínku.
Jedna rychlovka, vybereš (označíš) požadované buňky a klikneš na tlačítko.
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.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články