Excelde hücrelerin içini boşaltmak

[spasmex97]

Arkadaşlar kolay gelsin makro sayesinde oluşturduğum bir tablo var bu tablo mesafe matrisinden oluşuyor yani isimler ve sayılar oluyor fakat değer içermeyen hücreleri 0 olarak dolduruyor bu 0 yazan hücrelerin içini boşaltmak istiyorum range aralığı değişebiliyor bazen 5x5 bazen 45x45 olabilir belirsiz

 

[Korhan Ayhan]

Hücreler formül içeriyor mu?

 

[spasmex97]

Hücreler formül içeriyor mu?

hayır formül içermiyor

 

[Korhan Ayhan]

Temizlemek istediğiniz alanı seçip kodu çalıştırın.

Eğer bir hücre aralığı belirtmek isterseniz Selection yazan yere Range("A1:Z100") gibi aralık yazabilirsiniz.

Option Explicit

Sub Sifirlari_Temizle()
    Dim Alan As Range
    
    With Selection
        .Replace What:="#N/A", Replacement:="", LookAt:=xlPart
        
        For Each Alan In .Cells
            If Not IsError(Alan.Value) Then
                If Not IsEmpty(Alan.Value) And Alan.Value = 0 Then
                    Alan.ClearContents
                End If
            End If
        Next
    End With
    
    MsgBox "İşleminiz tamamlanmıtştır.", vbInformation
End Sub

 

[spasmex97]

Type mismatch hatası alıyorum

YOK yazan yerlerden dolayı kaynaklı olabilir mi ?

 

[Korhan Ayhan]

Evet yok yazanlar hataya sebep olur.

#4 nolu mesajıma hataları gözardı edecek eklemeyi yaptım.

 

[spasmex97]

Evet yok yazanlar hataya sebep olur.

#4 nolu mesajıma hataları gözardı edecek eklemeyi yaptım.

evet düzeldi 0 ları da siliyor peki #YOK ları nasıl yok edebilirim

 

[Korhan Ayhan]

Kodu tekrar güncelledim. Deneyiniz.

 

[spasmex97]

Kodu tekrar güncelledim. Deneyiniz.

çok teşekkürler hocam sağolun