Regel in Excel verplaatsen (op numerieke volgorde)

[Robert Smidt]

Hallo beste helpmijers,

Ik ben op zoek naar een code die mij helpt om een regel in excel (die actief is) te verplaatsen binnen hetzelfde bestand (ander werkblad "Afgehandeld"), echter moet deze geplaatst worden op numerieke volgorde (kolom A).

Alvast bedankt.

Groeten, Robert

 

[perryvg]

[invoer!i8:m8].Copy [Afgehandeld! a65536].End(xlUp).Offset(1, 0)

iets in deze geest moet kunnen, alleen weet ik niet precies hoe je een actieve regel in de macro kan zetten.
als je een voorbeeld filetje er bij zet kan dat soms ook verhelderend zijn.
Perry

 

[Robert Smidt]

Om een hele regel te selecteren kun je onderstaande regel gebruiken, echter sorteert deze nog steeds niet op kolom A (eerste kopregel moet wel blijven staan).

ActiveCell.EntireRow.Range("a1:ag1").Copy [Afgehandeld! a65536].End(xlUp).Offset(1, 0)

 

[spaarie]

Sub Spaarie()
    ActiveCell.EntireRow.Copy Sheets("Afgehandeld").Range("A" & Rows.Count).End(xlUp).Offset(1)
    Sheets("afgehandeld").Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Sheets("afgehandeld").Sort
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[Robert Smidt]

hartelijk bedankt, ik ga morgen kijken of deze het doet....