Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reuel Other Help
Thanks to Reuel for your reply to an old post of mine. It had mostly
cleared up on a newer computer but has now raised its head again... I can only imagine because of the scheer number of lines in the spreadsheet (processing 360 lines now)... the piece of code that sometimes goes wrong is... Sheets("MonthlyReceipts").Copy After:=Sheets(2) 'because I don't want to redo the changes I am making with the macro ActiveSheet.Unprotect 'because it is protected ActiveSheet.Columns("E:E").Delete 'just because 'Deletes all 'blank' ActiveSheet.Range("A9:E9").AutoFilter Field:=5, Criteria1:="=" 'this does filter column E to only show blanks but then causes the error ActiveSheet.AutoFilter.Range.Select 'this would delete the blank rows and the first row of the Filter Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Delete Most of the time it is fine but now it is Filtering over 300 rows it errors everytime. Any help... |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reuel Other Help
Oddly... dealing in the same way with the only difference in the code being the omission of ActiveSheet.Columns("E:E").Delete the code works fine... however, there are less blanks in this one... Maybe I could just copy and paste Column F to E... |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reuel Other Help
Well goodness just a simple copy and paste DOES work!! Thanks anyway y'all. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|