Gizle Fonksiyonunu Gruplandırma.

[mtozer]

Merhaba,

Ornekte yapmaya calistim ama hata mesajı aldım. Yapmaya calistigim sey; "Buton2" ye tiklandiginda "C4" hucresinde aylarin listelendigi combobox ta hangi ay var ise o aya ait sutunların gorunmesi gerekiyor.

"Buton3" e tiklandiginda ise butun aylarin goruntulenmesi gerekiyor.

iyi calismalar.

 

[Ferhat Pazarçevirdi]

Aşağıdakileri, standart bir modul sayfasına kopyalayınız ve ilgili düğmelere atayınız.

Sub Dugme2()
Dim bul As Range
Set bul = Range("A6:A17").Find(what:=Range("B4"))
If Not bul Is Nothing Then
   Rows(bul.Row).EntireRow.Hidden = True
Else
   Call Dugme3
End If
Set bul = Nothing
End Sub

Sub Dugme3()
Rows("6:17").EntireRow.Hidden = False
End Sub