Soru F Sütunu ile AM Sütunu arasındaki Sütunların Koşula Bağlı Gizlenmesi

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
941
Excel Vers. ve Dili
Excel-2003
Ekteki dosyada AG ile AM arası sütunlar boş. Ama sütunlarda sıfır gösterilmiyor yani formül var. Değerleri sıfır görünümü boş şekilde böyle. Ben bu sütunları gizlemek istiyorum. Bu Boş sütunlar her zaman aynı sütun olmuyor bazen böyle bazende AA ile AM arası oluyor yada U ile AM arası boş kalıyor. Ben her koşulda boş kalan sütunları gizlemek istiyorum. Yani Bu aktarma sonuca bağlı sütunların boş kalması değişebiliyor.
Sonuç olarak F sütundan başlayıp AM sütununa kadar boş kalan sütunlar varsa gizlenmesi gerekiyor..Şimdiden Teşekkür ederim. (Makro aktar kodu sonuna eklenmek üzere makro olarak)
 

Ekli dosyalar

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Örnek kodu kendinize uyarlayınız.
Kod:
Sub sütungizle()
Application.ScreenUpdating = False
Dim wf As WorksheetFunction
Dim i As Long, r As Range
Set wf = Application.WorksheetFunction
For i = 8 To 30
Set r = Cells(1, i).EntireColumn
If wf.CountA(r) = 0 Then r.Hidden = 1
Next i
End Sub
Sütun Göster
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Cancel = True
Dim wf As WorksheetFunction
Dim i As Long, r As Range
Set wf = Application.WorksheetFunction
For i = 8 To 30
Set r = Cells(1, i).EntireColumn
If wf.CountA(r) = 0 Then r.Hidden = 0
Next i
End Sub
 

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
941
Excel Vers. ve Dili
Excel-2003
İlginiz için teşekkür ederim ama boş hücre olarak görünen yerlerde formüller var ve değerleri sıfır çıkıyor . Seöeneklerden sıfırları gösterme tıkı ile sıfırlar görünmüyor. Yani kod normalde boş hücrelerde çalıştı ama formüllü olduğu için onları dolu görğyor ve gizlemiyor

1568546840771.png,

Sıfırları göster dediğimde şöyle görünüyor
1568547033768.png
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Kod bir hücreye tıkladığınızda çalışacaktır.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Alan As Range
    
    Range("F:AM").EntireColumn.Hidden = 0
    
    For X = 6 To 39
        If WorksheetFunction.Sum(Range(Cells(7, X), Cells(29, X))) = 0 Then
            If Alan Is Nothing Then
                Set Alan = Range(Cells(7, X), Cells(29, X))
            Else
                Set Alan = Union(Alan, Range(Cells(7, X), Cells(29, X)))
            End If
        End If
    Next
    If Not Alan Is Nothing Then Alan.EntireColumn.Hidden = 1
End Sub
 

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
941
Excel Vers. ve Dili
Excel-2003
Çok teşekkür ederim elinize sağlık. Gayet güzel oldu..
 
Üst