• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Namen Auto alfabetisch via code of formule?

Status
Niet open voor verdere reacties.
Hallo Eric

Dat kan b.v. met een opgenomen macro'tje.

Mvg
Peter
 

Bijlagen

  • PBcodeEric1.xlsb
    22,1 KB · Weergaven: 36
Hey peter,
Macro geeft fout: Fout 438, wordt niet ondersteund, maar je oplossing was niet wat ik bedoelde.
Ik zou graag hebben als ik een naam toevoeg en naar tweede cel ga hij al automatisch sorteert zonder ik een knop moet drukken, begrijp je?

Toch tof om het zo te bekijken!
MVG, Eric
 
Hallo Eric

Hier zullen dus de echte VBA goeroes aan te passen dienen te komen.
Daar heb ik helaas te weinig kaas van gegeten.
Ik hoop dat deze een oplossing voor je hebben en/of een andere zienswijze.

Succes
Peter.
 
Hey Peter59,

Het is niet erg, je hebt tenminste geprobeerd, waarvoor veel dank!
Ik wens je nog een prettig weekend verder.
mvg, Eric
 
Vervang
Code: 
ActiveWorkbook.Worksheets("Blad2").Sort.SortFields.Add[COLOR=#FF0000]2[/COLOR] Key:=Range("D2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
Door
Code: 
ActiveWorkbook.Worksheets("Blad2").Sort.SortFields.Add Key:=Range("D2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers

@peter59
Waarschijnlijk heb jij Excel365 die gebruikt .add2, oudere versies gebruiken .add
 
Laatst bewerkt:
Hey,
Sorry helpers, maar de code werkt niet, of ik plaats ze verkeerd?
Kan iemand het in mijn bestand aan de praat krijgen a.u.b.
alvast bedankt
mvg, Eric
 
@Alphamax

Dank voor de tip.
Ik gebruik idd Excel365.

Mvg
Peter
 
In je vraag staat ook nergens welk blad gesorteerd moet worden.
Ik ga uit van blad2.

De code plaatsen in de bladmodule van blad2.
Let op: code sorteert pas bij het invullen van kolom E.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 5 Then Cells(3, 4).CurrentRegion.Sort [d3], , [e3], , , , , 2
End Sub
 
Hey,
is mooi in het bestand , maar ik zou gewoon onderaan de lijst een naam willen invullen en dat hij dan sorteert van a-z!
Hopend op een oplossing,
mvg, Eric
 
Hoi Edmoor,

Kan je bijlage niet openen, kan je het misschien toepassen in mijn bestandje?
Thanks, Eric
 
Ik zou pas sorteren nadat ook de postcode is ingevuld. Je kan ook beter gebruik van een tabel maken. Dan loopt het bereik van de datavalidatie automatisch mee en hoef je ook geen Vlookup obv een hele kolom te doen.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, ListObjects(1).DataBodyRange.Columns(2)) Is Nothing And Target.Count = 1 Then
    With ListObjects(1).Range
      .Sort .Cells(1), , .Cells(1, 2), , , , , 1
    End With
  End If
End Sub
 

Bijlagen

  • PBcodeEric1.xlsm
    19,2 KB · Weergaven: 35
Code in #10 staat voor je klaar voor je eigen bijlage.

Je moet enkel je validatielijst aanpassen met een verschuiving in je name manager.
 
Alle andere reacties negeer je voor het gemak maar? Kolom A is leeg!
 
ericroodhooft zei:
He Edmoor,
Kan dit ook enkel voor 1 kolom vb kolom A?
Thanks, Eric
Klik om te vergroten...

Hij doet het voor 1 kolom.
Dan verander je D toch in A?

Daarnaast, wees eerst duidelijk in wat je echt wil.
Nu worden er dingen voor je gedaan die je ineens anders wil.
Dat motiveert niet echt.

En de andere voorstellen heb je ook al getest?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan