IF THEN NEXT macro over large range

[CordingBags]

I need a macro to,
IF i5=-99 THEN delete A5:C5,
then it needs to move to cell i6 and perform the same check IF i6=-99 THEN delete A6:C6.
Needs to keep repeating this line by line check until reaching i1057.

I don't expect necessarily to see the cursor moving through the sheet, just to end up with the cells in A5:C1057 deleted, if the content of their corresponding row i cells were-99.(minus 99).

Any help suggestion much appreciated.

 

[Joe4]

Welcome to the Board!

Do you want to just clear columns A-C, or physically delete the data, so that cells move up?
If delete, do you want to delete the WHOLE row, so all columns move up, or just columns A-C?

 

[CordingBags]

No just need the colums cleared, absolutely no requirement to move cells up.
If it speeds things, the data is pre sorted. Having found the first minus 99, then all remaining rows to 1057 will also be minus 99, currently row 659 is the first but this will change up & down.
Many Thanks for your help

 

[igold]

Is there data in Columns D-H, and do you want the -99 in Column I to go away as well...

 

[Joe4]

Here us one way:

Sub MyDeleteRows()

    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Loop through all rows
    For r = 5 To 1057
'       Clear columns A-C if column i is -99
        If Cells(r, "I").Value = -99 Then Range(Cells(r, "A"), Cells(r, "C")).ClearContents
    Next r
    
    Application.ScreenUpdating = True
    
End Sub

 

[CordingBags]

Here us one way:

Sub MyDeleteRows()

    Dim r As Long
   
    Application.ScreenUpdating = False
   
'   Loop through all rows
    For r = 5 To 1057
'       Clear columns A-C if column i is -99
        If Cells(r, "I").Value = -99 Then Range(Cells(r, "A"), Cells(r, "C")).ClearContents
    Next r
   
    Application.ScreenUpdating = True
   
End Sub

Works most excellently. Thanks very much

 

[Joe4]

You are welcome.