Quantcast
Channel: Excel Help Forum - Excel Programming / VBA / Macros
Viewing all articles
Browse latest Browse all 50090

Pasting Macro Help

$
0
0
I have the below which works fine. However, when it paste whatever is in sheet Sel into a new workbook it does not paste over the format of one of the columns which is yyyy-mm-dd. Instead it changes it to dd/mm/yyyy. How can I change the below so that the format remains the same in column E ????
Code:

Sub TEST()

Dim wb As Workbook
Dim FileOpen
Application.DisplayAlerts = False


Set wb = ThisWorkbook

Workbooks.Add

wb.Sheets("Sel").UsedRange.Copy Sheets("Sheet1").Range("A1")



ChDir "C:\F\DMs"
ActiveWorkbook.SaveAs Filename:="C:\F\DMs\Sellers" & Format(Now, "ddmmyyyyhhmm") & ".csv", FileFormat:=xlCSV

ActiveWorkbook.Close False

Application.DisplayAlerts = True


End Sub


Viewing all articles
Browse latest Browse all 50090

Trending Articles