Příspěvky uživatele
< návrat zpět
No ty kráso, celý den si nad tím lámu hlavu. 
Je vidět, že se musím ještě hodně učit.
Dost dobrý lubo. 
Proto jsem chtěl zkusit
.PasteSpecial xlPasteValues
to kopíruje jen hodnoty bez formátu.
Ale vy máte v kódu hodně select.
Musí to fungovat jednoduše.
lastrow = (Sheets("EEX_vr_ISOT").Cells(.Rows.Count, "A").End(xlUp).row) + 1
Sheets("Predikcia_DE").Range("A29:B52").Copy
Sheets("EEX_vr_ISOT").Range("A" & lastrow).PasteSpecial xlPasteValues
Já se v tom malinko ztrácím.
Jen si myslím, že problém je s datumem již u zdroj (např. že je formátován jako text) a když ho překopírujete i s formátem, tak na tom nezáleží, že v cílové buňce máte formát správný, jelikož si ho přemažete.
Oto nejde, já jsem taky jen amatér. Jen mi přijde, že to máte moc překombinované. Kouknu na to.
Zjišťuji že nerozumím slovensky. 
Zlihá znamená selže? 
Asi bych potřeboval kouknout na ten zdroj.
Mě se to Vaše makro nelíbí.
První vyřešíte
=ZPRAVA(A1;DÉLKA(A1)-HLEDAT("-";A1;1))
Nějaká změna?
V první řadě zaměňte v kódu toto:
.Paste
tímto:
.PasteSpecial xlPasteValues
A je tento problém už u zdroje?
Vy kopírujete i formát zdroje.
A je tento problém už u zdroje?
Vy kopírujete i formát zdroje.
Můžu se zeptat, jak data do sloupce kopírujete?
Makro při tisku v určitých buňkách změní text na bílo a potom zase zpět na černo.
Tak?
Jiří497 napsal/a:
lugr napsal/a:
Klobouk dolů. Dost dobrý.
Tak, nechal bych na hlavě. Ale pravda, čekal jsem, že to půjde podstatně hůř.
Já makra moc neumím, takže mě se to moc líbí.
Tak Jiřík mě zase předběhnul.
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