Hi
I got this code:
Private Sub GemSom_Click()
If Dir(ThisWorkbook.Path & "" & Range("b6").Value & " " & Date, vbDirectory) = "" Then
MkDir ThisWorkbook.Path & "" & Range("b6").Value & " " & Date
End If
'Dim Path As String
'Dim FileName As String
'FileName = Range("b6").Value & " " & Date
'ThisWorkbook.SaveAs ThisWorkbook.Path & "" & Range("b6").Value & " " & Date
End Sub
The MkDir makes a folder, but how do i get to save the file i the folder just created? Itried "ThisWorkbook.Path\Range("b6").Value & " " & Date" to try somthing but as expected it did not work.
Hope someone can help
I got this code:
Private Sub GemSom_Click()
If Dir(ThisWorkbook.Path & "" & Range("b6").Value & " " & Date, vbDirectory) = "" Then
MkDir ThisWorkbook.Path & "" & Range("b6").Value & " " & Date
End If
'Dim Path As String
'Dim FileName As String
'FileName = Range("b6").Value & " " & Date
'ThisWorkbook.SaveAs ThisWorkbook.Path & "" & Range("b6").Value & " " & Date
End Sub
The MkDir makes a folder, but how do i get to save the file i the folder just created? Itried "ThisWorkbook.Path\Range("b6").Value & " " & Date" to try somthing but as expected it did not work.
Hope someone can help
