Code voor de door mij geselecteerde cel

[Scallebe]

Beste ontwikkelaars,

Ik heb een macro opgenomen om enkele acties samen te kunnen voegen en hem dan later aan een knop toe te wijzen.

Tijdens de opname van de macro stond ik in cel A6 (kan je zien in de code)

Wanneer ik de macro laat uitvoeren doet hij dit natuurlijk telkens in de rij 6

Hoe kan ik deze macro laten uitvoeren in de cel die ik eerst geselecteerd heb.

Sub Macro1()
'
' Macro1 Macro
'

'
    Rows("6:6").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Bedankt

Pascal

 

[Cobbe]

Is deze beter?

Sub Macro1()
'
' Macro1 Macro
'
 
'
    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row).Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

 

[Scallebe]

Cobbe,

That's it.

Bedankt

 

[Scallebe]

Volgende vraag dan :

Ik heb een lijn (Selection.ClearContents) toegevoegd in de code die je mij gegeven hebt :

Sub Macro1()
'
' Macro1 Macro
'
 
'
    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row).Insert Shift:=xlDown
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

Dit werkt omdat ik eerst de cel A5 selecteer, dan de macro uitvoer die als laatste actie (Selection.ClearContents) de cel leeg maakt.

Ik wil nu in die aangemaakte rij meerdere cellen leegmaken. Dit zijn de cellen waar de gegevens worden ingevoerd. De cellen die formules bevatten mogen uiteraard niet leeg gemaakt worden.

De resultaten komen toch automatisch op 0 wanneer ik de "inputcellen" leeg maak.

m.a.w. kan ik de opdracht "Selection.ClearContents" naar specifieke cellen laten verwijzen in de actieve rij?

Bedankt

Pascal

 

[Cobbe]

Dan zal je toch moeten opgeven welke cellen(kolommen) leeg gemaakt dienen te worden.