Sorteren

[don42]

Wie maakt mijn leven weer wat makkelijker...

ik heb een blad
waar in kolom "A" een 25 voornamen staan
in kolom "B"staan natuurlijk even veel achternamen
ik heb een macro-tje opgenomen dat selecteert tot A26
en dan naar rechts de kolom selecteert
is het mogelijk als ik er namen bij zet de selectei zich aanpast aan het aantal namen,

verder sorteer ik soms op achternaam en soms op voornaam

wie kan mij hier mee helpen?

Don

 

[VenA]

Even en voorbeeldje plaatsen met daarin jouw macro doet vaak wonderen.

 

[Roncancio]

Onderstaande code sorteert automatisch zodra een cel in kolom A of B wordt geselecteerd.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <= 2 Then Range("A1").CurrentRegion.Sort Cells(1, Target.Column)
End Sub

De kolommen A en B wordt oplopend gesorteerd en de cel in de 1e rij van de geselecteerde kolom geldt als criteria.

Met vriendelijke groet,


Roncancio

 

[don42]

Ik sta versteld van deze oplossing wat mooii hoe dit werkt.
Hier kom ik een heel eind mee
Nog 1 ding zou je ook kunnen maken dat 1 naam niet mee telt bv als ik een rij oversla
Heb nl een lijst ( namen van chauffers vervoersbedrif)
De naam van de reserve chauffer staat altijd onder aan de lijst
Dat zijn de gebruikers gewend
Als dit zou lukken zou het perfect zijn.

Don

 

[Roncancio]

Bij deze.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <= 2 Then Range("A1").Resize(Range("A1").End(xlDown).Offset(-1, 0).Row, 2).Sort Cells(1, Target.Column)
End Sub

Met vriendelijke groet,


Roncancio

 

[don42]

Heel erg bedankt voor deze oplossing
hoe krijg je het toch allemaal geregeld

top