Soru Boş satırlar ile belirlenen sütunları gizleme ve gösterme

[Believing]

Merhabalar Formdaş arkadaşlar,

Aşağıdaki kod ile F8:F999 aralığındaki boş/dolu hücrelere göre satır gizle/göster eylemini gerçekleştiriyorum.
Bu eyleme B, F, G sütunlarını boş veya dolu olarak gizleme/gösterme fonksiyonu eklemek istiyorum.
Buna göre aşağıdaki kodu nasıl revize etmeliyim?

Saygılarımla,

Sub Gizle()
On Error Resume Next
Dim bul As Range
With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
For Each bul In Range("F8:F999")
    If bul.Value = Empty Then
        Rows(bul.Row).Hidden = True
        Else
        Rows(bul.Row).Hidden = False
    End If
Next bul
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With
End Sub

 

[ÖmerFaruk]

Anladığım şu, B-F-G deki aynı satırdaki 3 hücre de boşsa Satırı gizle
Doğru anlıyorsam IF cümlesini aşağıdakiyle değiştirin

If bul.Value = Empty And bul.Offset(0, -4).Value = Empty And bul.Offset(0, 0).Value = Empty Then

 

[Believing]

Günaydın Ömer bey,

Yukarıdaki kod F8:F999 aralığındaki boş hücrelere gizleme yapıyorum.
Mevcut kod'a B, F, G sütunlarını her hangi bir koşul olmaksızın gizleme eylemini eklemek istiyorum.

Saygılarımla,

 

[Believing]

Merhabalar Formdaş arkadaşlar,

Konu güncel olup, yardımlarınızı rica ediyorum.

Saygılarımla,

 

[ÖmerFaruk]

1. ve 3.mesajlarınız aynı isteğe mi ait?

 

[Believing]

Evet

 

[ÖmerFaruk]

İlk mesajda verdiğiniz kod, F sütununda bulunan 8. satırdan 999.satıra kadarki hücrelerde boş olan satırları gizleyip dolu olanları gösteriyor.

Yine ilk mesajınızda yazdığınız ifade ile şunu istiyorsunuz
B,F,G sütunlarını boş olanları gizleyip dolu olanları gösterme eyleminin de ilave olarak gerçekleşmesini istiyorsunuz

Sırf ilk mesajınızdan yola çıkarak
F sütununu 8-999 arası kontrol edip, bulduğu boş satırları gizleyip, dolu olanalrı gösterdikten sonra, en az bir satır gizlediyse ki bu ilave eylem olarak isteğinizi bütünüyle karşılıyor, B-F-G sütunları gizlensin anlıyorum.
Ama bunun mantıksız buluyor, sizin isteğinizi düzgün ifade edemediğinizi, ya da benim sorrunuzu anlamadığımı düşünüyorum.

Verdiğim cevap aynı satırda B-F-G hücreleri boşsa yukarıdaki gizle/göster olayını gerçekleştirmekti.
Verdiğiniz KOD, yazdığınız istek tarafımca anlaşılmadı ve acaba bunu mu istiyor diye cevap ürettim.
.......................................................................................

Akabinde 3# mesajda (sizin 2. yazınız sabah 08.59da)
İlk mesajınızdan farklı olarak aşağıdakini yazıyorsunuz.
Yukarıdaki kod F8:F999 aralığındaki boş hücrelere gizleme yapıyorum.
Mevcut kod'a B, F, G sütunlarını her hangi bir koşul olmaksızın gizleme eylemini eklemek istiyorum.

İlk cümlenizde, boş hücreleri gizlediğinizi ifade ediyorsunuz. Excel hücre gizleme yoktur, satır ve sütun gizleme vardır ki sizin ilk mesajınızda hücreyi değil satırı gizlediğinizi zaten ifade edebilmiştiniz.

İkinci cümlenizde, yine ilk mesajınzıdan farklı olarak "herhangi bir koşul olmaksızın" yani kısıtsız olarak her durumda B-F-G sütunlarını gizlemek istiyorsunuz.
................................................................................................

İlk ve İkinci Mesajlarınız hem kendi içinde hem de birbiri arasında tutarsız.

Mesaj sayınıza bakıyorum. 657.
Satır/Sütun/hücre nedir bilebilecek kadar excelle haşır neşir olduğunuzu düşünüyorum.

Gece saat 23.00 olmuş bu yazıyı hazırlıyorum. Sizin sorularınız elbet değerli. Unutmayın ki bizim de vaktimiz en az sorularınzı kadar değerli.

 

[Believing]

Merhaba Ömer bey,

1. Mesajdaki kod ile, F sütununda bulunan 8. satırdan 999.satıra kadarki hücrelerde boş olan satırları gizleyip dolu olanları gösteriyor.
Bu eyleme ilave olarak, B-F-G sütunları boş veya dolu olmasına bakılmaksızın, gizle butonuna basınca gizlenmeli, göster butonuna basınca göstermelidir.

Saygılarımla,

 

[ÖmerFaruk]

Sub Gizle()
Columns("B").Hidden = True
Columns("F").Hidden = True
Columns("G").Hidden = True
End Sub
Sub Göster()
Columns("B").Hidden = False
Columns("F").Hidden = False
Columns("G").Hidden = False
End Sub

 

[Believing]

Ömer bey,

Bu kodları, 1 nolu mesajdaki kodlara nasıl entegre edebilirim?

Saygılarımla,

 

[ÖmerFaruk]

Sayın Believing. entegre edilemez, benden bu kadar. pes ettim.
Sağlıcakla kalın

 

[Believing]

Sayın Ömer bey,

Yardımınız için size çok teşekkür ederim.
Kolay gelsin.

Saygılarımla,