Açılan Kutu İle Satır Göster-Gizle Nasıl?

[sokrates11]

Bu Formülle
=TOPLA.ÇARPIM((Sayfa2!$C$1:$C$1199=C5)*(Sayfa2!$D$1:$D$1199="E")*(Sayfa2!$E$1:$E$1199=2008)*(Sayfa2!$F$1:$F$1199=$C$3))

(C3 Hücresi açılan kutu)
C3 Hücresine göre uyan kayıtları saydırıyorum;
Bazı satırlarde veri olmuyor.
onları da gizlemek için;(boş satırları gizle butonu)

Sub bidahabossatgizle()
For i = 5 To 33
If Range("H" & i) = 0 Then _
Range("H" & i).EntireRow.Hidden = True
Next
End Sub

kodunu;

C3 Değişince
daha önce veri olmayan satırlarda veri oluyor ancak satırlar gizli olduğu için göreniyorum.
onları göstermek için;(tümünü göster butonu)

Sub bidahabossatgoster()
For i = 5 To 33
If Range("c" & i) <> "" Then _
Range("c" & i).EntireRow.Hidden = False
Next
End Sub

kodunu kullanıyorum.

Yapmak istediğim;

GÖSTER/GİZLE butonlarını kullanmdan C3 (açılır) kutunun değişmesiyle;
önce satırların hepsini açmak, sonra da boşsatırları gizlemek istiyorum..
teşekkürler....

 

[janveljan]

Bu kodları ilgili sayfanın kod kısmına girerseniz belki çözüm olabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
bidahabossatgoster
bidahabossatgizle
End Sub

 

[Orion1]

Dosyayı bir gönderseniz.

 

[sokrates11]

Teşekkür

Çok teşkkürler oldu

 

[ahmetyasar]

arkadaşlar merhaba.bu kodları nerede yaratıyosunuz.excelin derinliklerine inmem lazım.Access damı yapıyosunuz.banada iki satır yazarsanız sevinirim.saygılarımla