| Home |
| Search |
| Today's Posts |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to delete rows with different data
Hey, that looks familiar!
Ron de Bruin wrote: Here is another one from Dave that use find with a inputbox http://www.rondebruin.nl/delete.htm#Find -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Dave Peterson" wrote in message ... One way: Option Explicit Sub testme02() Dim myRng As Range Dim FoundCell As Range Dim wks As Worksheet Dim myStrings As Variant Dim iCtr As Long myStrings = Array("D", "GL", "NO", "REPO", "RUN") Set wks = ActiveSheet With wks Set myRng = .Range("a3:a" & .Rows.Count) End With For iCtr = LBound(myStrings) To UBound(myStrings) Do With myRng Set FoundCell = .Cells.Find(what:=myStrings(iCtr), _ after:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ lookat:=xlWhole, _ searchorder:=xlByRows, _ searchdirection:=xlNext, _ MatchCase:=False) If FoundCell Is Nothing Then Exit Do Else FoundCell.EntireRow.Delete End If End With Loop Next iCtr End Sub Tasha wrote: I need a macro to find data in cell column 1, starting in cell A3 that contains the data "D", "GL", "NO", "REPO" and "RUN". I need it to find these cells, and if that cell contains any of the noted data above, to delete the entire row. Can someone help me with this? I've tried using some of the macros mentioned in this forum, but was only for one variable, and I wasn't sure how to do it with multiple variables???? Any help appreciated!!! -- Dave Peterson -- Dave Peterson |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro to delete blank rows in a data range | Excel Discussion (Misc queries) | |||
| Macro to delete rows containing specific data | New Users to Excel | |||
| delete data rows in excel by using a macro? | Excel Programming | |||
| Macro to delete rows with same data | Excel Worksheet Functions | |||
| delete rows using macro when no data in column | Excel Programming | |||
Threaded Mode
