Werken met replace in een code

[tonissteiner]

Hallo,

ik zit wat in de knoei met een code.
Hoe kan ik volgende code:

Range("D10").Value = Replace(Range("D10").Value, "/", "_")

integreren in deze:

BestandsNaam = Sheets("Mechanical Checklist").[G10].Value & " - " & Sheets("Mechanical Checklist").[D10].Value & " - " & "Mechanical Checklist"

waarbij dit deel:

Sheets("Mechanical Checklist").[D10].Value

zou moeten vervangen worden door de eerste code.

Ik krijg het niet voor elkaar.

Alvast bedankt voor jullie reacties

 

[HSV]

Range("D10").replace "/", "-"

 

[tonissteiner]

bedankt voor de snelle reactie Harry,

ik doe nog wat verkeerd. ik plaats waarschijnlijk de haakjes verkeerd of ergens niet...

 

[HSV]

Beter?

bestandsnaam = Sheets("Mechanical Checklist").[G10].Value & " - " & replace(Sheets("Mechanical Checklist").[D10].Value, "/", "_") & " - " & "Mechanical Checklist"

 

[tonissteiner]

WOEHOEW dat is het. nu snap ik het ook.

bedankt Harry en prettig weekend

mvg,

Stefan

 

[HSV]

Graag gedaan Stefan.
Ook een goed weekend.

 

[snb]

Of ?

with Sheets("Mechanical Checklist")
    bestandsnaam = replace(join(array(.[G10],.[D10],.name),"-"),"/","_")
End With

 

[tonissteiner]

Hallo snb,

jij ook bedankt voor je reactie. Echter gaat jouw code mijn petje te boven, heb nog nooit gewerkt met deze join.
Maar bedankt voor de tip, ik sla jou code als commentaar mee op in mijn document zodat ik als ik die nog eens nodig ze eenvoudig weet te vinden.

Prettig weekend ook... en vergeet niet te drinken met dit warme weer