SAYI/0! hatasını makro ile tamamen boş gösterme.

[Pegasus__]

Merhaba sevgili arkadaşlar. Başlıkta da belirttiğim gibi SAYI/0! hatasını gösteren hücrenin boş görünmesini istiyorum.

Formülle uğraşarak baya zaman alıyor.

Tüm çalışma kitabında olacak şekilde yardımlarınızı rica ediyorum.
Teşekkürler.

 

[Ömer]

Merhaba,

Module ekleyip çalıştırın.
Not: Dosyanızın kopyasını alıp deneme yapın.
Hata üreten formüllere; eğerhata fonksiyonunu ekler.

Sub Degistir()

    Dim c As Range, i As Byte
    
    Application.ScreenUpdating = False
    On Error Resume Next
    
    For i = 1 To Worksheets.Count
        Sheets(i).Select
        For Each c In Cells.SpecialCells(xlCellTypeFormulas, 16)
            c.Value = "=IFERROR(" & WorksheetFunction.Substitute(c.Formula, _
                "=", "", 1) & ","""")"
        Next c
    Next i
    
    Application.ScreenUpdating = True

End Sub

Ayrıca farklı seçenekler için linki incelemenizi de tavsiye ederim.

https://support.office.com/tr-tr/ar...-gizleme-cab16fa6-f1de-4b99-9d38-2ac1dbb9043d

.

 

[Pegasus__]

Teşekkür ederim sayın hocam kodlar çok güzel çalıştı.

Verdiğiniz linkteki makaleyi okumuştum ama her formüle tek tek eğerhata eklemesi baya bir sancılı geldi.

sayenizde bu sancıdan kurtuldum

tekrar teşekkür ederim.

sağlıcakla kalın

 

[Umi_TR]

Merhaba Ömer Bey, verdiğiniz makro inanılmaz işime yaradı teşekkürler öncelikle.. bu sayede eğer hata olan tüm yerler boş hücre olarak görüntülenmeye başladı.. sizden ricam bu boş hücrelere nasıl otomatik bir şekilde 0,00% yazdırabilirim bunu bulamadım.. yardımcı olursanız sevinirim.

@Ömer

 

[EmrExcel16]

Merhaba Ömer hocamın kodunda boşluk yerine istediğiniz değeri yazarak isteğinize ulaşabilirsiniz.
Aşağıda 0,00% yazılan yer.

Sub Degistir()

    Dim c As Range, i As Byte
  
    Application.ScreenUpdating = False
    On Error Resume Next
  
    For i = 1 To Worksheets.Count
        Sheets(i).Select
        For Each c In Cells.SpecialCells(xlCellTypeFormulas, 16)
            c.Value = "=IFERROR(" & WorksheetFunction.Substitute(c.Formula, _
                "=", "", 1) & ",""0,00%"")"
        Next c
    Next i
  
    Application.ScreenUpdating = True

End Sub

 

[Umi_TR]

Teşekkürler hocam, hızlı cevap için özellikle

@EmrExcel16

 

[EmrExcel16]

Rica ederim , iyi çalışmalar.