rij invoegen met een macro

[endehullu]

Ik wil graag een vaste rij (7) kopiëren en invoegen op de plaats van de actieve cel, met behoudt van opmaak ed., ook voorwaardelijk opmaak.

Ik weet hoe ik een macro moet opnemen, dit ook een aantal malen geprobeerd, maar de gekopieerde rij komt elke keer op de plaats van de cel waar ik de macro heb opgenomen.
Ik heb 4 groepen van activiteiten en wil in alle4 de rij kunnen invoegen.

Kan/wil iemand aub mij helpen?

 

[edmoor]

De macro neemt exact op wat je doet en waar. Dus inclusief rij en kolom informatie. Die kan je echter zelf variabel maken. Als je de opgenomen macro hier laat zien komen we daar vast wel uit.

 

[endehullu]

Sub RegelInvoegen()
'
' RegelInvoegen Macro
' nieuwe regel invoegen op positie van cursor
'
' Sneltoets: Ctrl+q
'
    Range("A14").Select
    Selection.FormulaR1C1 = "1"
    Rows("7:7").Select
    Selection.Copy
    Range("A7").Select
    Selection.End(xlDown).Select
    Selection.Insert Shift:=xlDown
    Range("A15").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("B14").Select
End Sub

omschrijving van wat ik gedaan heb :
cursor staat in K14
"start opname"
ga met home naar eerste cel van de rij
type "1"
kopieer rij 7
pijl naar links (om in A7 te komen)
CTRL+ pijl naar beneden om bij cel met "1" te komen
voeg rij (7) in
pijl naar beneden
delete "1"
pijl naar boven
pijl naar rechts
"stop opname"

ik hoop dat dit zo duidelijk is, start in K14 is willekeurig gekozen en kan elke cel zijn

 

[edmoor]

Dan zal je hier voldoende aan hebben:

Sub RegelInvoegen()
    ' Sneltoets: Ctrl+q
    Rows(7).Copy
    Cells(ActiveCell.Row, 1).Insert shift:=xlDown
    Application.CutCopyMode = False
End Sub

 

[endehullu]

dit is wel heel kort , en briljant , werkt perfect !

DANK !

even kijken of ik snap wat er gebeurt :
Rows(7). selecteer rij 7
Copy kopieer rij 7

Cells(ActiveCell.Row, 1). ga naar 1e cel in rij
Insert shift:=xlDown voeg rij in, huidige rij 1 naar beneden

Application. plak gekopieerde rij
CutCopyMode = False ??deze snap ik niet

klopt dit een beetje? en wat doet het laatste deel ?

 

[edmoor]

Die regel zet de selectie, in dit geval van regel 7, uit. Kijk maar eens wat er gebeurt als je dat niet doet.
Application is je Excel sessie.

De rest heb je goed begrepen

 

[endehullu]

Die regel zet de selectie, in dit geval van regel 7, uit. Kijk maar eens wat er gebeurt als je dat niet doet.

ah, de looplijn, duidelijk :thumb:

 

[edmoor]

Ik vind looplijn wel een aardige benaming

 

[endehullu]

sorry, ik weet de officiële benaming niet

 

[edmoor]

Geeft niks, in vind 'm leuk
Maar het is dus de selectie.