Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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.
İ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.