MINCUS1308
05-07-2015, 07:31 AM
im doing something stupid and i dont know what it is.
I create a new workbook and paste a copied sheet into the workbook.
i do a
ActiveWorkbook.CheckCompatibility = False statement
and then i do a saveas statement
and follow it up with a
ActiveWorkbook.CheckCompatibility = True statement.
but when i run the macro excel is still prompting the user to check the compatibility.
any thoughts??
MINCUS1308
05-07-2015, 07:47 AM
for a reference i have posted the code below
Sub PrintingMacro() 'THIS SUB IS TO ALLOW FOR THE PRINTING AND AUTOMATIC SAVING OF INDIVIDUAL XXXXXXX DOCUMENTS
On Error GoTo A
'GRAB THE PRODUCT NAME AND THE BATCH NUMBER FOR NAMING AND SAVING PURPOSES
If ActiveSheet.Name = "Spanish" Then 'THE SPANISH VERISON IS JUST SLIGHTLY DIFFERENT. OPPS :P
ProductNumber = Trim(Cells(13, 14).Text)
BatchNumber = Trim(Cells(15, 14).Text)
Else 'THIS IS FOR THE OTHER 3 TEMPLATES
ProductNumber = Trim(Cells(13, 11).Text)
BatchNumber = Trim(Cells(15, 11).Text)
End If
On Error GoTo B
'CREATE A NEW WORKBOOK AND COPY AND PASTE ACTIVE SHEET INTO THE NEW FILE
Set NewBook = Workbooks.Add
ThisWorkbook.ActiveSheet.Copy Before:=NewBook.Sheets(1)
On Error GoTo C
'SAVE THE NEW WORKBOOK IN THE APPROPIATE FILE LOCATION WITH THE CORRECT FILE NAME
ActiveWorkbook.CheckCompatibility = False
ActiveWorkbook.SaveAs Filename:="XXXXXXXXX" & ProductNumber & "\" & ProductNumber & " " & BatchNumber & ".xls", FileFormat:=xlNormal
ActiveWorkbook.CheckCompatibility = True
On Error GoTo D
'CLOSE AND DONT SAVE ANY CHANGES MADE TO THE MASTER DOCUMENT
Workbooks("XXXXX").Close False
Application.ScreenUpdating = True
On Error GoTo 0
Exit Sub
'ERROR HANDELING SECTION
A:
MsgBox "SOMETHING WITTY", vbCritical, "ERROR - ALERT SECTION 'A'"
Exit Sub
B:
MsgBox "SOMETHING WITTY", vbCritical, "ERROR - ALERT SECTION 'B'"
Exit Sub
C:
MsgBox "SOMETHING WITTY", vbCritical, "ERROR - ALERT SECTION 'C'"
MsgBox "SOMETHING WITTY", vbCritical, "ERROR - ALERT SECTION 'C'"
Exit Sub
D:
MsgBox "SOMETHING WITTY", vbCritical, "ERROR - ALERT SECTION 'D'"
Exit Sub
End Sub
MINCUS1308
05-08-2015, 07:34 PM
Well... no one?
This was my work around.
Sub StupidWorkAround()
'ALL THE OTHER CRAP
Application.DisplayAlerts = False
'MY SAVEAS STATEMENT
Application.DisplayAlerts = True
'THE REST OF MY CRAP
End Sub
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.