Posebno leplenje: VREDNOSTI,DODAJ

[mb]

Pozdravljeni,

imam težavo s posnetim makrojem. Ko makro snemam mi kopirano celico prilepi v izbrano končno celico, pri zagonu makroja pa se leplenje ne izvrši. (Posebno leplenje: VREDNOSTI,Operacija: DODAJ)!

Koda: Izberi vse

Sheets("List1").Select
Range("I3").Select
Selection.ClearContents
Sheets("List2").Select
Range("B2").Select
Selection.Copy
Sheets("List1").Select
Range("I3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False

Prosim za pomoč.
LP, Boštjan

[Stenly]

Probajte to kodo:

Koda: Izberi vse

Sheets("List1!I3").ClearContents

Sheets("List1!I3").Value = Sheets("List1!I3").Value + Sheets("List2!B2").Value

Lp

[mb]

Javi mi napako: Subscript out of range

[Stenly]

Se oproščam; malo sem bil prehiter.

Koda: Izberi vse

Range("List1!I3").ClearContents

Range("List1!I3").Value = Range("List1!I3").Value + Range("List2!B2").Value

Lp