opslaan via macro met in de naam gegevens uit 2 verschillende cellen

[davylenders123]

Ik wil via een macro dat het bestand wordt opgeslagen op een bepaalde plaats .
En als naam moet worden genomen "Reparatieaanvraag voor" en daarna komt nu al een tekst te staan die in cel A2 wordt ingevoerd.(dat is de code die ik tot nu toe al heb)

Nu zou ik ook nog graag hebben dat hij een datum en tijd (01/03/2017 20:14) uit cel F2 mee neemt in de naam.
Kan dit en zoja hoe ?

Hieronder de code die ik tot nu toe al heb. Slaat op in bepaalde map als naam "Reparatieaanvraag voor" gevolgd door wat in cel A2 staat

ActiveWorkbook.SaveAs Filename:=("G:\Pakketten\Everyone\Facilities\Reeds aangevraagd" & "\Reparatieaanvraag voor  " & [Reparatie!A2] & ".xls")

 

[edmoor]

Zoiets:

ActiveWorkbook.SaveAs Filename:=("G:\Pakketten\Everyone\Facilities\Reeds aangevraagd" & "\Reparatieaanvraag voor  " & [Reparatie!A2] & Format(Reparatie![F2], "DDMMYYYYHHMM") & ".xls")

Zelf zou ik kiezen voor een leesbaarder vorm:

    Pad = "G:\Pakketten\Everyone\Facilities\Reeds aangevraagd\"
    Bst = "Reparatieaanvraag voor  " & [Reparatie!A2] & _
          Format(Reparatie![F2], "DDMMYYYYHHMM") & ".xls"
    
    ActiveWorkbook.SaveAs Filename:=Pad & Bst

 

[davylenders123]

Edmoor

Bedankt al voor de snelle reactie weer :thumb:

Heb bijde codes geprobeerd maar loopt er steeds op vast

Heb het bestandje ter verduidelijking even toegevoegd

als er ergens een code zordt gevraagd is het 0000

Bekijk bijlage Doorgeven van reparaties.xls

 

[VenA]

Bst = "Reparatieaanvraag voor  " & Sheets("Reparatie").[A2] & _
          Format(Sheets("Reparatie").[F2], "DDMMYYYYHHMM") & ".xls"

 

[davylenders123]

VenA

met deze code is het gelukt.

 Pad = "G:\Pakketten\Everyone\Facilities\Reeds aangevraagd\"
    Bst = "Reparatieaanvraag voor  " & Sheets("Reparatie").[A2] & _
          Format(Sheets("Reparatie").[F2], "DD MM YYYY  HH MM") & ".xls"

    
    ActiveWorkbook.SaveAs Filename:=Pad & Bst

Enkel wil ik nog een spatie tussen de 2
naam uit a2 spatie datum f2
in de datum is me dat gelukt met een spatie , maar tussen de 2 lukt me niet

 

[VenA]

Bst = "Reparatieaanvraag voor  " & Sheets("Reparatie").[A2] & Format(Sheets("Reparatie").[F2], " DD MM YYYY  HH MM") & ".xls"

of

Bst = "Reparatieaanvraag voor  " & Sheets("Reparatie").[A2] & " " & Format(Sheets("Reparatie").[F2], "DD MM YYYY  HH MM") & ".xls"

 

[davylenders123]

Beide

Bedankt voor jullie snelle hulp :thumb: