Namen Auto alfabetisch via code of formule?

[ericroodhooft]

Hallo,
Nee wil ik niet negeren, maar wil de code plakken in een bestand dat ik hier niet kan plaatsen, mijn excuus daarvoor,
Hoop dat je wil helpen?
MVG, Eric

 

[edmoor]

IK zei al wat je dan moet doen.
Wijzig de gebruikte ranges "D" en "E" in "A" en "B"
En Target.Column = 4 maak je dan 1 van.

 

[ericroodhooft]

Hey edmoor
Dit heb ik aangepast, weet niet maar doet het niet bij mij?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 And Target.Count = 1 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target.Value)
LR = Range("B3").CurrentRegion.Rows.Count + 1
Application.EnableEvents = True
Range("B3:c" & LR).Select
ActiveWorkbook.Worksheets("ADRES").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ADRES").Sort.SortFields.Add _
Key:=Range("B3"), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers

With ActiveWorkbook.Worksheets("ADRES").Sort
.SetRange Range("B3:B600" & LR)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Cells(Target.Row + 1, 4).Select
Application.ScreenUpdating = True
End If
End Sub

Kan jij de fout vinden? Hij zou enkel moeten werken met kolom B op tabblad ADRES
Thanks

 

[edmoor]

Nu moet het dus ineens weer kolom B zijn.
Dan is If Target.Column = 1 uiteraard niet goed.
Probeer eens per regel te achterhalen wat het precies doet om het zelf te begrijpen.

NB:
Als je code plaatst, zet deze dan in code tags.

 

[VenA]

Deze ook maar eens lezen https://www.helpmij.nl/forum/announcement.php?f=5

 

[ericroodhooft]

He Edmoor,
Wist niet dat ik dat zo niet mocht plaatsen! Sorry
Heb colum verandert in 2. Maar hij doet het nog steeds niet! Help please, ken niets van vba
mvg , Eric

 

[VenA]

Omdat het linkje nog op het klembord staat Begin hier: https://michaelaustinfu.files.wordpress.com/2013/03/excel-vba-for-dummies-3rd-edition.pdf

 

[edmoor]

Voor deze keer dan. Deze gebruikt de kolommen B en C:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 1 And Target.Count = 1 Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        Target.Value = WorksheetFunction.Proper(Target.Value)
        LR = Range("B2").CurrentRegion.Rows.Count + 1
        Application.EnableEvents = True
        Range("B2:C" & LR).Select
        ActiveWorkbook.Worksheets("Blad2").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Blad2").Sort.SortFields.Add _
            Key:=Range("B2"), _
            SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:= _
            xlSortTextAsNumbers
            
        With ActiveWorkbook.Worksheets("Blad2").Sort
            .SetRange Range("B2:C" & LR)
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        Cells(Target.Row + 1, 2).Select
        Application.ScreenUpdating = True
    End If
End Sub

 

[ericroodhooft]

Hierbij de verandering

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 1 And Target.Count = 1 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target.Value)
LR = Range("b3").CurrentRegion.Rows.Count + 1
Application.EnableEvents = True
Range("b3:b" & LR).Select
ActiveWorkbook.Worksheets("ADRES").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ADRES").Sort.SortFields.Add _
Key:=Range("b3"), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers

With ActiveWorkbook.Worksheets("ADRES").Sort
.SetRange Range("b:c" & LR)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Cells(Target.Row + 1, 4).Select
Application.ScreenUpdating = True
End If
End Sub

 

[edmoor]

Dat is de QUOTE tag en niet de CODE tag.
Zie het verschil met wat ik in #28 plaatste.

 

[ericroodhooft]

He Edmoor,
Zal in het vervolg beter oppassen!
Heb hem getest en toch even aangepast, (naam tabblad en begin cel) en hij DOET HET!!
Hartelijk bedankt, je hebt iets te goed van mij!

Met vriendelijke groeten en goed weekend nog.

Zal de vraag op opgelost zetten!