• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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

sirkülasyon

Ultra Aktif Üye
Katılım
10 Temmuz 2012
Mesajlar
1,028
Beğeniler
6
Excel Vers. ve Dili
2016 TR
#1
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."
Kod:
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
 
Katılım
1 Temmuz 2004
Mesajlar
7,039
Beğeniler
1
Excel Vers. ve Dili
Excel 2007 Türkçe
#2
Kod:
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.
Kod:
For Satır =4 To 47
If Cells(Satır, "i") = "" Then
Rows(Satır).Hidden = True
End If
Next
 

sirkülasyon

Ultra Aktif Üye
Katılım
10 Temmuz 2012
Mesajlar
1,028
Beğeniler
6
Excel Vers. ve Dili
2016 TR
#3
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.
 
Katılım
8 Şubat 2012
Mesajlar
25
Beğeniler
0
Excel Vers. ve Dili
office2007
#4
şö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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
23,379
Beğeniler
29
Excel Vers. ve Dili
OFFICE 2013-2016 PRO TR
#5
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.

Kod:
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

Ultra Aktif Üye
Katılım
10 Temmuz 2012
Mesajlar
1,028
Beğeniler
6
Excel Vers. ve Dili
2016 TR
#6
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.
 
Üst