Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
A bug : Run-time error '1004'
Hello,
I'm using Excel 2007 and with the help of a macro I wished to delete all rows above and all columns left to the specific cell of my worksheet. In the example for specific cell B4 the code is as follows: ------------------------------------------ Dim MyCol As Long, MyRow As Long Dim ForDelete As Range Dim MyAdress As String MyCol = 2 MyRow = 4 ' To delete rows If MyRow 1 Then MyAdress = "1:" & (MyRow - 1) Set ForDelete = ActiveSheet.Rows(MyAdress) ForDelete.Delete Set ForDelete = Nothing End If ' To delete columns If MyCol 1 Then MyAdress = "1:" & (MyCol - 1) Set ForDelete = ActiveSheet.Columns(MyAdress) ForDelete.Delete Set ForDelete = Nothing End If ------------------------------------------ It's weird that the first part of code for deletion of rows run successfully, the equivalent code for deletion of columns but ended with the error message:Run-time error '1004' Application-defined or object-defined error !? I have changed the problematic code with a bypass code: ------------------------- If MyRow 1 Then For i = MyRow - 1 To 1 Step -1 ActiveSheet.Rows(i).Delete Next i End If ------------------------- but I'm still curious, why my first code wasn't successful? Ivan |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
run time error 1004 general odbc error excel 2003 vba | Excel Programming | |||
Run time error 1004 Object defined error | Excel Programming | |||
Run Time Error 1004: Application or Object Defined Error | Excel Programming | |||
Run Time 1004 Error: Application or Object Difine Error | Excel Programming | |||
run-time error '1004': Application-defined or object-deifined error | Excel Programming |