Hello and thank you for you help.
Basically I would like a macro that works through column A and deletes the row if a value is between 90000000 and 99999999.
an example of the data I am using
aa123456
ab123456
ac456879
zz123456
90000000
95134756
I would like the macro to delete the 90000000 and 95134756
so the data would be like
aa123456
ab123456
ac456879
zz123456
There can be up to 10,000 rows of data if this make a difference
Thank you in advance for you help
Found easily on the net and edited to meet your needs:
Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("A:A"), ActiveSheet.UsedRange) For Each cell In rng If (cell.Value) >= 90000000 And (cell.Value) <= 99999999 Then If del Is Nothing Then Set del = cell Else: Set del = Union(del, cell) End If End If Next cell On Error Resume Next del.EntireRow.Delete End Sub
If the solutions provided within this Thread takes care of your question:
Please mark your thread as Solved by selecting Thread Tools (just above your first post) --> Mark thread as solved.
You can also click on * (star) Add Reputation to add reputation to those who have put their time and efforts to help you in this Thread.
This is another way to say Thank You to them.
This is not as neat as JRidges Code but it should be faster:
Sub Macro1() Dim del As Range LR = 1 MYLoop: Range(Cells(LR, 1), Cells(Rows.Count, 1).End(xlUp)).Select If (ActiveCell.Value) >= 90000000 And (ActiveCell.Value) <= 99999999 Then GoTo CountLoop Selection.Find(9, LookIn:=xlValues, Lookat:=xlPart).Activate CountLoop: If (ActiveCell.Value) >= 90000000 And (ActiveCell.Value) <= 99999999 Then If del Is Nothing Then Set del = ActiveCell Else: Set del = Union(del, ActiveCell) End If End If LR = ActiveCell.Row + 1 If Cells(LR, 1).Value <> "" Then GoTo MYLoop On Error Resume Next del.EntireRow.Delete On Error GoTo 0 End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
John Swift 
Register To Reply
Bookmarks