Příspěvky uživatele

Začať by ste mal predovšetkým odpovedaním na otázky a priložením prílohy.
Všeobecný návrh makra od brucha, nemám dáta, spustil som to iba raz...
Sub Kopiruj_bez_duplicit()
Dim Col As New Collection
Dim Z(), C()
Dim x As Integer, y As Long, r As Long, s As Integer

With wsZdroj
If IsEmpty(.UsedRange) Then MsgBox "Žiadne data na liste " & wsZdroj.Name, vbExclamation: Exit Sub
Z = .UsedRange.Value
End With

s = UBound(Z, 2)
ReDim C(1 To UBound(Z, 1), 1 To s)

On Error Resume Next
For y = 1 To UBound(Z, 1)
Col.Add True, CStr(Z(y, 1))
If Err.Number = 0 Then
r = r + 1
For x = 1 To s
C(r, x) = Z(y, x)
Next x
Else
Err.Clear
End If
Next y
On Error GoTo 0

With wsCiel
.UsedRange.Clear
.Cells(1, 1).Resize(r, s).Value = C
End With
End Sub

Generované dáta? To by šlo asi aj pomocou PowerQuery - bez makra. Záleží na tom, čo sa bude diať potom s List2. Každopádne to sa zle robí bez prílohy.
Takže sa asi jedná o tabuľku a nie Tabuľku.
Takže dáta asi nie sú filtrované (inak treba zisťovať koniec dát, pri filtrovaných sa použije Find, pri nefiltrovaných End(xlUp)).
Takže tam nie sú vzorce.

List2 je vždy prázdny - ten treba vždy v makre premazať. Veď ako by to fungovalo, pri opätovnom spustení makra (trebarz aj nechcene).
"tak aby nebyly duplikované, jako je to v listu1" - teda v List1 sú v stĺpci A duplicity. A ktorý z riadkov sa má kopírovať? Prvý? Posledný? Agregovať (aký typ, min, max, súčet, počet, priemer ???)? Spojiť hodnoty do jednej bunky (zreťaziť ako text)?

A opäť - PRÍKLADOVÁ PRÍLOHA ?

PS: Ak sú tie generované dáta, do List1 importované napr. z nejakého súboru xls, xlsx (vyexportovaného odniekiaľ), tak cez PowerQuery netreba vôbec dáta na List1. Len cestu k súboru.

Isteže pomôže. Keď to pochopí. Takže ide o toto?

-V List1 sú zdrojové dáta o neurčenej šírke (počet stĺpcov) a neurčenej výške (počet riadkov).
-Tieto dáta sa budú kopírovať pod posledný zaplnený riadok v List2 (teda nie prepisovať predchádzajúce dáta v List2, alebo áno???).
-Každý riadok z List1 skopírovať iba vtedy, ak sa jeho hodnota v stĺpci A už nenachádza niekde v stĺpci A v List2. Takže v List2 v stĺpci A sú jedinečné hodnoty.

-Rozloženie stĺpcov v List1 a List2 sedí/nesedí?
-Kopírovať aj farbu, orámovanie a pod, alebo iba hodnoty do predformátovaných stĺpcov (číslo, mena, dátum,...)?
-Jedná sa o tabuľky alebo Tabuľky?
-Hodnoty v niektorom z listov sú filtrované?
-Bunky v List1 obsahujú vzorce? Ak áno, tak vzorce majú byť aj v List2, alebo tam sa majú nakopírovať iba hodnoty? Ak vzorce, majú mať vzťah k adekvátnym odkazovaných zdrojom v List2 podľa List1, alebo pôvodné odkazy na bunky v List1?
...

A ešte príloha. Zmenšená, anonymizovaná, so zachovaním formátov, vzorcov, rozloženia, kde je niečo vyplnené, nech je vyplnené. Pár príkladových dát.

Tie kódy mi prídu ako nezmysel. Najmä posledný. Veď tam testujete či sa Target.Address="$A$1" a následne ak áno, tak či sa rovná "$A$2". Ako sa môže rovnať obom hodnotám??? Ďalej to vyzerá ako výsek z nejakého iného makra, keďže tam chýbajú ukončenia If - teda End If.

To Makro1, Makro2 vyzerá ako? Čo majú robiť? To isté, len s nejakým iným parametrom? Treba jedno parametrizované makro.

Či sa zmení hodnota na 1,2,3,4,5 sa má kontrolovať v jednej bunke? Vo viacerých? V ktorých A1:A5? Zmena v nich môže nastať naraz? Vykonať všetky makrá podľa všetkých zmien vo všetkých bunkách?

Čo myslíte tým (v 2. makre), že keď pridáte ďalšiu hodnotu nič sa nestane???
Case 1: Macro1
Case 2: Macro2
Toto nič nevykoná???

V 1. makre meníte Target - práve zmenenú bunku, ktorej spracovanie ešte neskončilo. Možno preto padá Excel. To nerobte.

Popíšte to podstatne lepšie.

Uveďte príklad (prílohu na GoogleDrive, DropBox, Uložto, ... alebo založte tému, tam pôjde vkladať príloha), neviem čo myslíte. Áno v tom vzorci v J49 je odkaz na O42, v ktorej nič nie je. Vy chcete do iného súboru vzorcom načítať ten čas, čo je súčasťou textu v J49?

If Then Else EndIf sú úplne zbytočné. Môžete to skrátiť
With ws
ListZamcen = .ProtectContents or .ProtectDrawingObjects or .ProtectScenarios
End With
Ale chválim, že niekto hľadá riešenie na svoj problém aj svojpomocne, a následne ho aj zverejní. To sa nestáva.

No a keby to bola takáto trieda, vadilo by malé preblikávanie?

=SUMPRODUCT((COUNTIF(OFFSET(A2:A15;;;ROW(A2:A15)-1);A2:A15)=1)*C2:C15)
=SOUČIN.SKALÁRNÍ((COUNTIF(POSUN(A2:A15;;;ŘÁDEK(A2:A15)-1);A2:A15)=1)*C2:C15)

Nezrozumiteľné. Nájsť cez VLOOKUP s parametrom TRUE správne rozmedzie nie je problém. Čo má spoločné tá spodná "akože tabuľka" s príkladovymi dátami? Iné roky, iné tony, iné rozdelenie (23t nespadá do rovnakej kategórie ako 25t a 26t). Uveďte normálny súbor Excelu, kde máte príkladové dáta, a presne aký má vzniknúť výsledok z tých konkrétnych dát. Teda nie raz také roky, potom iné, nesediace zaradenie ton objednávok do ton cenníkových kategórií, raz oddeľovač "," potom ";", záhadná pomlčka za 23t ... A chýba cena pod 20t.

@lubo: čas som nameral na rovnakej vzorke súborov 229 s (00:03:49). Vedel by ste ako identifikovať súbory, pri ktorých niekde nastane chyba prevodu na číslo?

@jaks.dalibor: Skutočne potrebujete načítať až toľko súborov? Nemôžete ich trochu eliminovať, napr. dátumom?

Ako pretransformovať funkciu na dotaz a naopak ...
No to je ťažké Vám vysvetliť, keď neviete, čo je funkcia. Funkcia sa používa na vrátenie nejakého výsledku (ale nemusí to tak byť vždy). Opakovane, na väčší počet zmien parametrov. A to je to. Do funkcie (väčšinou) vstupuje nejaký parameter, ktorý sa mení, funkcia vyráta čo má, a vráti adekvátny výsledok. V tomto prípade ako parameter funkcie je súbor, a funkcia vráti jeho hodnoty. Teda nemôžete spustiť funkciu bez parametru. To je presný opak dotazu (teraz vynecháme úvahy o inom druhu parametrov vstupujúcich aj do dotazu napr. v tomto príklade Cesta z pomocnej Tabuľky, nazvime ich radšej premenné), do ktorého nevstupujú parametre ako do funkcie. Teda Vy keď chcete urobiť nejakú funkciu na načítanie údajov zo súborov, urobíte si najskôr normálny dotaz, kde si do premennej dáte pevnú cestu k jednému súboru, nastavíte potrebné kroky, ktoré vidíte čo robia. Keď je to funkčné, zmeníte dotaz na funkciu, stačí napísať na začiatok dotazu
(NázovParametru as TypParametru) =>
a nahradiť ten predtým pevne stanovený skúšobný súbor tým parametrom. A máte z dotazu funkciu z ktorej dostanete výsledok ak ju zavoláte
NázovFunkcie(NázovParametru)
Ale funkciu už nemôžete krokovať - ona je krok v obslužnom dotaze. Takže, ak ju chcete upraviť a krokovať, tak si vytvorte prázdny dotaz, vložte tam kód funkcie, odstráňte
(NázovParametru as TypParametru) =>
a zmeňte ten variabilný NázovParametru na pevný súbor. Lenže tu sa treba zamyslieť nad tým typom parametru. V tomto prípade do funkcie vstupuje parameter typu Binary teda Content - obsah súboru, nie iba názov súboru. Takže ten parameter NázovParametru vymeníte za niečo čo urobí obsah (Content) toho súboru teda
File.Contents("E:\Download\test2\PRE_9-A _02_024_22A221011.TXT")

Je to proste ťažké vysvetliť, keď nepoznáte rozdiel medzi dotazom a funkciou či procedúrou a funkciou, a ako v nich pracujú parametre/premenné.

Ak je dotaz ako funkcia, nedá sa krokovať a pozrieť medzivýsledky alebo ladiť. Ja to robím tak, že si ladím na normálnom dotaze, a ten po overení funkčnosti s pevným parametrom prevediem na funkciu. Takže ak si chcete pozrieť ako táto funkcia pracuje so súborom, prerobte si ju opäť na dotaz s pevným parametrom:
let
Soubor = File.Contents("E:\Download\test2\PRE_9-A _02_024_34A221014.TXT"),
Zdroj = Csv.Document(Soubor,2,{2,23},null,1250),
#"Nahradená hodnota" = Table.ReplaceValue(Zdroj," "," ",Replacer.ReplaceText,{"Column2"}),
#"Rozdeliť stĺpec podľa oddeľovača" = Table.SplitColumn(#"Nahradená hodnota", "Column2", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Teplota nastavená", "T_Eff", "Teplota", "Vlhkost", "Vlhkost nastavená", "Door"}),
#"Zmenený typ pomocou miestneho nastavenia" = Table.TransformColumnTypes(#"Rozdeliť stĺpec podľa oddeľovača", {{"Column1", type datetime}, {"Teplota nastavená", type number}, {"T_Eff", type number}, {"Teplota", type number}, {"Vlhkost", type number}, {"Vlhkost nastavená", type number}}, "en-GB"),
#"Filtrované riadky" = Table.SelectRows(#"Zmenený typ pomocou miestneho nastavenia", each [Door] <> null),
#"Pridané vlastné" = Table.AddColumn(#"Filtrované riadky", "Tolerance teploty MIN", each [Teplota nastavená]-5),
#"Pridané vlastné1" = Table.AddColumn(#"Pridané vlastné", "Tolerance teploty MAX", each [Teplota nastavená]+5),
#"Pridaný podmienený stĺpec" = Table.AddColumn(#"Pridané vlastné1", "Time in spec start", each if [Teplota] >= [Tolerance teploty MIN] then [Column1] else null),
PosledniTeplota = Table.Last(#"Pridaný podmienený stĺpec")[Teplota],
PosledniVlhkost = Table.Last(#"Pridaný podmienený stĺpec")[Vlhkost],
#"Seskupené řádky" = Table.Group(#"Pridaný podmienený stĺpec", {"Teplota nastavená", "Vlhkost nastavená", "Tolerance teploty MIN", "Tolerance teploty MAX"}, {{"Teplota MIN", each List.Min([Teplota]), type number}, {"Teplota MAX", each List.Max([Teplota]), type number}, {"Vlhkost MIN", each List.Min([Vlhkost]), type number}, {"Vlhkost MAX", each List.Max([Vlhkost]), type number}, {"Začátek předehřevu", each List.Min([Column1]), type datetime}, {"Konec předehřevu", each List.Max([Column1]), type datetime}, {"Teplota in spec start", each List.Min([Time in spec start]), type nullable datetime}}),
#"Přidané: Vlastní2" = Table.AddColumn(#"Seskupené řádky", "Total time", each [Konec předehřevu]-[Začátek předehřevu]),
#"Přidané: Vlastní3" = Table.AddColumn(#"Přidané: Vlastní2", "Time in Spec", each [Konec předehřevu]-[Teplota in spec start]),
#"Přidané: Vlastní4" = Table.AddColumn(#"Přidané: Vlastní3", "Náběh teploty", each [Teplota in spec start]-[Začátek předehřevu]),
#"Přidané: Vlastní5" = Table.AddColumn(#"Přidané: Vlastní4", "Poslední teplota", each PosledniTeplota),
#"Přidané: Vlastní6" = Table.AddColumn(#"Přidané: Vlastní5", "Poslední vlhkost", each PosledniVlhkost)
in
#"Přidané: Vlastní6"
Vymeňte si len názov súboru a môžete krokovať. Tie posledné hodnoty sa uložia do premenných vo funkcii Table.Last. a použijú sa následne po zlúčení riadkov. Je to tam pekne vidieť.

No a čo sa týka tej chyby. Skúsim vymyslieť, ako odhaliť, ktorý súbor robí neplechu. Musíme ho nájsť, aby sme ošetrili aj takú eventualitu. Alebo spustite to makro, a keď makro spadne, tak prečítajte hodnotu Files(i). Tam je názov súboru.

EDIT:
POZOR! Fórum maže viac ako 1 medzeru za sebou. Takže v tomto riadku
#"Nahradená hodnota" = Table.ReplaceValue(Zdroj," "," ",Replacer.ReplaceText,{"Column2"}),za Zdroj sú v prvých úvodzovkách 2 medzery, v druhých úvodzovkách 1 medzera !!!

Urobil som pokus. Vaše súbory som si zduplikoval tak, aby bolo načítaných 25000 súborov (38750 je to aj so súbormi Default). Musí sa na to pozrieť odborník na PQ, lebo to trvá strašne dlho. Urobil som na pokus aj makro, posúďte sám:

PowerQuery : 150 s
Makro : 43 s

No ja som posldné hodnoty riešil v tej funkcii fncGetSoubor:
(Soubor as binary) => let
Zdroj = Csv.Document(Soubor,2,{2,23},null,1250),
#"Nahradená hodnota" = Table.ReplaceValue(Zdroj," "," ",Replacer.ReplaceText,{"Column2"}),
#"Rozdeliť stĺpec podľa oddeľovača" = Table.SplitColumn(#"Nahradená hodnota", "Column2", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Teplota nastavená", "T_Eff", "Teplota", "Vlhkost", "Vlhkost nastavená", "Door"}),
#"Zmenený typ pomocou miestneho nastavenia" = Table.TransformColumnTypes(#"Rozdeliť stĺpec podľa oddeľovača", {{"Column1", type datetime}, {"Teplota nastavená", type number}, {"T_Eff", type number}, {"Teplota", type number}, {"Vlhkost", type number}, {"Vlhkost nastavená", type number}}, "en-GB"),
#"Filtrované riadky" = Table.SelectRows(#"Zmenený typ pomocou miestneho nastavenia", each [Door] <> null),
#"Pridané vlastné" = Table.AddColumn(#"Filtrované riadky", "Tolerance teploty MIN", each [Teplota nastavená]-5),
#"Pridané vlastné1" = Table.AddColumn(#"Pridané vlastné", "Tolerance teploty MAX", each [Teplota nastavená]+5),
#"Pridaný podmienený stĺpec" = Table.AddColumn(#"Pridané vlastné1", "Time in spec start", each if [Teplota] >= [Tolerance teploty MIN] then [Column1] else null),
PosledniTeplota = Table.Last(#"Pridaný podmienený stĺpec")[Teplota],
PosledniVlhkost = Table.Last(#"Pridaný podmienený stĺpec")[Vlhkost],
#"Seskupené řádky" = Table.Group(#"Pridaný podmienený stĺpec", {"Teplota nastavená", "Vlhkost nastavená", "Tolerance teploty MIN", "Tolerance teploty MAX"}, {{"Teplota MIN", each List.Min([Teplota]), type number}, {"Teplota MAX", each List.Max([Teplota]), type number}, {"Vlhkost MIN", each List.Min([Vlhkost]), type number}, {"Vlhkost MAX", each List.Max([Vlhkost]), type number}, {"Začátek předehřevu", each List.Min([Column1]), type datetime}, {"Konec předehřevu", each List.Max([Column1]), type datetime}, {"Teplota in spec start", each List.Min([Time in spec start]), type nullable datetime}}),
#"Přidané: Vlastní2" = Table.AddColumn(#"Seskupené řádky", "Total time", each [Konec předehřevu]-[Začátek předehřevu]),
#"Přidané: Vlastní3" = Table.AddColumn(#"Přidané: Vlastní2", "Time in Spec", each [Konec předehřevu]-[Teplota in spec start]),
#"Přidané: Vlastní4" = Table.AddColumn(#"Přidané: Vlastní3", "Náběh teploty", each [Teplota in spec start]-[Začátek předehřevu]),
#"Přidané: Vlastní5" = Table.AddColumn(#"Přidané: Vlastní4", "Poslední teplota", each PosledniTeplota),
#"Přidané: Vlastní6" = Table.AddColumn(#"Přidané: Vlastní5", "Poslední vlhkost", each PosledniVlhkost)
in
#"Přidané: Vlastní6"
No a dotaz test iba vyvoláva funkciu pre každý súbor:
let
Zdroj = Folder.Files(Excel.CurrentWorkbook(){[Name="tblCesta"]}[Content]{0}[Cesta]),
#"Filtrované řádky" = Table.SelectRows(Zdroj, each [Extension] = ".TXT" and not Text.Contains([Name], "Default") and [Attributes]?[Hidden]? <> true),
#"Rozdělit sloupec oddělovačem" = Table.SplitColumn(#"Filtrované řádky", "Name", Splitter.SplitTextByEachDelimiter({"-"}, QuoteStyle.Csv, false), {"prefix", "Name"}),
#"Rozdělit sloupec oddělovačem1" = Table.SplitColumn(#"Rozdělit sloupec oddělovačem", "Name", Splitter.SplitTextByDelimiter("_", QuoteStyle.Csv), {"předehřev", "Name.2", "Nastavený čas", "Batch"}),
#"Nahradená hodnota" = Table.ReplaceValue(#"Rozdělit sloupec oddělovačem1",".TXT","",Replacer.ReplaceText,{"Batch"}),
#"Vyvolat vlastní funkci1" = Table.AddColumn(#"Nahradená hodnota", "Extrakce", each fncGetSoubor([Content])),
#"Odebrané sloupce" = Table.RemoveColumns(#"Vyvolat vlastní funkci1",{"Content", "prefix", "Name.2", "Date accessed", "Date created", "Extension", "Attributes", "Folder Path"}),
#"Rozbalené Extrakce" = Table.ExpandTableColumn(#"Odebrané sloupce", "Extrakce", {"Teplota nastavená", "Vlhkost nastavená", "Tolerance teploty MIN", "Tolerance teploty MAX", "Teplota MIN", "Teplota MAX", "Vlhkost MIN", "Vlhkost MAX", "Začátek předehřevu", "Konec předehřevu", "Total time", "Time in Spec", "Náběh teploty", "Poslední teplota", "Poslední vlhkost"}),
#"Přejmenované sloupce" = Table.RenameColumns(#"Rozbalené Extrakce",{{"Date modified", "Datum modifikace"}}),
#"Stĺpce so zmeneným poradím" = Table.ReorderColumns(#"Přejmenované sloupce",{"Batch", "předehřev", "Nastavený čas", "Datum modifikace", "Začátek předehřevu", "Konec předehřevu", "Teplota nastavená", "Teplota MIN", "Teplota MAX", "Vlhkost nastavená", "Vlhkost MAX", "Vlhkost MIN", "Tolerance teploty MIN", "Tolerance teploty MAX"}),
#"Pridaný podmienený stĺpec" = Table.AddColumn(#"Stĺpce so zmeneným poradím", "Pravda/Nepravda", each DateTime.Date([Datum modifikace]) = DateTime.Date([Konec předehřevu]))
in
#"Pridaný podmienený stĺpec"

EDIT:
Priložte ten súbor, v ktorom nejde previesť tie čísla a hádže chyby.

POZOR! Fórum maže viac ako 1 medzeru za sebou. Takže v tomto riadku
#"Nahradená hodnota" = Table.ReplaceValue(Zdroj," "," ",Replacer.ReplaceText,{"Column2"}),za Zdroj sú v prvých úvodzovkách 2 medzery, v druhých úvodzovkách 1 medzera !!!

Skúsim aj ja kluci. Riešenie od veny som nevidel, tak dúfam, že som sa nezamotal :)
Musím s tým PQ robiť viac...

Maticový vzorec (Ctrl+Shift+Enter), príklad pre Tabuľku:
=TEXTJOIN(", ";TRUE;IF(SUBTOTAL(3;OFFSET(Tabuľka1[Stĺpec1];ROW(Tabuľka1[Stĺpec1])-MIN(ROW(Tabuľka1[Stĺpec1]));;1));Tabuľka1[Stĺpec1];""))
=TEXTJOIN(", ";PRAVDA;KDYŽ(SUBTOTAL(3;POSUN(Tabuľka1[Stĺpec1];ŘÁDEK(Tabuľka1[Stĺpec1])-MIN(ŘÁDEK(Tabuľka1[Stĺpec1]));;1));Tabuľka1[Stĺpec1];""))

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje