Om en om sorteren op basis van waarde

[BeNL]

Goedemiddag allemaal,

Ik heb een kleine breinbreker voor de dinsdagmiddag.

In bijgevoegd bestand staat een en ander uitgelegd. Kort gezegd heb ik een reeks waardes zoals:

17M1 - 1
17M2 - 3
17M3 - 2
17F1 - 2
17F2 - 4
17F3 - 2

Deze krijg in deze volgorde aangeleverd. Maar ik moet ze uiteindelijk op deze manier op een rij krijgen:

17M1 - 1
17F1 - 2
17M2 - 3
17F2 - 4
17M3 - 2
17F3 - 2

Is dit mogelijk?

Met vriendelijke groeten,
Ben Loomans

 

[jkpieterse]

Met een hulpkolom waarop gesorteerd is...

 

[BeNL]

Handig! Ik heb hier nog even een macro bij opgenomen om het automatisch te sorteren, dus nu is hij helemaal compleet. Bedankt!

 

[VenA]

Ga je deze macro ook hier plaatsen zodat anderen met een zelfde vraag er ook wat aan hebben?

 

[BeNL]

Hierbij de bijlage met de button "sorteren"

Ben

 

[VenA]

Volgens mij is dit voldoende om te sorteren.

Sub VenA()
 Cells(4, 10).CurrentRegion.Sort [j4], , , , , , , xlNo
End Sub

 

[BeNL]

Hi V&A,

Waar staan de 4, 10 voor in de code? Zie bijgevoegd bestand. Krijg hem hier helaas niet aan de praat.

Mvg, Ben

 

[VenA]

4 is de 4de rij en 10 is de 10de kolom

MsgBox Cells(4, 10).Address

Je kan het geheel ook door de macro laten afhandelen.

 

[BeNL]

Bedankt voor de uitleg en de hulp!

Ben