Create Specific Text down Column Based on Specific Text in Another Column

[AlwaysLearning2018]

Hi All,

I have created the below macro that will populate a value in 1 specific cell based on 1 specific cell in a different column. My question is how do I look at the entire column for that word and populate the other word down a different column Any help would be much appreciated!


Sub Comments()


If Worksheets(1).Range("D54").Value = "Variation Margin" Then
Worksheets(1).Range("I75").Value = "Futures Margin"

End If
End Sub

 

[AlwaysLearning2018]

Hi fluff,

Sorry it did work! Awesome. Thank you VERY much for your help.

 

[AlwaysLearning2018]

Last question . I have a few more different keywords in the same column that I need to generate different words in the other same column. How can I achieve that? I tried the same formula but just started new lines and changed the words but the macro only acted on the last set not the first in line.

 

[Fluff]

You can do it like

Sub AlwaysLearning2018()
   With Range("F2", Range("C" & Rows.Count).End(xlUp).Offset(, 3))
      .Value = Evaluate(Replace("If(@=""Variation Margin"",""Futures Margin""," & .Address & ")", "@", .Offset(, -3).Address))
      .Value = Evaluate(Replace("If(@=""Repo"",""Repo Margin""," & .Address & ")", "@", .Offset(, -3).Address))
   End With
End Sub

But this will insert a 0 in col F if col C does not match one of the Phrases.

 

[AlwaysLearning2018]

Thank got so much for the help. This is excellent. Any way to not have the 0's appear?

 

[Fluff]

Try

Sub AlwaysLearning2018()
   With Range("F2", Range("C" & Rows.Count).End(xlUp).Offset(, 3))
      .Value = Evaluate(Replace("If(@=""Variation Margin"",""Futures Margin""," & .Address & ")", "@", .Offset(, -3).Address))
      .Value = Evaluate(Replace("If(@=""Repo"",""Repo Margin""," & .Address & ")", "@", .Offset(, -3).Address))
      .Value = Evaluate(Replace("If(@=0,"""",@)", "@", .Address))
   End With
End Sub

 

[AlwaysLearning2018]

Worked perfectly! I appreciate your help very much!!

 

[Fluff]

You're welcome