MS Excel

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.

Zaslat odpověď >

Strana: 1 2 3 další »

Lugr(20.10.2020 20:16)#048489

Můžu se zeptat, jak data do sloupce kopírujete?citovat

oblivion.PP(20.10.2020 20:32)#048490

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 formecitovat

Lugr(20.10.2020 20:41)#048491

A je tento problém už u zdroje?

Vy kopírujete i formát zdroje.citovat

Lugr(20.10.2020 20:43)#048492

A je tento problém už u zdroje?

Vy kopírujete i formát zdroje.citovat

oblivion.PP(20.10.2020 20:45)#048493

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.citovat

Lugr(20.10.2020 20:55)#048494

V první řadě zaměňte v kódu toto:

.Paste

tímto:

.PasteSpecial xlPasteValuescitovat

Lugr(20.10.2020 20:56)#048495

Nějaká změna?citovat

oblivion.PP(20.10.2020 21:04)#048497

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

Lugr(20.10.2020 21:17)#048498

Zjišťuji že nerozumím slovensky.