Need to add a character to a cell based on another cell criteria- VBA

[TsarMarkI]

Hey excel gurus,

I need help creating a VBA macro that will add characters to end of text in a cell based on criteria being met in another cell. This data is cleared and copied over daily, so I need a VBA solve if possible. For example:

Cell B5 contains the text "Planned Downtime"
Cell D5 contains the name of test equipment, in this case "Test1"
Would need the macro to add a "-P" on the end of the text in cell D5 whenever cell B5 has the text "Planned Downtime", so that it would look as so: "Test1-P"

My range for this data runs from B5:B50, and D5:D50. Any help would be greatly appreciated!

 

[Fluff]

How about

Sub TsarMarkl()
   With Range("D5:D50")
      .Value = Evaluate(Replace("If(" & .Offset(, -2).Address & "=""Planned Downtime"",@&""-P"",@)", "@", .Address))
   End With
End Sub

 

[kweaver]

Try this which doesn't consider the full range. Use Fluf's for the full range per your request.

Sub Tsar()
If ActiveSheet.Range("B5") = "Planned Downtime" Then
ActiveSheet.Range("D5") = ActiveSheet.Range("D5") & "-P"
End If
End Sub

 

[TsarMarkI]

Excellent, thank you both! Fluff, your answer worked great

 

[Fluff]

Glad we could help & thanks for the feedback