want to delet greater than 3, loop not wroking taking long time

[husayn]

I WANT TO DELET >3, IF IN COLUM C NUMBER IS GREATER THAN 3 THAN DELET THAT ROW, MY DATA IS AROUND 45-50 THOUSAND IT MAY CONATINS -7000,-5000,5000,6000,5,4. BUT I WANT TO DELET ONLY THE ROW WHICH IS GREATER THAN (>)3.

<colgroup><col width="227"></colgroup><tbody>
</tbody>

LOOPING IS TAKING VERY LONG TIME NEED SUGGESTION.

 

[Derek Brown]

It may help to give an answer if you could you post the code that you are using, please.

 

[My Aswer Is This]

Try this:

Sub Auto_Filter_New()
'Modified 10-24-17 5:20 AM EDT
Application.ScreenUpdating = False
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    With Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row)
        .AutoFilter Field:=1, Criteria1:=">3"
        
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .AutoFilter
    End With
Application.ScreenUpdating = True
End Sub

 

[husayn]

It may help to give an answer if you could you post the code that you are using, please.

Dim LR As Long
Dim i As Long
Dim c As Range
LR = Cells(Rows.Count, 3).End(xlUp).Row
For i = LR To 1 Step -1
Set c = Range("C" & i)
If Right(c, 2) > 3 Then c.EntireRow.Delete
Next i

 

[My Aswer Is This]

My script looks for number >3

Not sure what this means:
IT MAY CONATINS -7000,-5000,5000,6000,5,4.

 

[husayn]

Try this:

Sub Auto_Filter_New()
'Modified 10-24-17 5:20 AM EDT
Application.ScreenUpdating = False
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    With Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row)
        .AutoFilter Field:=1, Criteria1:=">3"
        
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .AutoFilter
    End With
Application.ScreenUpdating = True
End Sub

thanku very much YES THIS IS WORKING its taking only few second to delet 50,000 rows. once again thanku very much

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

thanku very much YES THIS IS WORKING its taking only few second to delet 50,000 rows. once again thanku very much