With AutoSave ON:
I must close the active workbook after saving as .xlsx
Then, copy the active workbook again,
Delete the unnecessary columns and
SaveAs the .cvs
Otherwise, AutoSave performs the deletion and Autofit on the original copied worksheet.
This code works, but seems kind of “clunky”. Is there a better way?
I must close the active workbook after saving as .xlsx
Then, copy the active workbook again,
Delete the unnecessary columns and
SaveAs the .cvs
Otherwise, AutoSave performs the deletion and Autofit on the original copied worksheet.
This code works, but seems kind of “clunky”. Is there a better way?
Code:
Sheets("PLAYERS").Copy
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
‘Saves Updated Roster
ActiveWorkbook.SaveAs Filename:=Environ("UserProfile") & "\OneDrive\The Razz\DataBases\PLAYERS2018.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
Sheets("PLAYERS").Copy
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
'Creates updated Outlook Contact List
Columns("F:GZ").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Columns("A:E").AutoFit
ActiveWorkbook.SaveAs Filename:=Environ("UserProfile") & "\OneDrive\The Razz\DataBases\RazzContacts2018.csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
UserForm1.Show modeless
With UserForm1
.Height = 535.5
.Top = 50
.Left = 710
End With
End Sub