Opslaan als , waarde van 2 cellen

Status
Niet open voor verdere reacties.
O

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
554
Geacht forum ,

Met onderstaande code wil ik in het mapje "Facturen 2017" opslaan een bestand
onder de naam welke te vinden is in de Cellen D7 en C8.
het moet er b.v. zo uitzien:
Als , D7 = Schipper
en C8 = 2017-25
Schipper 2017-25

Code: 
ActiveWorkbook.SaveAs Filename:= _
       "C:\Users\Gebruiker\Documents\Facturen 2017\" & Range("D7").Value & " " & Range("C8").Value.xls

Met bovenstaande code lukt het niet.
Wat moet het wel zijn??

Jaap
 
Code: 
Sub dotchie()
Dim FName As String
Dim FPath As String
    FPath = "C:\Users\Gebruiker\Documents\Facturen 2017"
    FName = Range("D7").Value & " " & Range("C8").Value
    ThisWorkbook.SaveAs Filename:=FPath & "\" & FName
End Sub
 
Code: 
ActiveWorkbook.SaveAs Filename:= _
       "C:\Users\Gebruiker\Documents\Facturen 2017\" & Range("D7").Value & " " & Range("C8").Value[COLOR=#ff0000] & ".xls"[/COLOR]
 
Probleem opgelost!!
Beide forumleden bedankt voor de geboden oplossingen

Vriendelijke groet Jaap
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan