sayısal olmayan verileri temizlemek

[tamer42]

Merhaba,
Bir hücre aralığında sayısal olmayan değerleri (#SAYI/0!) temizlemek istiyordum,
aşağıdaki kodu oluşturdum fakat hata veriyor

Sub Makro1()
Dim str As Variant
Dim wsh As Worksheet
Dim xRng As Range
Dim cel As Range

Set wsh = Sheets("Page2")

    Set xRng = wsh.Range("F26:H38")
    
    For Each cel In xRng   

 str = Left(cel.Value, 1)
    
            If Not IsNumeric(str) Then
                cel = ""

            End If
    Next

End Sub

 

[Necdet]

Merhaba,
Dener misiniz?

Sub Makro1()
    
    On Error GoTo Son
    Sheets("Page2").Range("F26:H38").SpecialCells(xlCellTypeFormulas, 16).ClearContents
Son:

End Sub

 

[tamer42]

Merhaba,
Dener misiniz?

Sub Makro1()
   
    On Error GoTo Son
    Sheets("Page2").Range("F26:H38").SpecialCells(xlCellTypeFormulas, 16).ClearContents
Son:

End Sub

Olmadı Hocam, temizledi,
On Error GoTo Son
bu satırı pasif yapınca hata veriyor

 

[Necdet]

Olmadı Hocam, temizledi,

Temizlemesi gerekmiyor muydu?
Benim önerim belirtilen alanda hatalı formül içeren hücreleri seçip silmekti.

hatalı hücre yoksa hata vermesin diye On Error satırını eklemiştim.
Örnek dosya ekleyerek açıklarsanız, daha başka öneri gelebilir.

 

[Korhan Ayhan]

Necdet beyin önerisi formüllü hücrelerde çalışacaktır.

Paylaştığınız görsele göre veriler sabit değerler olabilir.

Tarif ediyorum. Siz kendinize uyarlarsınız.

Makro kaydet tuşuna basınız.
İşlem yapmak istediğiniz hücreleri seçiniz.
F5 tuşuna basınız.
Özel seçeneğini seçiniz.
Açılan menüden SABİTLER ve HATALAR seçimlerini yapınız.
Doğru seçim yaptıysanız hatalı hücreler seçili hale gelecektir.
Bu durumdayken DELETE tuşuna basınız ve sonra makro kaydını durdurunuz.

Oluşan kodları irdeleyiniz.

 

[tamer42]

Necdet beyin önerisi formüllü hücrelerde çalışacaktır.

Paylaştığınız görsele göre veriler sabit değerler olabilir.

Tarif ediyorum. Siz kendinize uyarlarsınız.

Makro kaydet tuşuna basınız.
İşlem yapmak istediğiniz hücreleri seçiniz.
F5 tuşuna basınız.
Özel seçeneğini seçiniz.
Açılan menüden SABİTLER ve HATALAR seçimlerini yapınız.
Doğru seçim yaptıysanız hatalı hücreler seçili hale gelecektir.
Bu durumdayken DELETE tuşuna basınız ve sonra makro kaydını durdurunuz.

Oluşan kodları irdeleyiniz.

Çok teşekkürler Korhan Hocam