VBA code to zero out gross margin if it is forecast sales order

[ageboo43]

If column E (customer Name) contains the word "Forecast", then zero out value in column M (gross margin).
Data range will varies every day, row 4 is header, data value will be from row 5 to around row 3000. (size changes every day, but 3000 rows will probably cover them all).
Please help. And thank you in advance.

 

[Joe4]

Welcome to the Board!

Try this procedure:

Sub MyClearMacro()

    Dim lr As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row with data in column E
    lr = Cells(Rows.Count, "E").End(xlUp).Row
    
'   Loop through all rows starting in row 5
    For r = 5 To lr
'       Check column E for the word "Forecast"
        If InStr(1, UCase(Cells(r, "E")), "FORECAST") > 0 Then
'           Zero out column M
            Cells(r, "M") = 0
        End If
    Next r
    
    Application.ScreenUpdating = True
    
End Sub

 

[ageboo43]

Welcome to the Board!

Try this procedure:

Sub MyClearMacro()

    Dim lr As Long
    Dim r As Long
   
    Application.ScreenUpdating = False
   
'   Find last row with data in column E
    lr = Cells(Rows.Count, "E").End(xlUp).Row
   
'   Loop through all rows starting in row 5
    For r = 5 To lr
'       Check column E for the word "Forecast"
        If InStr(1, UCase(Cells(r, "E")), "FORECAST") > 0 Then
'           Zero out column M
            Cells(r, "M") = 0
        End If
    Next r
   
    Application.ScreenUpdating = True
   
End Sub

It works perfectly. Thank you very much.

 

[Joe4]

You are welcome.
Glad I was able to help!