Excel Localizar e substituir valores VBA

[Robson Barros]

Bom dia

 

Estou precisando de um código que, ao localizar em na coluna "O" valores determinados, substituam por palavras.

 

Ex: Se os valores da cel O3 for menor que 0, substituir por "vencido".

 

Desde já agradeço.

 

[Scofieldgyn]

@Robson Barros segue Código

 

Sub substituir()

With ActiveSheet

  LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

End With

linha = 2

While linha < LastRow

  If ActiveSheet.Range("E" & linha) < 0 Then

    ActiveSheet.Range("E" & linha).Value = "VENCIDO"

  ElseIf ActiveSheet.Range("E" & linha) = "" Then

    ActiveSheet.Range("E" & linha).Value = 0

  End If

  linha = linha + 1

Wend

End Sub

 

[OreiaG]

Sub SubstituiNegativosNaColunaO()
 Columns(15).Replace "-*", "vencido"
End Sub