yapılan bütün bu açıklamalarda yer alan işlemleri,eğer sayfa üzerinde iki buton ekleyip birine GİZLE diğerine de GÖSTER tanımlaması yaptıktan sonra,
GİZLE ifadeli butonun kod satırına
    Columns("E:E").Select
    Range("E4").Activate
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
    Rows("19:19").Select
    Range("B19").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-18
kodları dahil ediniz.
GÖSTER ifadeli butonun kod satırına
   Selection.EntireColumn.Hidden = False
    Rows("18:18").Select
    Range("C18").Activate
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=-9
    Rows("18:18").Select
    Range("C18").Activate
    Selection.EntireRow.Hidden = False
    Rows("18:1048576").Select
    Range("C18").Activate
    Selection.EntireRow.Hidden = False
    Range("E1").Select
kodlarını dahil ediniz.
bilginize...iyi çalışmalar,saygılar.