Regel automatisch naar beneden

[goof2808]

Hoi,

Ik heb geprobeerd een bestand bij te voegen, dit lukte niet daarom hier een link naar het bestand: www.goofonline.net/issuelijst.zip
Het is een issuelijst die ik voor een project wil gaan gebruiken.

Als een issue opgelost is pas ik dit aan in de kolom "Status".
Ik zet hier dan "Klaar" in.

Wat wil ik nu:
Zodra ik "Klaar" ingevuld heb moet de gehele regel helemaal naar onder geplaatst worden(na de laatste gevulde regel)


Kan iemand me helpen?

Thanks,

Govi

 

[sesam]

Sorteren

Misschien sorteren op status?

 

[Hombre]

He goof

Ik heb een soortgelijk probleem zo opgelost.
In de eerste kolom, vakje A1, plaats je volgende code en sleep die door naar alle rijen die je wil sorteren (hier voorbeeld tot 7)

=ALS(B1="Klaar";"x";"")

Nu maak je een module met volgende code

Sub Macro1()
    Range("A1:B7").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
End Sub

Als je nu in rij B ergens "Klaar" typt en enter klikt sta je een rij lager. Voer hier de macro uit. Gemakkelijkste is een knop te maken.
Alle rijen worden dan gesorteerd en waar een "x" staat worden die onderaan geplaatst.

Succes