"#SAYI/0!" ile Koşullu Biçimlendirme (YARDIM)

[soyga0123]

Merhabalar;
Belli bir satırda #SAYI/0! hatası olduğunda o satırın komple görünmemesini nasıl sağlayabilirim? :kafa:

Ör: Sayfa1'de 30. satırda hücrelerde veriler var ancak D30 hücresinde #SAYI/0! hatası yazıyor ve ben çıktı aldığımda bu satırın komple görünmemesini, kaybolmasını istiyorum. Umarım açıklayabilmişimdir.:yardim:

 

[turist]

VBE editor sayfasını açın,ThisWorkbook sayfasına iki kodu da ekleyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sayfa As Worksheet
For Each sayfa In Worksheets
    With sayfa.Cells
        .EntireRow.Hidden = False
        .SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
    End With
Next sayfa
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim sayfa As Worksheet
For Each sayfa In Worksheets
    With sayfa.Cells
        .EntireRow.Hidden = False
        End With
Next sayfa
End Sub

 

[soyga0123]

VBE editor sayfasını açın,ThisWorkbook sayfasına iki kodu da ekleyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sayfa As Worksheet
For Each sayfa In Worksheets
    With sayfa.Cells
        .EntireRow.Hidden = False
        .SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
    End With
Next sayfa
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim sayfa As Worksheet
For Each sayfa In Worksheets
    With sayfa.Cells
        .EntireRow.Hidden = False
        End With
Next sayfa
End Sub

Hocam hala aynı ya da ben yapamadım?
"Range sınıfının hidden özelliği kurulamıyor" hatası veriyor.

 

[turist]

Sayfanızda, sayfa koruması varsa; korumayı kaldırıp deneyin.
Sayfayı yazdırmak istediğinizde HATA olan satır gizlenir.
Sayfadan çıkıp tekrar girerseniz, satır tekrar açılır.

 

[soyga0123]

Sayfanızda, sayfa koruması varsa; korumayı kaldırıp deneyin.
Sayfayı yazdırmak istediğinizde HATA olan satır gizlenir.
Sayfadan çıkıp tekrar girerseniz, satır tekrar açılır.

Hocam dediğiniz gibi korumaları kaldırdım artık o hatayı almıyorum ancak yine de istediğim işlemi gerçekleştiremedim. Yazdır dediğimde "Hiçbir hücre bulunamadı" hatası alıyorum ve hiçbir şey yazdırılmıyor. Sanırım bu kod ile sayfada bir tane bile #SAYI/0! var ise tüm sayfayı yazdırmıyor. Oysa benim istediğim sadece #SAYI/0! yazan satırın yazdırılmaması. Bir de bu korumaları kaldırmadan yazmanın bir yolu yok mu? Aklıma bir şey geliyor ancak formüle dökemiyorum: koşullu biçimlendirmeye girilen formülle hangi satırda #SAYI/0! yazıyorsa o satırın tamamının yazı tipi rengini beyaz yapmak da işime yarayabilir.

 

[turist]

Kodu şu şekilde değiştirebilirsiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sayfa As Worksheet
On Error Resume Next
For Each sayfa In Worksheets
sayfa.Unprotect Password:=""
    With sayfa.Cells
        .EntireRow.Hidden = False
        .SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
    End With
sayfa.Protect Password:=""
Next sayfa
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim sayfa As Worksheet
On Error Resume Next
For Each sayfa In Worksheets
sayfa.Unprotect Password:=""
    With sayfa.Cells
        .EntireRow.Hidden = False
        End With
        sayfa.Protect Password:=""
Next sayfa
End Sub

Password:="" yazan kısma eğer sayfa korumanızda şifre varsa,
Password:="kendişifreniz" olarak olarak değiştirebilirsiniz.(kendişifreniz kısmına sayfa korumasında kullandığınız şifreyi yazınız)


Koşullu biçimlendirme ile yapmak isterseniz:
Koşullu biçimlendirmede kullanacağınız formül şöyle olacaktır.

=EHATALIYSA(A1)

bu formülü kullanıp, biçimlendirmesinde yazı rengini BEYAZ yapın ve kullanılacak alanı istediğiniz gibi tanımlayabilirsiniz.
Örneğin: A1:Z500 veya A150000 gibi

 

[soyga0123]

Kodu şu şekilde değiştirebilirsiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sayfa As Worksheet
On Error Resume Next
For Each sayfa In Worksheets
sayfa.Unprotect Password:=""
    With sayfa.Cells
        .EntireRow.Hidden = False
        .SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
    End With
sayfa.Protect Password:=""
Next sayfa
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim sayfa As Worksheet
On Error Resume Next
For Each sayfa In Worksheets
sayfa.Unprotect Password:=""
    With sayfa.Cells
        .EntireRow.Hidden = False
        End With
        sayfa.Protect Password:=""
Next sayfa
End Sub

Password:="" yazan kısma eğer sayfa korumanızda şifre varsa,
Password:="kendişifreniz" olarak olarak değiştirebilirsiniz.(kendişifreniz kısmına sayfa korumasında kullandığınız şifreyi yazınız)


Koşullu biçimlendirme ile yapmak isterseniz:
Koşullu biçimlendirmede kullanacağınız formül şöyle olacaktır.

=EHATALIYSA(A1)

bu formülü kullanıp, biçimlendirmesinde yazı rengini BEYAZ yapın ve kullanılacak alanı istediğiniz gibi tanımlayabilirsiniz.
Örneğin: A1:Z500 veya A150000 gibi

Çok teşekkür ediyorum. Saygılar hocam... :bravo: