Příspěvky uživatele

To je predsa jednoduché.
Terazky dávam zbrucha bez skúšania.
Namiesto číselného parametru, zakomponujte vzorec, ktorý si ten číselný parameter vypočíta.
Ten definovaný názov "zákazník" obsahuje čo? Odkazuje kam?
Je v ňom písmeno stĺpca? Teda "B" alebo "AC" atď? COLUMN(INDIRECT(zákazník&"1"))-5
SLOUPEC(NEPŘÍMÝ.ODKAZ(zákazník&"1"))-5
{to číslo 5 je korekcia indexu stĺpca, ak je tabuľka odsadená od okraja}
Alebo je v ňom "Leden", "Únor" a to sú hlavičky stĺpcov Tabuľky/tabuľky?
MATCH(zákazník;riadok hlavičky tabuľky;0)
POZVYHLEDAT(zákazník;riadok hlavičky tabuľky;0)

Vyskúšajte

Pridal som podrobný popis a nejaké funkcie a hlášky navyše...

No ja neviem. To aktualizujete iba tie hodnoty, ktoré sú označené Selectom ? A to pole je iba ako infolog a súvisí to nejako s témou "Vybrané řádky do pole"? Idete bunku po bunke, to je pomalé. Čo je slKonec? Dodajte anonymizované prílohy oboch súborov a pozriem na to, či to lepšie poberiem. Ale v stĺpcoch kde sú vzorce nechajte nejaké vzorce, tam kde sú hodnoty, nechajte hodnoty rovnakého typu. Stačí pár riadkov.

Ak sa Vám zdalo Vaše makro preplácané, tak z môjho odpadnete.

Samotná výkonová časť (hľadanie) je triviálna, pár riadkov. Ale desaťnásobne to zväčšuje, zneprehľadňuje a znižuje čitateľnosť a prehľadnosť práve všetok potrebný balast, ako kontroly, výpis priebehu v StatusBare, čiastkové vyfarbovanie (aby Excel nehavaroval ak oblasť obsahuje príliš veľa podoblastí) a pod., messageboxy, 25 riadkov kódu len vytvára náhodných 100K dát, ...

Zajtra keď vyjde čas a aj trochu elánu, skúsim si Váš príspevok ešte párkrát prečítať, a uvidím či urobím nejaké zmeny.

Ale ako zabrániť zmazaniu listu, ... neviem, ... nič ma terazky už nenapadá ...

Nie. Výsledok obsahuje samostatné podoblasti, a niektoré vlastnosti toho celku sa nedajú prečítať tak, že budete mať uvedený spoločný počet. Musíte si prejsť každú podoblasť zvlášť, a prečítať jej samostatné vlastnosti. Vy keď sa hneď pokúsite zistiť danú vlastnosť, dostanete odpoveď z prvej podoblasti. Preto Vás mýli, že to má 1 riadok. Nemá.

Nemusíte načítať celé dátové pole. Mne to tak prišlo jednoduchšie. Môžete načítať pre každú podoblasť jej vlastné dáta, a korigovať posun vo výslednom poli. Podľa mňa je zvolený postup jednoduchší a rýchlejší. Načítať obrovské množstvo údajov naraz je rýchlejšie, ako načítať veľké množstvo malých podoblastí.

EDIT:
Reakcia na EDIT:
Práveže Vy si musíte zistiť pre každú podoblasť jej veľkosť
rngArea.Rows.Count
viď prvý odstavec.

Zabudol som na konci zmazať definíciu, ktorú som nepoužil
Set wsData = Nothing

Inak celé sa to dá ľahko prerobiť na funkciu, ktorá Vám vráti pole hodnôt. To ma napadlo, keď ste písal, že stĺpce budú variabilné. Vstupným parametrom by bola iba adresa hlavičky.

Momentálne mám v adresári, kde si dávam takéto prílohy čo riešim Excel, 1634 súborov. Pekný bordel. Kedy sme to riešili? Však to nemôžem nájsť...

