Make value negative if it finds certain text

Hello:

I have excel worksheet with lots of data in column A thru Column P.

I need a VB macro to do the following:

I need to find word : "TERMS DISCOUNT" in column F and if it finds it then make the number in column H in corresponding
row negative.

Example:

If it finds word "TERMS DISCOUNT" in Cell F24, then make cell H24 negative.
If it finds word "TERMS DISCOUNT" in Cell F33, then make cell H33 negative.

Please let me know if any questions.

Thank you

Riz Momin

Hi rizmomin,

Try this macro:

Option Explicit
Sub Macro2()

    'Written by Trebor76
    'Visit my website www.excelguru.net.au
    
    'Converts a positive value in column H if the text in column F of the same row says 'TERMS DISCOUNT'.

    'http://www.excelforum.com/excel-programming-vba-macros/952291-make-value-negative-if-it-finds-certain-text.html

    Dim rngCell As Range
    
    For Each rngCell In Range("F1:F" & Range("F" & Rows.Count).End(xlUp).Row)
        If rngCell.Value = "TERMS DISCOUNT" Then
            If rngCell.Offset(0, 2).Value > 0 Then rngCell.Offset(0, 2).Value = rngCell.Offset(0, 2).Value * -1
        End If
    Next rngCell
    
    MsgBox "Process complete.", vbInformation

End Sub

HTH

Robert

Thanks for the feedback and you're welcome. Thanks also for marking the thread as solved and for adding to my reputation