Boş satırları gizle ve göster.

[Halil123]

Bu foruma emeği geçenlere ayrı ayrı teşekkür ederim.Gerçekten çok güzel olmuş.Çalıştığım kurumda bordroları ben yapıyorum.Hazırladığım iki adet sendika listesi var.Bu listelere sendika anasayfasındaki üyeler formullerle isim sırasına göre sıralanıyor.Bu işler yapılrken sendika listelerinde bir çok satır boş kalıyor.Bu listelerin çıktısını almadan her defasında boş satırları gizleyip daha sonra göster işlemi sürüp gidiyor.
Eğer mümkünse;Bir düğmeyle önce boş satırları gizle, yine bir düğmeyle (veya onay kutusuyla) gizlenen boş satırları tekrar göstermek.Yardımlarınız için şimdiden teşekkür ederim.

 

[BeyazGölge]

Umarım istediğiniz gibi olmuştur..

 

[Halil123]

Forumdaki bütün arkadaşlara selamlar.

Sayın BeyazGölge kardeşim.İlgilendiğin için çok teşekkür ederim.Eline sağlık.Tam arzu ettiğim gibi olmuş.

 

[mustafa]

Sayın BeyazGölge, affınıza sığınarak bir alternatif de benden olsun.

Sub Gizle()
  For Each t In Range("C9:C85").Cells
    If t.Value = "" Then 'boş hücreleri gizler
    t.EntireRow.Hidden = True
  End If
  Next t
End Sub

Sub Göster()
  For Each t In Range("C9:C85").Cells
    If t.Value = "" Then 'boş hücreleri gösterir
    t.EntireRow.Hidden = False
  End If
  Next t
End Sub

 

[BeyazGölge]

Sayın BeyazGölge, affınıza sığınarak bir alternatif de benden olsun.

Bu forumda böyle durumlarda sadece teşkkür edilir. Ve ben teşekkür ederim.
Çün ki aynı işi ayrı yollardanda yapıdığını gösterin.

 

[Levent Menteşoğlu]

Bende bir örnek hazırlamıştım fakat Sn BeyazGölge'nin örneğini görünce eklemekten vazgeçmiştim. Fakat alternatif bir yöntem ile çeşit olması açısından ekliyorum. Burada makroda süz işleminden istifade edilmiştir.

 

[mustafa]

Yukarıdaki mesajımda eksik kalan bir şeyi tamamlamam lazım. Bir alternatif de benden olsun derken kodların bana ait olmadığını belirtmeyi unutmuşum. Bu hatadan dolayı özür dilerim. Kodları kimin yazdığını ise bir türlü hatırlayamadım.

 

[Halil123]

Gerçekten bu form harika.Arkadaşların tümüne ilgilerinden dolayı teşekkür
eder,ellerine ve yüreklerine güç kuvvet vede ayrıca başarılar dilerim.
Forma hemen hemen her gün dirip inceliyorum.İstediğim yardımı fazlasıyla aldım.
Tekrar başka konu ve sorularda görüşmek ümidiyle sağlıcakla kalınız.

 

[Ahmet1982]

Sayın leventm kodlarında aşağıdaki sistemi kullanmış.

Sub gizle()
Range("A8:H85").AutoFilter Field:=2, Criteria1:="<>"
End Sub
Sub göster()
Range("A8:H85").AutoFilter Field:=2
Selection.AutoFilter
End Sub

Sayın leventm

Bu kodların gizeleme ile (görüntüden başka, kodlama anlamında) alakasını anlatabilirmisiniz. Benim kodlardan anladığım Veri Süzme ile ilgli olduğudur.

 

[Levent Menteşoğlu]

Sanırım soruyu doğru dürüst okumadınız,soruda sayfanın yazdırılırken boş hücrelerin gizlenmesi isteniyor,bunu excelin süz komutuyla zaten kolayca yapmak mümkün,yukarıdaki kodda bunun makrodaki karşılığıdır. Bu kodlardaki mantığınızın almadığı nedir açıklarmısınız.

 

[Ahmet1982]

Beni yanlış anlamanızı istemem, ama satır gizlemek ile ilgili kodlama sisteminde Row.Hidden olması gerkmezmi diye düşünüyorum. Sonuca ulaşılmış ancak çözüm VBA mantığı açısından bana anlaşılmaz gibi geldi. Yani kullanıcı ille süzmek zorundamı bırakılacak, belki süzmek değilde sadece satır gizlmek istiyor, o zaman ne olacak?

 

[Levent Menteşoğlu]

Süzme işleminde yapılanın, satır gizlemeden ne farkı vardır?

 

[Ahmet1982]

Tek farkı Süzme yapmaya zorlamak. Beni yanlış anlamayın sizin mesaj sayınız 1144 iken ben daha 15 msaj gönderen biri olarak bunları söylemem belki abes kaçabilir ama yardımcı olmak maksadıyla yazıyorum, yanlış anlaşılıyorsam yazmayım

 

[Hüseyin]

Tek farkı Süzme yapmaya zorlamak. Beni yanlış anlamayın sizin mesaj sayınız 1144 iken ben daha 15 msaj gönderen biri olarak bunları söylemem belki abes kaçabilir ama yardımcı olmak maksadıyla yazıyorum, yanlış anlaşılıyorsam yazmayım

Bu forumun çeşitli misyonları var.
Kimisi bilgi alıyor.
Kimisi eğleniyor.

Eğer sizde eğlenebiliyorsanız ne mutlu bize.

 

[Levent Menteşoğlu]

Farklı önerilere,yardımcı olmaya,bilgisini paylaşmaya çalışan herkese saygı duyarım. Her zaman her uygulamaya çok sayıda alternatif bulmak elbette mümkündür. Ben amacı gerçekleştirdikten sonra her yolun doğru kabul edilebileceğini düşünüyorum, programcılık mantığı açısından yanlış görünsede.
örneğin; [a1]=textbox1*1 ne kadar programcılık anlayışına ters görünsede neticede amacı kesin olarak gerçekleştirir. Neticede farklı çözümlerle bilgi paylaşmaya hiç kimse itiraz etmez. Bende bundan hiç bir zaman şikayetçi olmam.

 

[Ahmet1982]

Hepinizden Ã?zür dilerim, Eğlenmek maksadı ile yazmadım, belki yardımcı olabilirim diye düşündüm.

 

[xxrt]

Anlıyoruz bizde teşekkür ederiz.Yardımlarınız için.

 

[maverick6]

uzun zamandır çözmek istiyordum bu meseleyi, nihayet sayenizde çözdüm ben de yararlanmış oldum.

teşekkürler emeği geçenlere.

 

[deliceli]

Bende bir örnek hazırlamıştım fakat Sn BeyazGölge'nin örneğini görünce eklemekten vazgeçmiştim. Fakat alternatif bir yöntem ile çeşit olması açısından ekliyorum. Burada makroda süz işleminden istifade edilmiştir.

Sayın Levent Beyin affına sığınarak, silinen dosyası ektedir.

 

[aksoy53]

dosya açılmıyor bakamadık