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.