m.b.v. macro informatie verplaatsen naar lege regel

[jong.braster]

Ik heb een werkblad met op blad 1 meer dan 100 regels aan informatie.
Ik selecteer een regel en met behulp van een macro verplaats ik de geselecteerde regel naar blad 2.

Echter de informatie wordt op blad 2 steeds op de bovenste regel geplaatst.

Hoe kan ik in de macro aangeven dat de informatie op de eertsvolgende lege regel geplaatst wordt.

 

[Wigi]

Plaats hier je code tot nu toe, tussen code tags aub. (klikken op het # teken).

 

[jong.braster]

Sub regelverplaatsen()
'
' regelverplaatsen Macro
' De macro is opgenomen op 24-4-2007 door Henk .
'
' Sneltoets: CTRL+m
'

  Selection.Cut
    Sheets("verkochte artikelen").Select
    Rows("4:4").Select
    ActiveSheet.Paste

End Sub

 

[Wigi]

Zo bijvb.:

Sub regelverplaatsen()
    Selection.Cut Sheets("verkochte artikelen").Range("A" & Rows.Count).End(xlUp)
End Sub

 

[jong.braster]

Hallo Wigi,

Hij verplaatst de regel wel naar het volgende blad maar overschrijft de eerste regel.

 

[Wigi]

Zo dan...

Sub regelverplaatsen()
    Selection.Cut Sheets("verkochte artikelen").Range("A" & Rows.Count).End(xlUp)[B].Offset(1)[/B]
End Sub

Dit gaat er wel vanuit dat in kolom A de meeste gegevens staan. Je gaat gewoon vanaf de laatste cel in kolom A naar boven tot je een niet-lege cel tegekomt, dan een rij naar beneden en daar wordt het geplakt.

 

[jong.braster]

I am happy, thanks