Kullanılmayan Satır-Sütun Gizleme

1 2
19/02/2017, 20:37

ozkovlu29

MErhabalar;
Kullanılmayan satır veya sütunları nasıl gizleriz(göstermeyiz) veya yok ederiz.
Saygılarımlar...
20/02/2017, 16:50

atoz112

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)




4)



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.
20/02/2017, 16:59

atoz112

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.
20/02/2017, 17:02

atoz112

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.
20/02/2017, 17:17

atoz112

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.
21/02/2017, 08:45

ozkovlu29

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