• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

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?

Tak Jiřík mě zase předběhnul.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse