- Katılım
- 21 Eylül 2005
- Mesajlar
- 32
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....
=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....
Son düzenleme: