Makroda Like Komutu Hakkında Yardım

[aurer]

merhaba arkadaslar;

bir satırdan yazılmış olan bir cümlenin içinden bir veya iki tane arama yaptırıp başka hücreye yazdırmak istiyorum..

Bunun için bir makro yazdım ama bir yerde hata yapıyorum galiba;

Dim a As Long

For a = 2 To 10

If Cells(a, 6).Value Like "*BAND*" Or "*CURUF*" Then
Cells(a, 7).Value = "BAND CURUFU"

Else
Cells(a, 7).Value = "BOŞ"
End If

Next a
MsgBox "Olay bitti"

End Sub

Run-time error "13":
type mismatch

hatası veriyor yukarıda macroda yazdığım gibi bir değişken içinde iki tane stringi aratıp buna göre işlem yaptırabilirmiyim. acil yardım lüften arkadaslar çok basit bir olayı var ama bir türlü bulamadım....

 

[Erdem Akdemir]

Sub denemmm()
Dim a As Long
For a = 2 To 10
If Cells(a, 6) Like "*BAND*" Or Cells(a, 6) Like "*CURUF*" Then
Cells(a, 7) = "BAND CURUFU"
Else
Cells(a, 7).Value = "BOŞ"
End If
Next a
MsgBox "Olay bitti"
End Sub

 

[aurer]

Çok sağolasın çok teşekkür ederim, yardımların için..

 

[mrwarrior]

Allah razı olsun. Yıllar sonra bende faydalandım

* koymak gerekiyormuş onu öğrendim