regelnummers vastleggen

[knan]

Welke code moet ik gebruiken als ik vanuit een regel een andere regel wil kopieeren en vervolgens deze regel op mijn huidige positie wil invoegen.
Ik wil regel 10 kopieeren en invoegen op de regel waar ik sta.

Dim Rijnummer As Integer

'
Rijnummer = Rows.Cells



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

Het bepalen van het rijnummer is mijn probleem.

 

[Spiderman]

Hoi knan,

Sub KopieRegel10()

    Dim ActiveRow As Integer
    ActiveRow = ActiveCell.Row [COLOR="Green"]' Deze krijgt de waarde van de active rij[/COLOR]    
    Rows("10:10").Copy [COLOR="green"]' Regel 10 kopieeren[/COLOR]
    Range("A" & ActiveRow).PasteSpecial xlPasteAll [COLOR="green"]' Plakken in de active rij[/COLOR]
End Sub

 

[knan]

dank u

Hartelijk dank voor de snelle reactie, werkt perfect.

Kees Nan

Hoi knan,

Sub KopieRegel10()

    Dim ActiveRow As Integer
    ActiveRow = ActiveCell.Row [COLOR="Green"]' Deze krijgt de waarde van de active rij[/COLOR]    
    Rows("10:10").Copy [COLOR="green"]' Regel 10 kopieeren[/COLOR]
    Range("A" & ActiveRow).PasteSpecial xlPasteAll [COLOR="green"]' Plakken in de active rij[/COLOR]
End Sub