Makro Çalıştırma "Runtime Error 13 TypeMismatch" sorunu

[BayTolunay]

Dostlar , üstadlar aranıza yeni katılmış bulunup hepinizi selamlayarak konuya giriş yapmak istiyorum. Forumda bulmuş olduğum hazır bir makro bir süre boyunca işimi gayet iyi bir şekilde gördü ancak son 3 gündür sebepsiz yere daha önceden çalıştırabildiğim makrodan hata alıyorum bu sorunla karşılaşmış ve çözmüş olan birileri varmıdır acaba ?

Şimdiden teşekkürler
Kod ise bu olur.

Option Compare Text
 
Sub SartliSil()
 
    Dim son As Long, deg, i As Long, durum As Boolean, j As Integer
 
    son = Cells(Rows.Count, "B").End(xlUp).Row
    deg = Array("*DAILY*", "*Page*", "*Seconds*", "*Media*", "*Flow Name*")
 
    Application.ScreenUpdating = False
 
    For i = son To 1 Step -1
        durum = False
        For j = 0 To UBound(deg)
            If Cells(i, "B") Like deg(j) Then durum = True
            If durum = True Then Exit For
        Next j
        If durum = True Then Rows(i).Delete Shift:=xlUp
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

 

[leumruk]

Şu haliyle kodda bir sorun görünmüyor. Değişken tanımlamalarıyla ilgili bir durum olabilir. Tanımlamaları kaldırıp deneyin. Düzelirse sorun onunla ilgilidir. Kesin çözüm için hata aldığınız dosyayı eklemelisiniz.
Linki inceleyiniz fikir verebilir.
http://www.excel.web.tr/f48/run-time-error-13-type-mismatch-hatasy-t120617.html

 

[BayTolunay]

Teşekkürler, biraz attığınız konuda dolaşıp bakmam gerekiyor ama değişkenlerle alakalı olmadığını düşünüyorum böyle bir problem sistemsel olabilir mi diye de düşünmüyor değilim doğrusu. Tekrardan teşekkürler biraz kurcalıcam format atma planım vardı ondan sonra belki düzelir