omdraaien van voor en achternaam

[HSV]

Nergens in die ene code verwijs je naar kolom DD.

 

[longron]

Nee dat klopt ,

hij plaatst de namen in de kolom CV.
( de namen in DD zijn een copy om de namen terug te zetten als het mis gaat bij het testen. )

 

[JEC.]

Zonder VBA, met hulpkolom geen optie?

 

[JEC.]

Voor als je het toch overweegt

 

[snb]

Wat een probleem toch:

=TRIM(MID(TEXT(DD86;"@ @");FIND(" ";DD86)+1;LEN(DD86)))

 

[JEC.]

Met een kleine drop down kun je snel switchen van omgedraaid naar niet omgedraaid.

 

[longron]

Beste alle,

ik wil het gewoon met een macro doen omdat ik met een menu gestuurd programma werk.

De waarde in cel CU1 is voor de gebruiker niet zichtbaar evenals de cellen in de rijen CV.

daarbij wil ik ook nog de mogelijkheid blijven gebruiken om de namen te sorteren. ( Dit doe ik met een andere routine.)

Ik probeer in de routine die ik gebruik te snappen waarom hij de namen niet terugzet.

 

[HSV]

Je bent gewoon twee nullen vergeten.

If ActiveSheet.Range("CU1").Value = "1" Then
sv = ActiveSheet.Range("CV85", ActiveSheet.Cells(Rows.Count, 1[SIZE=4][COLOR=#ff0000]00[/COLOR][/SIZE]).End(xlUp))

Activesheet is trouwens overbodig in je code.
Elk bereik genoemd in de code verwijst naar Activesheet.

 

[longron]

Thanks,

yes dat is hem. en ik ga je opmerking mbt active sheet meenemen.


Ik kan weer verder.

 

[HSV]

Voor de komma stelt een nul ook niet veel voor.

De "1" kan je zonder de dubbele quotes invullen.