AccessTr.neT

merhaba sayın www.accesstr.net üyeleri,

Kullanılmayan Satır-Sütun Gizleme

yukarıda bağlantısı yazılı konuda talep edilmesi üzerine paylaşılan bilgilendirmeler akabinde,

örnek teşkil etmesi ve gerektiğinde benzer çalışmalar için kullanılması amacı ile,kullanılmayan kolon ve satırların gizlenmesini sağlamak üzere,ekran görüntüleri ile desteklenmiş olarak aşağıdaki anlatımın yapılması uygun görülmüştür.faydalı olması temennisi ile.

GİZLEME İŞLEMLERİ

1)




E kolonunun üst satırına geliniz ve SAĞ tuşa basınız.

2)



CTRL + SHIFT + SAĞ OK TUŞU sıralaması ile (önce,CTRL tuşuna basılı tutunuz,ardından SHIFT tuşuna da basılı tutunuz ve son olarak da SAĞ OK tuşuna basınız) bu tuşları seçip SAĞ tuşa basınız ve bu menüden GİZLE ifadesini seçiniz.

3)



aynı işlemi,bu sefer,satırlar için de uygulamak üzere,
CTRL + SHIFT + ALT OK TUŞU sıralaması ile bu tuşları seçip SAĞ tuşa basınız ve bu menüden GİZLE ifadesini seçiniz.



böylece,belirleyeceğiniz kolon ve satır sırasından sonraki kullanılmayacak olan kolonları ve satırları gizlemiş olursunuz.

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

GÖSTERME İŞLEMLERİ

kullanılmayan kolon ve satırların gizlenmesi sonrasında,eğer tekrar bu kolonlar ve satırlar gösterilmek istenirse,
ekran görüntüleri ile desteklenmiş olarak aşağıdaki anlatımın yapılması uygun görülmüştür.

1)



son mevcut bulunan kolonun  (D Kolonu) başlık kısmına gelip SOL tuşa basınız ve bırakmaksızın en sağa doğru getiriniz.bunu yapınca,resimdeki gibi son kolon değeri ifadesi belirecektir.

2)



seçili alan durumu mevcutken SAĞ tuşa basınız ve bu menüden GÖSTER ifadesini seçiniz.

3)



aynı işlemi,bu sefer,satırlar için de uygulayınız.en son mevcut satırın üzerine gelip bırakmaksızın en alt kısma kadar getiriniz.yine en son satır değeri görüntüsü belirecektir.

4)



seçili alan durumu mevcutken SAĞ tuşa basınız ve bu menüden GÖSTER ifadesini seçiniz.

böylece,gizlenen tüm kolonlar ve satırlar tekrar görünür duruma gelmiş olacaktır.

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

Gizleme ve Gösterme İşlemlerinin BUTON OLAY YORDAMI İÇERİSİNE AKTARILMASI

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.

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.

EK'te,

1)

konunun 3.mesajında yapılan açıklamalarda yer alan buton olarak kullanıma örnek olması adına,

BUTONLU-ATOZ.rar

adlı örnek uygulamayı,


2)

konunuzun 4.mesajında yapılan açıklamalarda yer alan buton olarak kullanıma örnek olması adına,

MAKROLU-ATOZ.rar

adlı örnek uygulamayı inceleyebilirsiniz.

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