Skúste

Vy tam chcete zistiť aj koľko je zobrazených stĺpcov?
cntCol = .SpecialCells(xlCellTypeVisible).Columns.Count
Teda hrozí, že niektoré budú skryté? Teda môže nastať, že budete chcieť spojiť do poľa nielen nesúvislé riadky, ale môže to byť ešte aj v nesúvislých stĺpcoch?

Nerobili sme to už náhodou???

Dám sem len texťák s makrom, netreba znovu tú veľkú prílohu...

Čím mám staršie kolená, tým som tvrdohlavejší a menej chápavý. Neviem, ako tie dva orgány spolu súvisia, veď sú tak ďaleko od seba ...

Príloha?
PowerQuery?
Zoznam a názvy listov sú premenlivé?
Mená zákazníkov sú variabilné?
...

Urobil som verziu cez vyhľadávanie v Collection. 100000 vyhľadávaní v ďalších 100000 riadkoch spracuje aj výpisom priebehu, konverziou stringov na čísla za cca 6-7 sekúnd. Problémom je vyfarbovanie. A to je ohromný časový problém. Zakomponoval som zložité kontroly a čiastkové zafabovanie po častiach. Potom to ide celkom dobre. Keď privriem oči, tak čo % to sekunda. Dôrazne neodporúčam pri vygenerovaní 100000 riadkov (na to je tam makro, aby nebola veľká príloha) odpovedať NIE na otázku, či má vyfarbovať po krokoch. Ide to ako raketa. Obmedzujú to len farby...
Ešte poriadne pochopiť tie podmienky...

Prvý nástrel len prasácky poupravované (zdôrazňujem prasácky) a povynechávané. Snáď to robí čo má. Niektoré tie podmienky som vôbec nepobral, tak som ich ponechal. Všetko, čo sa dalo, je cez polia.
Vyskúšajte.

Viac nemám čas. Všetci zdúchli, a tak idem nachystať na tajnáša nejaké Vianočné veci. Ale psst, nie že to tu rozkecáte ...

Ak to bude funkčné, tak to poupravujem, aj nejaký popis dodám.
PS: Inak prílohy ste dal presne také ako som nechcel. Nie je vidno, či niekde nie sú vzorce. Dalo by sa pre zjednodušenie preplácnuť všetky dáta (aj nemenené), bolo by menej polí...

EDIT:
Dnes som si to ráno vyskúšal, a Match je nedostatočný. Použijem Collection - mnohonásobne rýchlejšie hľadanie. Nachádzajú sa v prehľadávanom súbore duplicitné materiály?

EDIT2:
Tak sa snažím pochopiť tie Vaše podmienky... No, dobré by asi bolo, začať od začiatku, a to vysvetlením, čo to má robiť a za akých podmienok. Napr. ak dôjde k výpočtu (lebo je číslo a nie text) a zároveň pri výpočte dôjde k zmene očerveň, inak zachovaj pôvodnú farbu/ zmaž akúkoľvek farbu. Atď.
To makro je celé? K čomu potom toto?
Case existingPrice = 0
If calculatedPrice = 0 Then
End If
V tomto riadku
ElseIf existingPriceValue = 0 Or existingPrice = "no info" Or InStr(existingPrice, "*") And calculatedPrice <> 0 Then
sa zbytočne testuje
Or existingPrice = "no info"
lebo nikdy nenastane, pretože to je v bloku
Case IsNumeric(existingPrice)
Ďalej priložte takú prílohu, kde bude 1 riadok z každej eventuality, ktorá sa môže vyskytnúť, aj s jeho požadovaným výsledkom včetne farby (kedy ma červená vzniknúť, zaniknúť, ponechať).
text, číslo, farba, "*", "no info", "AT mat", ...
Desatinné čísla v stĺpci G neprevádzate na skutočné čísla. Ostávajú ako text. To sa má asi previesť, nie?

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje