Metin içinde geçen sözcüğe göre işlem

[acolkesen1]

Merhaba Arkadaşlar, Aşağıdaki kod ile aktif hücredeki metin içinde test sözcüğü geçiyorsa sağındaki hücreye "Y. TEST" yazdırmak istiyorum. Ancak butona tıkladığımda bizim kodda tık yok. Nasıl bir düzeltme gerekiyor acaba?

If ActiveCell = "=*TEST*" Then ActiveCell.Offset(0,1) = "Y. TEST"
İlgilenen arkadaşlara teşekkür ederim.

 

[Ziynettin]

Merhaba,

If ActiveCell.Value Like "*TEST*" Then ActiveCell.Offset(0, 1) = "Y. TEST"

bu şekilde denermisiniz.

 

[Korhan Ayhan]

Alternatif olarak aşağıdaki kodu da kullanabilirsiniz.

Sub KOD()
    If InStr(1, ActiveCell.Text, "TEST") > 0 Then
        ActiveCell.Offset(0, 1) = "Y. TEST"
    End If
End Sub

 

[acolkesen1]

Sayın tasmed'e ve sayın Korhan Ayhan'a ilgileri için teşekkür ederim.
Esen kalın..