Active cellen kopiëren en plakken (offset)

[Mati6n2]

Excel mensen,

Ik heb de volgende code

 Dim c As Range
    For Each c In Selection
        c.Formula = c.offset(-3).Formula & "-83"
    Next


ActiveCell.Copy

ActiveCell.offset(2).Select

Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats

Application.CutCopyMode = False


ActiveCell.Formula = ActiveCell.Formula & "-40"

Dit werkt maar, wanneer ik 2 cellen selecteer en dan mijn bovenstaande code laat uitvoeren past hij dit alleen maar toe op mijn eerste geselecteerde cel.

Wanneer ik de code stap voor stap overloop zit mijn fout al in dit stukje van de code

ActiveCell.Copy

ActiveCell.offset(2).Select

Ik veronderstel dat ik toch 2 cellen tegelijkertijd kan offsetten?

Wie weet de oplossing

 

[WinteE]

ActiveCell.Copy wijzigen in Selection.Copy

 

[Mati6n2]

Klopt idd winteE bedankt, verdorie

Maar,

Zoals je ziet moet hij een samengevoegde cel (onder breedte)die hij naar beneden offset, door een bestaande cel overschrijden. Valt daar iets aan te doen zonder de samengevoegde aan te passen ? Ik vrees van niet ...

 

[Mati6n2]

Bovenstaande probleem heb ik dan maar zo opgelost

Nu deze formule past excel niet toe op de2de active cel ernaast.

Bij deze formule gaat de linkse cel enkel veranderen.
ActiveCell.Formula = ActiveCell.Formula & "-40"

Ik zou zeggen ik neem deze formule:
Selection.Formula = Selection.Formula & "-40"

Maar deze geeft een fout iemand die deze kan verbeteren a.u.b, dan ben ik eruit

 

[Demeter]

Mmmmmmmmmmmmmm, volg niet geheel wat je precies bedoeld

Probeer eens:

Selection.Merge

of

Selection.UnMerge

 

[Mati6n2]

Ik heb het gevonden.

Ik had dit gisteren ook al geprob., maar vandaag gaat het.

Blijkbaar had ik iets fout

Oplossing

Gewoon met :

Dim b As Range
For Each b In Selection
b.Formula = b.offset(0).Formula & "-40"

 

[Wigi]

offset(0).

kan weg. Je verandert de cel niet.