Jun 04 2021 08:30 AM
Hi all,
Anyone knows how to automatically save a specific sheet from a workbook "Sheet 2" in a specific folder with a specific name depending on the cell A7 in "Sheet 1" with todays date?
Jun 04 2021 08:51 AM
@infinity94 Like this:
Sub SaveSheet()
Dim filename As String
filename = Worksheets("Sheet 1").Range("A7").Value & ".xlsx"
Worksheets("Sheet 2").Copy
ActiveWorkbook.SaveAs "c:\YourPathHere\" & filename, xlOpenXMLWorkbook
ActiveWorkbook.Close savechanges:=False
End Sub
Jun 04 2021 09:39 AM
Jun 04 2021 10:53 AM - edited Jun 04 2021 10:54 AM
@infinity94 You can use this of the path is in -say- A8:
Sub SaveSheet()
Dim filename As String
Dim filePath As String
filename = Worksheets("Sheet 1").Range("A7").Value & ".xlsx"
filePath = "c:\FirstPartOfPathHere\" & Worksheets("Sheet 1").Range("A8").Value
If Right(filePath, 1) <> "\" Then
filePath = filePath & "\"
End If
Worksheets("Sheet 2").Copy
ActiveWorkbook.SaveAs filePath & filename, xlOpenXMLWorkbook
ActiveWorkbook.Close savechanges:=False
End Sub
Jun 04 2021 10:55 AM
Jun 08 2021 09:43 AM
Jun 08 2021 11:53 AM