sorteer macro

[popipipo]

Ik heb 2 validatie cellen.
De 2e cel is via een indirect validatie aan cel 1 gekoppeld.

Nu wil ik de volgorde die ik in 2e cel zie altijd gesorteerd (alfa of alfanumeriek) zien.
Dit om het zoeken te vereenvoudigen
Zie ook bijlage.

 

[Roncancio]

Ik heb de code niet achter een knop gezet maar bij het Change event van het werkblad.

Zodra je een wijziging aanbrengt in cel B2 vindt de sortering plaats.

Met vriendelijke groet,


Roncancio

 

[popipipo]

Roncancio
Hartelijk dank het werkt perfect zo hoef ik zelf niet eens een knop te gebruiken,
Echter.... De sorteerdata staan in een ander tabblad en ik kom er niet uit hoe ik dat nu moet inbouwen.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("B2").Address Then
    Set zk = Sheets("data").Select("C1:N1").Find(Range("B2").Value, LookIn:=xlValues, lookat:=xlWhole)
    Sheets("data").Select("C2:N882").Select.Sort key1:=zk.Offset(1, 0)
End If
End Sub

Dit heb ik er van gemaakt want de gegevens staan in tabblad 'data' met een range van C1:N882

Het zal ongetwijfeld een klein dingetje zijn maar mijn kennis van het VBA is niet toereikend daarvoor.

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("B2").Address Then
    Set zk = Sheets("data").Range("C1:N1").Find(Range("B2").Value, LookIn:=xlValues, lookat:=xlWhole)
    Sheets("data").Range("C2:N882").Sort key1:=zk.Offset(1, 0)
End If
End Sub

Volgens mij is het zo.

Met vriendelijke groet,


Roncancio

 

[popipipo]

Volgens mij is het zo.

Volgens mij ook.

Hartelijk dank

 

[Roncancio]

Volgens mij ook.

Hartelijk dank

Gaarne de vraag nog op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio