Příspěvky uživatele

Problém nebude v tom v match(). Doposiaľ to fungovalo bez chyby. Problém je ten dátum z toho druhého zdroja odkiaľ ho kopírujem do pracovného excelu. Tam bude niečo zle s tým dátumom. Pripnem zdroj dát, hádam ma zamestnávateľ nezastrelí.

@eLCHa
tvoj pracuje pokiaľ zadávam dátum natvrdo (písem ho).
Zrejme bude vhodné vysvetliť ako ten vzorec využívam.
Zo stĺpca A:A si vyberiem dátum v zoznam menu.Nazvime tuto bunku D1. Využívam ďalšiu bunku kde mám čísla 1,2,3,14,58,72... Nazvime ju D2. V bunke D3 odpočítam D1-D2 hľadám tento dátum. Cez rovnakú funkciu si nájdem iný dátum. Rozsah medzi týmito dvoma bodmi je rozsah dát ktorý ma zaujíma na dynamickom grafe. Cez Match() a Index()
@eLCHa
Takže akonáhle odpočítavam čísla (v podstate história) od referenčného dátumu, tak ten tvoj vzorec nefunguje.
@lugr
Využil som aj ten príkaz ktorý si napísal, ale ako som hovoril, nie je to v tom, že to má byť prilepené ako hodnota. Problém pretrváva.

@lubo 14:22
To pričítanie funguje iba na 16.10.2020. Ak sa posunie na 17 tak to znova nejde.

len si nemyslím že by bol problém v tomto. Pretože ako som spomínal, tak dáta cez CTL+V som dával formátovať ako Value a nepomohlo.

Ak je v dátume piatok, tak kopíruje iný rozsah ako keď piatok nie je. Plus zobrazí ak je dátum väčší ako jeden deň v prípade nezhody. Iba na rýchle vysvetlenie

Zlihá=selže
makro v prílohe. V makre nie som lumen. začiatočník.

Tu to zlihá makro:
ActiveSheet.PasteSpecial xlPasteValues
nahradil som .Paste

Zdroj viem nastaviť, ale neviem ako. Ak dám stĺpec naformátovať ako dátum, tak to robí stále. Zdroj je excel ktorý využíva API funkciu na dopyt dát z platenej stránky providera.

Dim wsS1 As Worksheet
Dim lastrow As Long
Dim lastrow_Den As Range
Set wsS1 = Sheets("EEX_vr_ISOT")
sheets("Predikcia_DE").Select
Range("A29:B52").Select
Selection.COPY
wsS1
Sheets("EEX_vr_ISOT").Select
lastrow = (.Cells(.Rows.Count, "A").End(xlUp).row) + 1 'posledny riadok +1
lastrow_D = (.Cells(.Rows.Count, "A").End(xlUp).row)
Set lastrow_Den = Range("A" & lastrow_D)
Sheets("EEX_vr_ISOT").Select
wsS1.Range("A" & lastrow).Select 'Rozsah zo stlpca A + c. posledneho riadku
ActiveSheet.Paste

V podstate to iba nájde posledný stĺpec kde je hodnota a nakopíruje pod ňu.

Snáď som to tam dal správne. Inak CTR+C a CTRL+V v zjednodušenej forme

Pozdravuj. Narazil som na jeden oriešok a neviem si dať rady.
Po 15.10.2020 sú nakopírované dátumy z prvotného zdroja. 16.10.2020 sú vložené dáta z iného zdroja, ktorý budem využívať. Funkcia Match() funguje po dátum 16.10.2020 22:00. Skúšal som dáta 16.10.2020 prilepiť ako hodnoty a všetky formáty, ktoré ponúka excel, ale nič nepomáha. Dá sa to vyriešiť pridaním ďalšieho stĺpca a využitie funkcie Text() a Value() resp. cez Mround(), ale využívanie ďalšieho stĺpca nie je možné. Zistilo sa, že keď vstúpim do bunky 16.10.2020 23:00 a dám enter, tak Match() funguje. Nemôžem kontrolovať každý dátum, ktorý prilepím cez makro. Bunka C1 a A6983 sú identické - True. Nerozumiem tejto anomálii a nedáva mi zmysel. Neviem sa z toho pohnúť. Za každú radu ďakujem.
Na hárku2 sú ďalšie dátumy, ktoré by sa mali prilepiť pod A6983.Ak odenterujem A6983, tak sa dostávam opäť iba po 19.10.2020 22:00.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje