Excel search and replace

[snhnic]

Ik heb in Excel lange bestands namen vanuit een directory structuur die ik wil verijderen op de laatste gegeven na.

zeg maar:

C:\Users\YLM\test\piet\klaas\gerrttje\vuistje\pes\hallo\
C:\Users\YLM\test\piet\klaas\gerrttje\vuistje\pes\\mark\triest\
C:\Users\YLM\test\job\pes\\mark\karin\

Ik wil dan dus overhouden het laatste van de regel - zie hieronder (het wijzigt dus wel telkens, want het komt uit een directory. kan dit met een macro of zoiets?

\hallo\
\triest\
\karin\

Eric

 

[Cobbe]

Kan je hier iets mee?

 

[snhnic]

Dat lijk de gode kant op te gaan. Maar eigenlijk moet het gewoon de hele kolom te vervangen.

Kan dit dan in een macro gestopt worden. Het gaat helemaal om kolom A

Eric

 

[Cobbe]

Trek die formule door naar beneden zover als nodig en vervang dan kolom A door de waarden van kolom B

 

[HSV]

Of:
In het bestand van @Cobbe.

Sub hsv()
Dim cl As Range
For Each cl In Columns(1).SpecialCells(2)
  cl = "\" & Split(cl, "\")(UBound(Split(cl, "\")) - 1) & "\"
Next cl
End Sub

 

[snhnic]

Dat gaat niet want eigenlijk zijn er nog extra regels.



C:\Users\YLM\test\piet\klaas\gerrttje\vuistje\pes\hallo\
leopold leer lopen
de groot is lui
C:\Users\YLM\test\piet\klaas\gerrttje\vuistje\pes\\mark\triest\
image 1
image 2
C:\Users\YLM\test\job\pes\\mark\karin\

Uiteindelijk zou het dan zo moeten worden:


hallo
leopold leer lopen
de groot is lui
triest
image 1
image 2
karin

 

[edmoor]

En daarom is een voorbeeldbestandje zo handig.

 

[HSV]

Zo is het precies @Edmoor.

Sub hsv()
Dim cl As Range
For Each cl In Columns(1).SpecialCells(2)
  If InStr(cl, "\") > 0 Then
    cl = Split(cl, "\")(UBound(Split(cl, "\")) - 1)
   Else
    cl = cl
  End If
Next cl
End Sub

 

[VenA]

cl.Font.Bold = True

moet er natuurlijk ook nog bij:d

 

[snhnic]

Hartelijk dank. het is gelukt. Zo blij. Ik moet honderden directories in excel opmaken. Nu is het zo gepiept.

Thanks