Formül Olan hücrelerde değer yok ise gizlensin

[sirkülasyon]

Değerli Arkadaşlar
I4:I47 hücrelerinde formül mevcut. Bu hücrelerde değer görünmediği zaman gizlenmesini istiyorum. Kullandığım makro aşağıda yer almaktadır. Bunun için yardımcı olabilir misiniz?

"Kod Korhan Ayhan ustaya aittir."

Application.ScreenUpdating = False

If ToggleButton1 = True Then
Rows("11:47").EntireRow.Hidden = False

For Satır = 11 To 47
If Cells(Satır, "c") = "" Then
Rows(Satır).Hidden = True
End If
Next

ToggleButton1.Caption = "BOŞ SATIR GÖSTER"

Else

Cells.EntireRow.Hidden = False
ToggleButton1.Caption = "BOŞ SATIR GİZLE"

End If

Application.ScreenUpdating = True

 

[hamitcan]

For Satır = 11 To 47
If Cells(Satır, "c") = "" Then
Rows(Satır).Hidden = True
End If
Next

Yerine, aşağıdaki satırları ekleyip deneyin.

For Satır =4 To 47
If Cells(Satır, "i") = "" Then
Rows(Satır).Hidden = True
End If
Next

 

[sirkülasyon]

Hamit abi
İ erine C yazılması benden kaynaklı bir hata olmuş. Önerdiğiniz şekli ile bende mevcut. Yalnız satırı gizleme yapmıyor.
Hücre de formül var. Değer çıkarsa gizlemesin. Değer yok ise gizlesin.

 

[alkazar61]

şöyle düşünülebilir mi?
eğer formül sonuçları bir rakama denk geliyor ise = "" yerine > 0 yazılır ise sorun çözülürmü acaba?

 

[Korhan Ayhan]

Merhaba,

Kullandığınız formülü görmek gerekir. Formülünüzle ilgili bir detay kodun doğru sonuç vermesine engel oluyor olabilir.

Bahsettiğiniz şartlar için aşağıdaki kodu formül olan sayfanızın kod bölümüne uygularsanız sonuç alabilirsiniz.

Private Sub ToggleButton1_Click()
    Application.ScreenUpdating = False
    
    If ToggleButton1 = True Then
        Rows("4:47").EntireRow.Hidden = False
        
        For Satır = 4 To 47
            If Cells(Satır, "I") = "" Then
                Rows(Satır).Hidden = True
            End If
        Next
        
        ToggleButton1.Caption = "BOŞ SATIR GÖSTER"
    Else
        Cells.EntireRow.Hidden = False
        ToggleButton1.Caption = "BOŞ SATIR GİZLE"
    End If
    
    Application.ScreenUpdating = True
End Sub

 

[sirkülasyon]

Korhan Abi
İlk önce geç cevap vermemden ötürü sizden özür dilerim. Sonra da kabul buyurursanız eğer makro kodu için Teşekkür ederim.

 

[htsumer]

Merhaba,

Kullandığınız formülü görmek gerekir. Formülünüzle ilgili bir detay kodun doğru sonuç vermesine engel oluyor olabilir.

Bahsettiğiniz şartlar için aşağıdaki kodu formül olan sayfanızın kod bölümüne uygularsanız sonuç alabilirsiniz.

Private Sub ToggleButton1_Click()
    Application.ScreenUpdating = False
   
    If ToggleButton1 = True Then
        Rows("4:47").EntireRow.Hidden = False
       
        For Satır = 4 To 47
            If Cells(Satır, "I") = "" Then
                Rows(Satır).Hidden = True
            End If
        Next
       
        ToggleButton1.Caption = "BOŞ SATIR GÖSTER"
    Else
        Cells.EntireRow.Hidden = False
        ToggleButton1.Caption = "BOŞ SATIR GİZLE"
    End If
   
    Application.ScreenUpdating = True
End Sub

Hocam bu kod satırlarda çok işime yaradı teşekkür ederim.
Aynı mantığa uygun sütunları gizlemek için kod nasıl yapabiliriz..
Koşullar F6 ile AM6 arasındaki boş hücreleri (boş ama örnek formül =EĞER(AB6=0;"";AB6 olduğundan "" boş görünüyor.. Ama formül var) gizlesin..