Hi All,

I am trying to write code, that looks in a text string in column a, it looks for a secific text, if true i want it to be a result in column n, but i am having problems. any help would be great.
here is my code so far

Sub Macro4()


    Dim a As Integer
    Sheets("Data").Select

    For a = 2 To Range("a65536").End(xlUp).Row
        If (InStr(1, Cells(a, 1).Value, "VLAB-Kerberos")) Then
        Cells(n, 1).Value = "VLAB"
        Else: Cells(n, 1).Value = ""
        End If
    Next
    ' MsgBox (InStr(1, Cells(2, 2), "abc", vbTextCompare))
End Sub

thanks Liam

HI Liam,

You should specify variable n.

Your code is now:
Cells(n, 1).Value = "VLAB"
it means
Cells(0, 1).Value = "VLAB"

I you want the result in column C, you assign a value to variable n (n = 3) and if you want the result in the same row, your code should be
Cells(a,n).Value="VLAB"


-vemaju

Hi
Thanks for your response, but I dont really understand it?? Can you explain further, or write the code?

Thanks - Liam

Hi Liam,

This is the code

Sub Macro4()
    Dim a As Long
    Dim n As Byte
    'n is Column C. Change this to another column
    n = 3
    Sheets("Data").Select

    For a = 2 To Range("a65536").End(xlUp).Row
        If (InStr(1, Cells(a, 1), "VLAB-Kerberos") > 0) Then
            Cells(a, n).Value = "VLAB"
        Else
            Cells(a, n).Value = ""
        End If
    Next
End Sub

-vemaju

Hi Vemaju

Thanks a million, it works a treat now!!

Liam