koşula göre sütunları gizleme

[modoste]

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]

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.

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]

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]

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]

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]

İ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]

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.

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

 

[modoste]

ekli dosyamda makro çalışmadı hatam nerde

 

[Ömer BARAN]

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]

çok özür dilerim hocam haklısınız değiştirdim düzeldi
teşekkür ederim.

 

[Ömer BARAN]

Kolay gelsin.

 

[grdlsv]

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?

Bilgi

Bilgi

www.excelvba.net

 

[Korhan Ayhan]

Paylaşımınızın içeriği nedir?

 

[grdlsv]

Paylaşımınızın içeriği nedir?

doğrudan temin-2323.xlsx

BİLGİ GİRİŞİ DOĞRUDAN TEMİN ALIMI YAPACAK İDARENİN BAŞLIĞI TARİH VE SAYILAR Kurumun Aidiyet ve Sayı Bilgileri Doğrudan Temin Sıra Nosu Genelde Kullanılacak Tarih Bilgisi Alım Yapılacak Mal veya Hizmet İşin Tanımı İHTİYAÇ TESPİT GÖREVLİLERİ Adı Soyadı Rütbesi Adı Soyadı Rütbesi İHTİYAÇ TESPİT TUT...

docs.google.com

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ı.