Hallo,
Ik wil een excel bestand opslaan met als bestandsnaam 2 velden uit het bestand.
als voorbeeld op A1 staat "Hans", B1 staat "Juni_2016".
Ik wil dat het bestand opgeslagen wordt als c:\Hans Juni_2016.xlsm
Met 1 veld (a1) is het al gelukt, nu nog de 2e erbij
Sub opslaan()
'
' opslaan Macro
'
'
Range("D9").Select
ChDir "C:"
ActiveWorkbook.SaveAs Filename:="C:" & CStr(Range("A1").Value) & ".xlsm" ', FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Ik wil een excel bestand opslaan met als bestandsnaam 2 velden uit het bestand.
als voorbeeld op A1 staat "Hans", B1 staat "Juni_2016".
Ik wil dat het bestand opgeslagen wordt als c:\Hans Juni_2016.xlsm
Met 1 veld (a1) is het al gelukt, nu nog de 2e erbij
Sub opslaan()
'
' opslaan Macro
'
'
Range("D9").Select
ChDir "C:"
ActiveWorkbook.SaveAs Filename:="C:" & CStr(Range("A1").Value) & ".xlsm" ', FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub