VBA automatisch sorteren over meerdere kolommen

[serpent xx]

Beste forumleden,

ik zoek een VBA die er voor zorgt dat achtereenvolgens de waardes in kolom B, vervolgens in kolom N en dan in kolom F automatisch gesorteerd worden als men het tabblad verlaat om naar een ander tabblad te gaan.
De waardes dienen alle oplopend gesorteerd te worden.

Wie weet raad?

 

[JEC.]

Zo?

Private Sub Worksheet_Deactivate()
Cells(1).CurrentRegion.Sort Range("B2"), 2, Range("N2"), , 2, Range("F2"), 2 , xlYes
End Sub

 

[serpent xx]

Omdat de bedoeling is dat er oplopend gesorteerd wordt heb ik het even gewijzigd naar:

Private Sub Worksheet_Deactivate()
Cells(1).CurrentRegion.Sort Range("B2"), 1, Range("N2"), , 1, Range("F2"), 1 , xlYes
End Sub

Maar ik zie dat die alleen kolom B sorteert; met kolom N en F doet ie bij mij niets.

 

[JEC.]

Omdat je teveel dezelfde data hebt? Probeer eens wat te veranderen in de kolommen die je wilt sorteren

 

[serpent xx]

Nee, dat is niet de oorzaak. Kijk maar even naar bijgaand bestand waar ik de data heb aangepast.

 

[JEC.]

Toch doet hij het wel. Als je sommige data wat aanpast werkt het naar behoren. Even wat meer testen

Of wil je dat kolommen onafhankelijk van elkaar sorteren?

With Cells(1).CurrentRegion
  .Columns(2).Sort Range("B2"), 1, , , , , , xlYes
  .Columns(14).Sort Range("N2"), 1, , , , , , xlYes
  .Columns(6).Sort Range("F2"), 1, , , , , , xlYes
End With

 

[serpent xx]

Sorry, maar ik begrijp het niet. Het is de bedoeling dat de kolommen in 1 procedure oplopend gesorteerd worden in d volgorde kolom B - kolom N - kolom F.
Bij mij sorteert die alleen kolom B; met de andere kolommen doet hij niets. Wat zou andere data daar dan aan veranderen?

 

[serpent xx]

Oooow, mijn fout. Hij doet het idd wel. Ga morgen hier mee aan de slag. Bedankt alvast! :thumb:

 

[serpent xx]

Het werkt perfect; ben er erg blij mee!
Ik zit alleen nog met de volgende vraag. Stel dat gegevens op dit tabblad gefilterd zijn, welke code kan ik dan toevoegen die ervoor zorgt dat bij het verlaten van dit tabblad alle gegevens weer zichtbaar worden?

 

[JEC.]

Probeer deze eens

Private Sub Worksheet_Deactivate()
With Cells(1).CurrentRegion
 .Parent.ShowAllData
 .Sort Range("B2"), 1, Range("N2"), , 1, Range("F2"), 1, xlYes
End With
End Sub

 

[serpent xx]

Perfect. Top!!!!!
Wederom bedankt.:thumb::thumb:

 

[serpent xx]

Moet er toch nog even op terugkomen. Deze code werkt als de range gefilterd is. Als de rang niet gefilterd is krijg ik een foutmelding.

 

[JEC.]

Dat kan kloppen Zou nu goed moeten gaan.

Private Sub Worksheet_Deactivate()
With Cells(1).CurrentRegion
  If .Parent.FilterMode Then .Parent.ShowAllData
 .Sort Range("B2"), 1, Range("N2"), , 1, Range("F2"), 1, xlYes
End With
End Sub

 

[serpent xx]

Yep, dat is die!!
Dank je.