HI guys,
Below is my current VBA code, I need change a little bit, it't simply cope paste values of 2 sheets into new file with 2 sheet.
I would like to change naming convetion_Path, it should be name of current file, but just "Test_dd_mm_yyyy")
Also it; somehow possible to change data format in specifc column in sheets? I would like to change from Long data to short data, I have in one sheet one column with long date, and 2 columns in the second sheet.
Below is my current VBA code, I need change a little bit, it't simply cope paste values of 2 sheets into new file with 2 sheet.
I would like to change naming convetion_Path, it should be name of current file, but just "Test_dd_mm_yyyy")
Also it; somehow possible to change data format in specifc column in sheets? I would like to change from Long data to short data, I have in one sheet one column with long date, and 2 columns in the second sheet.
HTML:
Sub mcrSet_All_Values_and_Save_XLSX()
Dim w As Long
Application.EnableEvents = False
ThisWorkbook.Save
For w = 1 To Sheets.Count
Sheets(w).UsedRange = Sheets(w).UsedRange.Value
Next w
Application.DisplayAlerts = False
ThisWorkbook.SaveAs _
ThisWorkbook.Path & Chr(92) & _
Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, Chr(46)) - 1) & Format(Date, "_yyyy-mm"), _
xlOpenXMLWorkbook
Application.EnableEvents = True
End Sub