Kullanılmayan Satır-Sütun Gizleme

1 2

MErhabalar;
Kullanılmayan satır veya sütunları nasıl gizleriz(göstermeyiz) veya yok ederiz.
Saygılarımlar...

sayın ozkovlu29,

bahsettiğiniz talebinize yönelik olarak;

ö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.

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)

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.

sayın ozkovlu29,

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.

sayın ozkovlu29,

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.

sayın ozkovlu29,

bu talebinize yönelik olarak,son bir kullanım ve bilgilendirme yöntemi olarak,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.

Sayın atoz112 ;
Detaylı anlatım ve kolay anlaşılması için görsel örnekleriniz için teşekkür ederim.
10 numara 5 yıldız Ayrı bir Excel Formu da yaparsanız, kullanıcılar için faydalı olacağını düşünüyorum.
Kolay gelsin. Saygılarımla...

1 2