Soru Birden fazla hücrede SEARCH(MBUL) kullanımı hakk.

[sefa044]

Arkadaşlar makro sayfa kodu selection_change olayında şunun çalışmasını istiyorum.
Sayfa1 deki E11 ile R22 alan aralığındaki hücrelerin içerdiği metinde; "YOK" geçiyorsa, aynı satırdaki T sütununa "OK" yazsın.İçermiyosa T yi boş bıraksın.
NOT: Hücreler; "YOK", "VAR/YOK", "YOK/VAR" yada "YOK/YOK" kelimelerini içeriyor.
Teşekkürler.

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Range("t11:t22").ClearContents
For i = 11 To 22
say = 0
For k = 5 To 18
veri = UCase(Cells(i, k))
bulunacak = InStr(1, veri, "YOK")
If bulunacak > 0 Then
say = say + 1
End If
Next k
If say >= 1 Then Cells(i, "t") = "OK"
Next i
Application.ScreenUpdating = True
End Sub

Kodlarını ekleyerek deneyin.
İyi çalışmalar.