Autosave messes with my VBA solution

Big Lar

Well-known Member
Joined
May 19, 2002
Messages
557
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?


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
 

Excel Facts

What did Pito Salas invent?
Pito Salas, working for Lotus, popularized what would become to be pivot tables. It was released as Lotus Improv in 1989.

Forum statistics

Threads
1,223,099
Messages
6,170,108
Members
452,302
Latest member
TaMere

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top