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

MS Excel

Téma: Přenos vzorce

Zaslal/a Petr-Simunek 4.2.2013 14:04

Mám problémy s tímto makrem, jde o přenos vzorce
bez vlastností zdrojové buňky.

'calculation of the max value of MP1
Cells(Lastrow, MP1).Select
ActiveCell.FormulaR1C1 = "=MAX(R[" & rowdiff & "]C:R[-1]C)"
Selection.Cut
Sheets("Temperature Layout").Select
Range("F31").Select
ActiveSheet.Paste

'Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
' SkipBlanks:=False, Transpose:=False
'Application.CutCopyMode = False

Vzorec se přenese, ale s vlastnostmi zdrojové buňky.
Takže "přemaže" vzhled cílové buňky. Snažil jsem použít PasteSpecial ale neúspěšně

Jméno
Kontrola
Text
	Ukázka

---

dream2003(4.2.2013 15:02)#011376

zkus odmazat ActiveSheet.Paste toto vkládá vše na aktivní listcitovat

Pavlus(4.2.2013 16:59)#011381

Podle mě je chyba v "Selection.Cut", což znamená "vyjmout", pak lze již využít pouze klasické vložení (tedy vše). Já bych to nahradil "Selection.Copy" a využil bych pak to co máš v komentáři (Selection.PasteSpecial...).
P.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse