Gizleme ve Gösterme İşlemlerinin MAKRO İÇERİSİNE AKTARILMASI


eğer buton eklemek yerine bu işlemleri yapmak üzere kısayol tuşlarına atamak isterseniz,bunun için yapmanız gerekenler şunlardır:

1)



yukarıdaki resimde görüldüğü üzere,

Sub Makro1()

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.



'KOLON VE SATIR GİZLEMEK İÇİN



    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

End Sub







Sub Makro3()

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.



'GİZLENEN KOLON VE SATIRI ESKİ HALİNE DÖNÜŞTÜRMEK İÇİN



    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

End Sub

buradaki kodları,YENİ MODÜL oluşturup içerisine ekleyip kaydediniz.

2)



sayfadayken,üst menüden ARAÇLAR - MAKRO - MAKROLAR ifadesini seçiniz.

3)



ekrana gelecek olan makro penceresindeyken,sırasıyla önce MAKRO1 adlı makroyu sol tuşa basıp seçili duruma getiriniz ve SEÇENEKLER yazılı butonu tıklayınız ve bir kısayol harfi tanımlayınız.örneğin;a harfi.

4)



3.maddedeki işlemleri,bu sefer diğer makro için gerçekleştiriniz.o makro için de,b harfi tanımlanmıştır.

sayfadayken,CTRL + a tuş kullanımı ile bu kolonları ve satırları gizlerken,CTRL + b tuş kullanımı ile de gizlenmiş olanları tekrar görünür duruma getirmiş olursunuz.

bilginize...iyi çalışmalar,saygılar.