Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find a cell then delete the row
One way for column A
Sub test() Dim Rng As Range Dim FindString As String Dim RngFound As Boolean FindString = "BASE" Application.ScreenUpdating = False Do Set Rng = Range("A:A").Find(What:=FindString, LookAt:=xlWhole) If Not Rng Is Nothing Then Rng.EntireRow.Delete: RngFound = True Loop While Not (Rng Is Nothing) Application.ScreenUpdating = True If Not RngFound Then MsgBox "No " & FindString & " entries were found" End Sub -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "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 | |||
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) | |||
Find a cell then delete the row | Excel Programming |