Hi all. Running currently the below macro;
Sub PRODTRACKSummary_Button1_Click()
Application.ScreenUpdating = False
Dim PS As String
Dim SavePath As Variant
Dim FileName As String
Val2 = Format(Range("D1").Value, "ddmmyyyy")
PS = Left(ActiveSheet.Name, 4)
SavePath = "F:\Data\2579\13 Progress Reporting Programming\03 Daily Diary\Lateral Development\Current Month\Prodtrack Summary"
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName:= _
SavePath & "\" & Val2 & " " & "ProdTrak Summary" & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub
I want to change the masterdate after each save, but the addition was crashing my VBA macros.
Range("D1") = Range("D1") + 1
Can anyone help me with this? Also, how would I add a pop up to confirm data input prior to executing the save function?
Sub PRODTRACKSummary_Button1_Click()
Application.ScreenUpdating = False
Dim PS As String
Dim SavePath As Variant
Dim FileName As String
Val2 = Format(Range("D1").Value, "ddmmyyyy")
PS = Left(ActiveSheet.Name, 4)
SavePath = "F:\Data\2579\13 Progress Reporting Programming\03 Daily Diary\Lateral Development\Current Month\Prodtrack Summary"
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName:= _
SavePath & "\" & Val2 & " " & "ProdTrak Summary" & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub
I want to change the masterdate after each save, but the addition was crashing my VBA macros.
Range("D1") = Range("D1") + 1
Can anyone help me with this? Also, how would I add a pop up to confirm data input prior to executing the save function?