Hücrede "#YOK" değerinde type mismatch hatası hk.

[pNouma]

Kıymetli Hocalarım merhaba,

Ekli dosyada Sayfa1 "B" sütununda "#YOK" yazan verileri aşağıdaki kod ile Sayfa2' ye aktarmak isterken

If SH.Range("B" & i) Like "*YOK" Then

satırında Type Mismatch hatası vermekte

bu konuda nasıl bir çözüm yolu önerirsiniz, yardımlarınız için şimdiden teşekkürler.

iyi Pazarlar.

https://dosya.co/5weqs1iatax0/Kitap1.xlsm.html

Sub DataTransfer()
Dim SH As Worksheet
Dim WS As Worksheet
Dim i As Integer, j As Integer
Dim LastRow As Integer

Set SH = Sayfa1
Set WS = Sayfa2

rw = 2
LastRow = SH.Cells(SH.Rows.Count, "A").End(xlUp).Row

WS.Cells.ClearContents

''On Error Resume Next

For i = 2 To LastRow

 ''   deger = SH.Cells(i, 2).Value

        If SH.Range("B" & i) Like "*YOK" Then
            For j = 1 To 11
                WS.Cells(rw, j) = SH.Cells(i, j).Value
            Next j
            
            rw = rw + 1
        End If

    deger = ""
    
Next i

End Sub

 

[Necdet]

Merhaba,

Bir deneyin isterseniz :

If IsError(SH.Range("B" & i)) = True Then

 

[pNouma]

Merhaba,

Bir deneyin isterseniz :

If IsError(SH.Range("B" & i)) = True Then

Çok teşekkür Ederin Necdet Hocam