VBA Bevat kolom N bepaalde tekst dan in kolom J toevoegen aan cel

[Tweety1]

Ik ben opzoek naar een macro die het volgende doet.
Bevat kolom N Test1 dan in Kolom J "Test OK1" toevoegen aan de inhoud van de cel.
Bevat kolom N Test2 dan in Kolom J "Test OK2" toevoegen aan de inhoud van de cel.

mvg

Kasper

 

[VenA]

Je geeft wel erg weinig informatie prijs.

Iets in deze vorm

Sub tst()
For j = 1 To Cells(Rows.Count, "N").End(xlUp).Row
    Select Case Cells(j, "N").Value
    Case "Test1": Cells(j, "J") = Cells(j, "J") & "Test Ok1"
    Case "Test2": Cells(j, "J") = Cells(j, "J") & "Test Ok2"
    End Select
Next j
End Sub

 

[Tweety1]

thanks is precies wat ik bedoelde.

 

[VenA]

Dan heb ik goed gegokt:d

 

[HSV]

Iets sneller door minder.

Sub hsv()
For Each cl In Columns(14).SpecialCells(2)
 cl.Offset(, -4) = cl.Offset(, -4) & IIf(cl = "Test1", "Test Ok1", IIf(cl = "Test2", "Test Ok2", ""))
Next cl
End Sub

 

[Tweety1]

Thanks
Hoe kan ik deze nog aanpassen aan het volgende
Als kolom J leeg is dan de cel leeg laten.

 

[HSV]

Sub hsv()
For Each cl In Columns(14).SpecialCells(2)
 cl.Offset(, -4) = IIf(cl.Offset(, -4) = "", "", cl.Offset(, -4) & IIf(cl = "Test1", "Test Ok1", IIf(cl = "Test2", "Test Ok2", "")))
Next cl
End Sub

 

[Tweety1]

Thanks