VBA - To look at data in one column/cell then put something into another column/cell

[jezvanderbrown]

Can anyone help me in creating a VBA/macro please as I'm not sure how to go about it. It would really help...

The below link/picture is the data i have.
https://www.dropbox.com/s/1hzdoqja61seyhs/Capture1.JPG

I want the macro to look at column C and put one of the following in the cell next to it in column D;

if there is a + in a Cell in column C then put the word 'Broad' in the cell next to it in column D.

if there is only 1 word in a cell in column C whether it contains a + or not, then put the word 'Broad' in the cell next to it in column D.

if there is 2 or more words in a cell in column C and it doesn't contain a + then put the word 'Phrase' in the cell next to it in column D.


What i want the macro to achieve is in the below link/picture.
https://www.dropbox.com/s/n3159s5532c1h0p/Capture2.JPG

Many Thanks

Jez

 

[wrightyrx7]

You can try this, let me know how you get on.

Option Explicit

Sub test()
Dim Rng As Range, i As Range


With ActiveSheet
    Set Rng = .Range("C2:C" & .Range("C" & Rows.Count).End(xlUp).Row)
    For Each i In Rng
        If InStr(1, i.Text, "+", 1) > 0 Or InStr(1, i.Text, " ", 1) = 0 Then
        i.Offset(0, 1).Value = "Broad"
        Else
        i.Offset(0, 1).Value = "Phrase"
        End If
    Next i
End With
End Sub

 

[jezvanderbrown]

Works perfectly! This'll save me a lot of time! thanks alot, really appreciate it

 

[wrightyrx7]

No problem, thank you for the feedback