Help on Workbook close and workbook save events
Have written the following code for before close and before save
Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("A13:G512").Select Selection.Sort Key1:=Range("A13"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers Range("A13").Select End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Range("A13:G512").Select Selection.Sort Key1:=Range("A13"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers Range("A13").Select End Sub However I am getting a a 1004 error can you help. I feel i am so close but am having no joy. thanks in advance |
Help on Workbook close and workbook save events
Is the file read only?
Found this: [Method name] method of [object] class failed (Error 1004) An external error occurred, such as a failure to read or write from a file. The method cannot be used on the object. Possible reasons include the following: €¢ An argument contains a value that isn't valid. A common cause of this problem is an attempt to access an object that doesn't exist [for example, you tried to use Workbooks(5) when there were only three workbooks open]. €¢ The method cannot be used in the applied context. For example, some Range object methods require that the range contain data; if the range doesn't contain data, the method fails. €¢ An external error occurred, such as a failure to read or write from a file. For more information about the method, search Help for the method name. "Adam Harding" wrote: Have written the following code for before close and before save Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("A13:G512").Select Selection.Sort Key1:=Range("A13"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers Range("A13").Select End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Range("A13:G512").Select Selection.Sort Key1:=Range("A13"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers Range("A13").Select End Sub However I am getting a a 1004 error can you help. I feel i am so close but am having no joy. thanks in advance |
All times are GMT +1. The time now is 02:04 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com