Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"delete method of range class failed
I get this error message "delete method of range class failed" when trying to do do a simple macro I have moved the END IF's to diff places - seems if there is nothing in E22 it does the delete shift up - then the next occurrance that is true generates the error Sheets("Sheet1").Visible = True Sheets("Sheet1").Select Range("E22").Select If ActiveCell = "" Then Range("A22:E22").Select Selection.Delete Shift:=xlUp Range("J22").Select If ActiveCell = "" Then Range("F22:K22").Select Selection.Delete Shift:=x1Up Range("K22").Select If ActiveCell = "" Then Range("F22:K22").Select Selection.Delete Shift:=x1Up Range("P22").Select If currentCell = "" Then Range("L22:P22").Select Selection.Delete Shift:=x1Up End If End If End If End If *** Sent via Developersdex http://www.developersdex.com *** |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
"delete method of range class failed
Give this a try
With Sheets("Sheet1") .Visible = True If .Range("E22").Value = "" Then _ .Range("A22:E22").Delete Shift:=xlUp If .Range("J22").Value = "" Then _ .Range("F22:K22").Delete Shift:=xlUp If .Range("K22").Value = "" Then _ .Range("F22:K22").Delete Shift:=xlUp If .Range("P22").Value = "" Then _ .Range("L22:P22").Delete Shift:=xlUp End With HTH Jim Thomlinson "Kathy Goldie" wrote: I get this error message "delete method of range class failed" when trying to do do a simple macro I have moved the END IF's to diff places - seems if there is nothing in E22 it does the delete shift up - then the next occurrance that is true generates the error Sheets("Sheet1").Visible = True Sheets("Sheet1").Select Range("E22").Select If ActiveCell = "" Then Range("A22:E22").Select Selection.Delete Shift:=xlUp Range("J22").Select If ActiveCell = "" Then Range("F22:K22").Select Selection.Delete Shift:=x1Up Range("K22").Select If ActiveCell = "" Then Range("F22:K22").Select Selection.Delete Shift:=x1Up Range("P22").Select If currentCell = "" Then Range("L22:P22").Select Selection.Delete Shift:=x1Up End If End If End If End If *** Sent via Developersdex http://www.developersdex.com *** |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
"delete method of range class failed
WOW - THAT WAS TOO SIMPLE THANKS FOR THE HELP :-) *** Sent via Developersdex http://www.developersdex.com *** |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Delete method of Range class failed - HELP!!! | Excel Programming | |||
VBA error 1004 "Select method of Range class failed" | Excel Programming | |||
Error 1004, "select method of range class failed" | Excel Programming | |||
runtime error '1004' delete Method of Range Class Failed | Excel Programming | |||
runtime error '1004' delete Method of Range Class Failed | Excel Programming |