alfabetisch sorteren in adressenlijst

[rossie61]

Hoi
wie kan mij helpen om een adres in vba automatisch te laten alfabetisch te zetten in vba als er een nieuwe regel wordt toegevoegdBekijk bijlage Lijst voor VBA adreslijst proef.xlsBekijk bijlage Lijst voor VBA adreslijst proef.xls
ik hoop dat er iemand mij snel kan helpen
rossie

 

[HSV]

Het is vrijwilligerswerk.

Private Sub Worksheet_Change(ByVal Target As Range)
'Zodra u de laatste kolom heeft ingevoerd, dan wordt de lijst
'gesorteerd en gaat de cursor naar de volgende lege cel in kolom A.
If Not Intersect(Target, Columns("F")) Is Nothing Then
 If Target.Count = 1 Then
   If Target.Offset(, -5) <> "" Then
     Cells(1).CurrentRegion.Sort [a1], , , , , , , xlGuess
     Application.Goto Cells(Rows.Count, 1).End(xlUp).Offset(1)
   End If
  End If
 End If
End Sub

 

[rossie61]

Dank je wel Harry geweldig nu loopt het. Goed van jou hoor. Ben geheel nieuw in vba en dit roept voor mij nog een paar vragen op.
Stel ik wil het op achternaam of op telefoonnummer selecteren hoe moet ik dat dan doen.
En als ik dit in een grotere lijst wil toe passen die bv. tot kolom p loopt hoe moet ik dat dan aanpakken.
groet
rossie

 

[VenA]

Als je op een andere kolom wil sorteren dan moet je deze aanpassen

Cells(1).CurrentRegion.Sort [COLOR="#FF0000"][a1][/COLOR], , , , , , , xlGuess

Als je eerste op achternaam en vervolgens op voornaam wil sorteren dan wordt het

Cells(1).CurrentRegion.Sort [B1], , [A1], , , , , xlGuess

Als je wil uitbreiden tot kolom P dan moet je deze aanpassen

If Not Intersect(Target, Columns([COLOR="#FF0000"]"F"[/COLOR])) Is Nothing Then

en deze

If Target.Offset(, [COLOR="#FF0000"]-5[/COLOR]) <> "" Then

 

[rossie61]

Dank je wel VenA voor het verder helpen met mijn vragen gaat het proberen en laat je het weten hoe het is gelukt. Ook heb ik ondertussen jullie gesteund. Top dat deze forum zo snel werkt. Rossie61

 

[rossie61]

VBA in adressenlijst zetten voor alfabeth te sorteren

Hallo VenA
ik heb de gegevens aangepast zoals je me aangaf te doen. Twee kolommen toegevoegd maar nu zit ik er mee dat de 2 laatste kolommen niet goed mee sorteren en de functie en geboortedata door elkaar heen gaan. Hoe kan ik dat oplossen? Zal het nieuwe document bijvoegen. Rossie61Bekijk bijlage VBA adreslijst proef C 5-5-15.xlsm

 

[HSV]

Nu wordt er gesorteerd op kolom H functie, daarna op B (achternaam).
Let wel dat je de functienamen (vrijw. → vrijw) hebt geschreven met en zonder een punt in je bestand.

Private Sub Worksheet_Change(ByVal Target As Range)
'Zodra u de laatste kolom heeft ingevoerd, dan wordt de lijst
'gesorteerd en gaat de cursor naar de volgende lege cel in kolom A.
If Not Intersect(Target, Columns("H")) Is Nothing Then
 If Target.Count = 1 Then
   If Target.Offset(, -7) <> "" Then
     Cells(1).CurrentRegion.Sort [h1], , [b1], , , , , xlGuess
     Application.Goto Cells(Rows.Count, 1).End(xlUp).Offset(1)
   End If
  End If
 End If
End Sub