koşula göre sütunları gizleme

modoste

Altın Üye
Katılım
31 Mayıs 2008
Mesajlar
3,649
Excel Vers. ve Dili
Microsoft OFFİCE Ev ve İş 2019 TR
Altın Üyelik Bitiş Tarihi
18-03-2025
merhaba sayın hocalarım
İCMAL adı verdiğim sekmede K sütunundan BB1 sütunu arasındaki sütunların 47. satırdaki sayısal sonuç = 0 ise bu sütunların gizlenmesini veren makro nasıl yapılır

Not: çalışma sayfamda 15-20 arası sekme var benim icmal sekmem en sonda.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba.

Aşağıdaki kod blokunu uygun veya boş bir MODUL'e yapıştırın ve bu kodu, sayfaya ekleyeceğiniz bir düğmeye bağlayın.
Kırmızı renklendirdiğim kısım, hücrede formül var ve formül sonucu "" (boş) ise o sütunun gizlenmemesi içindir, gerekmiyorsa o kısmı silin.
Rich (BB code):
Sub SIFIRLARI_GIZLE()
Set i = Sheets("İCMAL")
For s = 11 To 54
    Columns(s).EntireColumn.Hidden = False
    If i.Cells(47, s) <> "" And i.Cells(47, s).Value = 0 Then _
        Columns(s).EntireColumn.Hidden = True
Next
End Sub
 

modoste

Altın Üye
Katılım
31 Mayıs 2008
Mesajlar
3,649
Excel Vers. ve Dili
Microsoft OFFİCE Ev ve İş 2019 TR
Altın Üyelik Bitiş Tarihi
18-03-2025
uyguladım teşekkür ederim
koddaki 11 to 54 harfle belirttiğim sütun adlarının soldan sırası oluyo. değişkenlerim değişirse bu kısımla oynayacam değil mi
 

modoste

Altın Üye
Katılım
31 Mayıs 2008
Mesajlar
3,649
Excel Vers. ve Dili
Microsoft OFFİCE Ev ve İş 2019 TR
Altın Üyelik Bitiş Tarihi
18-03-2025
su sorumun sadece satır için olanından bir makro
ve birde hem satırda hem sütunda olanından makrolarıda yazabilir misiniz hocam
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Evet 11 ve 54, işlem yapılacak başlangıç ve bitiş sütun numaraları, ihtiyaca göre değiştirebilirsiniz.

Hem satırda/hem sütunda dediğiniz duruma ilişkin soruyu,
gerçek belgenizin bir kopyası şeklinde hazırlayacağınız,
özel bilgi içermeyen bir örnek belge üzerinden sorarsanız bakayım.
Örnek belgeye hangi sütun/satırın gizlenme kararının nasıl verileceğine dair kısa açıklama ekleyiniz.
 

modoste

Altın Üye
Katılım
31 Mayıs 2008
Mesajlar
3,649
Excel Vers. ve Dili
Microsoft OFFİCE Ev ve İş 2019 TR
Altın Üyelik Bitiş Tarihi
18-03-2025
İCMAL sekmesinde bir tablom var sütunolarak 45-100 sütunluk bir çalışmaya dönüşebiliyo. ilk sorumdaki gibi kriter sütunumu belirtmek için 47. satırdaki toplamları aldığımda sonucu sıfır olmayan sütunları gizledik (İlk sorum ilk cevabınız)
aklıma satır içinde olan nasıl yapılır diye sordum onunda kriteri şu olsun AA sütunundaki toplam sayı değeri sıfır olanlar gizlensin
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
AA1 hücresinden AA sütunundaki son dolu hücreye kadar, dolu (formül olup sonucu BOŞ olanlar dahil) değeri 0 olan hücrelerin bulunduğu satırlar gizlenir.
Rich (BB code):
Sub SIFIRLARI_GIZLE()
Set i = Sheets("İCMAL")
For s = 1 To Cells(Rows.Count, 27).End(3).Row
    Rows(s).EntireRow.Hidden = False
    If i.Cells(s, 27) <> "" And i.Cells(s, 27).Value = 0 Then _
        Rows(s).EntireRow.Hidden = True
Next
End Sub
 
Son düzenleme:

modoste

Altın Üye
Katılım
31 Mayıs 2008
Mesajlar
3,649
Excel Vers. ve Dili
Microsoft OFFİCE Ev ve İş 2019 TR
Altın Üyelik Bitiş Tarihi
18-03-2025
ekli dosyamda makro çalışmadı hatam nerde
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Ya kod'daki İCMAL sayfa adını değiştirin, ya da kod'daki sayfa adına göre sayfa adını değiştirin.
 

modoste

Altın Üye
Katılım
31 Mayıs 2008
Mesajlar
3,649
Excel Vers. ve Dili
Microsoft OFFİCE Ev ve İş 2019 TR
Altın Üyelik Bitiş Tarihi
18-03-2025
çok özür dilerim hocam haklısınız değiştirdim düzeldi
teşekkür ederim.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Katılım
28 Ekim 2014
Mesajlar
43
Excel Vers. ve Dili
2010 TR
Pardon ama konuyu hortlatsam aynı sorun bende var ve mantığını bir türlü çözemedim. benim de hücrelerde formül var ama değer girilmezse boş. değer gelmeyen hücreleri hangi kitaba tıklarsam direk kod gizlese olabilir mi?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,314
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Paylaşımınızın içeriği nedir?
 
Katılım
28 Ekim 2014
Mesajlar
43
Excel Vers. ve Dili
2010 TR
Paylaşımınızın içeriği nedir?

kendi yaptığım doğrudan temin programında mesela ikinci kitaptaki ihtiyaç listesi c satırına yazı yazdığınızda otomatik sayı veriyor ve diğer kitaplara atıyor. Buradaki tek sorun alınacak malzeme her alımda değiştiğinden tekrar tekrar ekle çıkar yapmak zorunda kalınıyor. ihtiyaç listesine yazılan ürün kadar diğer kitaplarda hücrenin açılması boş olanların ise o kitaba tıklandığında bir butona bağlı olmaksızın kapanması. ee tamam işte gizle formülleri var dene diyebilirsiniz. Ben internette bulunan neredeyse tüm formülleri denedim değiştirdim ve uğraştım lakin o kodlar direk boş hücreler için yazılmış benim excel dosyamda her ne kadar boş görünse de formüller olduğundan hiç bir formül çalışmadı. Bu konuya benzer benimkide akşam baya uğraştım verilen kodlara lakin olmadı.
 
Üst