kelime İçerir

[Kemal Demir]

kelime Ýçerir

İyi AKşamlar.

Sub içerir()
For c = 1 To 20
If Range("a" & c).Value = "=*oto*" Then
Range("b" & c).Value = "K"
End If
Next
End Sub

Yukarıdaki Kodda 1 sutun içerisinde belirtilen kelimeler içerisinde "oto" geçiyorsa 2.sutuna K yazdırıcam ama hata nerede.

Saygılar.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:e252f1a862]Sub içerir()
For c = 1 To 20
If Range("a" & c) Like "*oto*" Then Range("b" & c) = "K"
Next
End Sub
[/vb:1:e252f1a862]

 

[Kemal Demir]

Ã?ncelikle Gunaydın.
Çok teşekkur ederim.