namen sorteren

[jelledasselaar]

Nee, dat kan ik helaas niet! dat begrijp ik niet. dus vandaar m'n vraag e.e.a. in een blanco map te zetten, zodat ik de namen daar op kan kopieren.

 

[HSV]

Bedoel je gewoon de code in het bestand?

 

[jelledasselaar]

Dag Harry,

'k heb alle namen op blad 1 geplakt (A1 tm H3515) en vervolgens Alt-F8. Dan komt er op blad 2 exact hetzelfde te staan als op blad 1, zonder dat het in de nieuwe volgorde komt.
Misschien nog ergens iets bijschaven?

 

[HSV]

Geen idee Jelle,
Zet het bestandje hier eens neer.

 

[jelledasselaar]

Dag Harry,

hierbij een voorbeeldje.
Bekijk bijlage HSV namen.xlsx

 

[HSV]

De eerste letter in kolom A is al een hoofdletter, vandaar.

 

[jelledasselaar]

OK Harry, heel goed gezien.
en als we de eerste kolom weghalen, dus vanaf kolom B beginnen?

 

[HSV]

Dan wordt de code als volgt Jelle.
Druk Alt+F11 → Menu Invoegen → Module.
In het grote witte vlak plak je onderstaande code.

Sub hsv()
Dim i As Long, sn, j As Long, sn0 As String
With Sheets("Blad1")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
 sn0 = Join(Application.Index(.Range(.Cells(i, 1), .Cells(i, 8)).Value, 1, 0), "|")
If Err.Number > 0 Then sn0 = ""
 sn = Split(sn0, "|")
  For j = 1 To 7
If Left(sn(j), 1) = UCase(Left(sn(j), 1)) Then
With Sheets("Blad2")
  .Cells(i, 1).Resize(, 8).ClearContents
  .Cells(i, 1) = sn(j)
  .Cells(i, 2).Resize(, 7) = Split(Replace(sn0, sn(j) & "|", ""), "|")
End With
     Exit For
   End If
     Next j
   Next i
 With Sheets("Blad2").Columns("A:H")
   .WrapText = False
   .AutoFit
 End With
 End With
End Sub

 

[jelledasselaar]

Heel Hartelijk bedankt Harry, het werkt prima!

H.gr.
Jelle

 

[HSV]

Graag gedaan, en mooi dat je nu weet om een code te plaatsen Jelle.

In je openingsvraag (als ik me niet vergis) kun je het nog als opgelost zetten.
B.v.d.

 

[jelledasselaar]

Ja, inderdaad Harry, 'k krijg de smaak te pakken van macro's! Mooi werk!