Putting a text after a specific cell

[jamongkim]

Hi! please help me to figure out on how to put a text if only nothing follows to the word "TRIMFORM". below is the code that I used. Thanks in advance

Sub try()
Dim c As Range
For Each c In Range("D2:D429")
If c.Value Like "*TRIMFORM*" Then
c.Offset(1, 0).EntireRow.Insert
c.Offset(1, 0).Value = "Epoxy"
End If
Next c
End Sub

 

[JackDanIce]

Welcome to the board. Do you mean:

IF c.Value = "TRIMFORM" Then

Your code is using LIKE *TRIMFORM* which finds any cell that contains TRIMFORM in it's value.
C.Value = "TRIMFORM" is testing when it exactly equals "TRIMFORM"

 

[jamongkim]

I will remove like? I'm sorry. I just started learning the vb on excel. The word epoxy should only be added if nothing follows or a blank cell to the word trimform

 

[jamongkim]

I will remove like? I'm sorry. I just started learning the vb on excel. The word epoxy should only be added if nothing follows or a blank cell to the word trimform

 

[JackDanIce]

Try changing:

If c.Value Like "*TRIMFORM*" Then

To

If c.Value = "TRIMFORM" Then

 

[jamongkim]

https://ibb.co/gqQ2Ow

Please see my captured result of the code you suggested, I want the results to be just the second encircled one. I don't need to add epoxy if there is already a word after trimform which is like the first encirlced one. Pls help me. TIA!

 

[jamongkim]

https://ibb.co/gqQ2Ow

Please see my captured result of the code you suggested, I want the results to be just the second encircled one. I don't need to add epoxy if there is already a word after trimform which is like the first encirlced one. Pls help me. TIA!

Please help me guys!

 

[Fluff]

How about

Sub try()
Dim c As Range
For Each c In Range("D2:D429")
    If c.Value Like "FOXG1" And c.Offset(1) = "" Then
        c.Offset(1, 0).EntireRow.Insert
        c.Offset(1, 0).Value = "Epoxy"
    End If
Next c
End Sub

 

[jamongkim]

Wow! It works perfectly! Thank you so much!

 

[Fluff]

Glad to help & thanks for the feedback