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ě

Zaslat odpověď >

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)

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.