Find a letter "O" and convert the number in Negative in another Range

[Dinesh_Excel]

Hello Friends,

Need your help here ..I need to find a letter "O" from the range column T and convert the existing number in column L to negative.

For Example:

Row no 10 having 71.58 should be changed to -71.58
similarly Row no 26 should be also changed to -71.58.

Appreciate your help on the same.

 

[chirayu]

Sub O_Negative()

Dim LstRow As String
Dim Rng As Range
Dim SubRng As Range

LstRow = Cells(Rows.Count, "L").End(xlUp).Row
Set Rng = Range("T2:T" & LstRow)

For Each SubRng In Rng
    If SubRng = "O" Then
        Range("L" & SubRng.Row) = Range("L" & SubRng.Row) * -1
    End If
Next SubRng

End Sub

 

[Marc L]

Hi !

According to the attachment, an Excel way :​

Sub Demo1()
    V = ActiveSheet.UsedRange.Rows.Count
    Range("L2:L" & V).Value2 = Evaluate(Replace("IF(T2:T#=""O"",-L2:L#,L2:L#)", "#", V))
End Sub

Do you like it ? So thanks to click on bottom right Like !
​