• Merhaba Dostlar,
    yeni forum ile yola devam ediyoruz. Bu büyüklükte bir forum yeni bir sisteme taşımak epey bir yordu bizi. Üstelik bir de yeni XenForo Forum altyapısına geçtik.
    Eminim çok yerde hatalar ve eksikler vardır. Kısa sürede toparlayıp hızlı bir şekilde yolumuza devam edeceğiz.
    Lütfen gördüğünüz eksik ve hataları aşağıdaki bölüme dönderin. Sırasıyla inceleyip yapılabilirliği varsa üzerinde çalışacağım.
    HATA BİLDİRİM BAŞLIĞI
    Forumdaki kullanıcı adınızla ile giriş yapamıyorsanız kullanıcı adınızın sonuna 1 veya 2 gibi rakamlar ekleyerek deneyin.

    Hepimize Hayırlı Olsun!
    Hüseyin
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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

sirkülasyon

Altın Üye
Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
1,012
Beğeniler
3
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,035
Beğeniler
0
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

Altın Üye
Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
1,012
Beğeniler
3
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,322
Beğeniler
17
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

Altın Üye
Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
1,012
Beğeniler
3
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