Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find a cell then delete the row
Jessi,
I think this will work Sub FindBase() Dim c As Range On Error Resume Next Set c = Range("A1:A100").Find(what:="BASE", LookIn:=xlValues) On Error GoTo 0 If Not c Is Nothing Then c.EntireRow.Delete End If End Sub -- HTH Bob Phillips "Jessi" wrote in message om... I'm very new to writing code of any kind and I don't really know where to start with this. I want to find a cell (I always know the column) and then delete the whole row. This is what I have that doesn't work at all: Sub FindBASE() ' This should delete the BASE row If ActiveSheet.Range("A1:A100").Value = "BASE" Then ActiveCell.EntireRow.Delete End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find last cell in a column, Delete its contents and make it active | Excel Worksheet Functions | |||
Find last cell in a column, Delete its contents and make it ac | Excel Worksheet Functions | |||
"Last Cell" to find last row, but can't delete blank rows | Excel Discussion (Misc queries) | |||
find cell that contains text and delete entre row | Excel Discussion (Misc queries) | |||
FIND THE CALCULATED VALUE OF A CELL AND DELETE IT FROM ANOTHER | Excel Discussion (Misc queries) |