tablo dışını kapatma

[koyuncuh]

Excelde bir tablo hazırladım. bu tablo dışında kalan satır ve sütunlar kapansın görünmesin istiyorum, nasıl olacak?

 

[ZorBey_]

İyi Çalışmalar Sayın koyuncuh
Hangi satırdan sonraki satırlar gizlenecek
örnek 40.satırdan sonrakiler gizlenecek gibi.
Hangi sutunundan sonraki sutunlar gizlenecek
örnek Z Sutunundan sonrakiler gibi.

 

[Murat OSMA]

Görünmesini istemediğiniz satır ve sütunları gizleyerek yapabilirsiniz.

Videoyu izleyiniz.
[FLASH]http://cizgi-tagem.emo.org.tr/disk4/mso2010/excel-temel/bolum3/3-4.swf width=770 height=600[/FLASH]

 

[koyuncuh]

Söylemek istediğim şey o değildi, bir tablo yaptım, tablonun dışında kalan hücreler var, onları kapatıyım istiyorum. Mesela tablomun en son sütünu AG sütunu, bu sütundan sonraki tüm sütunlar kapalı olsun.

 

[Ömer BARAN]

-- Gereksiz sütunlar için sütun başlığını (sütun adının olduğu HARF) seçtikten sonra Ctrl + Shift + Sağ Ok Tuşu'na birlikte basıp fareyle sağ tık -> GİZLE,
-- Gereksiz satırlar için satır başlığını (satır adının olduğu SAYI) seçtikten sonra Ctrl + Shift + Aşağı Ok Tuşu'na birlikte basıp fareyle sağ tık -> GİZLE,
yapabilirsiniz.
Sonra da Ctrl+Home Tuşlarına basın ve tablonuzun başına dönün.

 

[koyuncuh]

Bu dediğinizi yaptım, bu seferde tekerleğe basarak tabloda normalde sağa sola doğru kayabiliyor iken bu sefer yapamamaya başladım, mecburen tablo üzerindeki sağa sola kaydırma tuşlarına basmam gerekiyor. Ama mouse ile bunu yapmak çok daha pratik oluyordu, neden böyle acaba?

 

[Murat OSMA]

Ömer Bey'in müsadesiyle, bu konuda makro ile bir çözüm önermek istiyorum.

Sn. koyuncuh,

Tablonuzu seçerek aşağıdaki kodları çalıştırabilirsiniz.
Seçili olan alan dışındaki tüm satır ve sütunları gizleyecektir ve sadece seçili olan alan görünecektir.

[FONT="Trebuchet MS"]Sub Emre()
    Dim i&, a&, s&, t&
    If TypeName(Selection) <> "Range" Then Exit Sub
    If Rows(Rows.Count).EntireRow.Hidden Or Columns(Columns.Count).EntireColumn.Hidden Then
        Cells.EntireColumn.Hidden = False
        Cells.EntireRow.Hidden = False
        Exit Sub
    End If
    i = Selection.Rows(1).Row
    a = i + Selection.Rows.Count - 1
    s = Selection.Columns(1).Column
    t = s + Selection.Columns.Count - 1
    Application.ScreenUpdating = False
    On Error Resume Next
'   Satırları Gizle
    Range(Cells(1, 1), Cells(i - 1, 1)).EntireRow.Hidden = True
    Range(Cells(a + 1, 1), Cells(Rows.Count, 1)).EntireRow.Hidden = True
'   Sütunları Gizlw
    Range(Cells(1, 1), Cells(1, s - 1)).EntireColumn.Hidden = True
    Range(Cells(1, t + 1), Cells(1, Columns.Count)).EntireColumn.Hidden = True
    Application.ScreenUpdating = True
End Sub[/FONT]

 

[koyuncuh]

Özür dilerim ama bu kodları nasıl çalıştırıcam? Ayrıca bunları yükleyince excel.i her açtığımda birşeyleri etkinleştir şeklinde uyarı verecek ise çok kullanışlı olmayacaktır.

 

[Murat OSMA]

Özür dilerim ama bu kodları nasıl çalıştırıcam?

• Sayfadayken ALT + F11 tuşlarına basın.
• Açılan pencerenin üst menülerinden, önce Insert ardından da Module'yi seçin.
• Verdiğim kodları açılan sayfaya yapıştırın.
• Bu konuda söylenenleri yapın; http://www.excel.web.tr/f157/sayfada-buton-duome-olu-turmak-ve-makro-atamak-t136979.html

Söylenenleri yaptıktan sonra tablonuz örnek olarak bu hâle gelecektir;

Ayrıca bunları yükleyince excel.i her açtığımda birşeyleri etkinleştir şeklinde uyarı verecek ise çok kullanışlı olmayacaktır.

Bu açılan uyarı penceresi ile karşılaşmak istemiyorsanız şunları yapın; http://www.excel.web.tr/f157/office-2007de-makro-guvenlik-ayarlaryny-du-urmek-resimli-t83371.html

İyi akşamlar.

 

[koyuncuh]

Bu tabloyu bizim işyerinde herkes kullanacak, herkeste tek tek bu ayarı yapmak sıkıntı olacaktır. ctrl+shft+sağ ve aşağı ok aslında istediğimizi yapıyor ancak onda da mouse scroll tuşunu çözebilirsek aslında yeterli olacaktır. Ama tabi bu yardımlarınız için de teşekkür ederim.

 

[Ömer BARAN]

Farenin tekerlek kısmıyla ilgili sıkıntıyı anlayamadım doğrusu, excel seçeneklerinizde dikey ve yatay kaydırma çubukları görünür durumda mı acaba?

 

[koyuncuh]

evet görünür durumda.
mouse.un tekerleğine basarak mouse.u sağa sola kaydırdığınızda sayfada sağa sola, yukarı aşağı gezinebilirsiniz ama sayfa sonlarını böyle gizleyince tekerleğe basarak gezemiyorsunuz.

 

[Murat OSMA]

Bu tabloyu bizim işyerinde herkes kullanacak, herkeste tek tek bu ayarı yapmak sıkıntı olacaktır.

Herkes dediğiniz kaç kişi olabilir ? Bir tabloyu kaç kişi ortak kullanabilir ?
Ayrıca herkes aynı tabloyu kullanacaksa; tek tek yapmaya gerek var mı ?
Bir kere ayarlayıp dağıtın.


Yine olmaz derseniz; dosyanızı gönderin ayarlayıp yollayalım.

 

[koyuncuh]

Müdürlüğümüzdeki 68 kişi.
Ama bu ayar olayı herkesin bilgisayarında excel ayarlarına girip yapılması gereken birşey değil mi?

 

[Murat OSMA]

Eğer herkes aynı tabloyu kullanıyorsa; herkesin ayarlama yapmasına gerek var mı sizce ?

Yine olmaz derseniz; dosyanızı gönderin ayarlayıp yollayalım.

Teklifim geçerlidir.

 

[koyuncuh]

pm gönderdim.

 

[Murat OSMA]

Özel mesajınıza cevap verdim.

 

[koyuncuh]

Teşekkür ederim ancak makroları etkinleştir şeklinde uyarı veriyor. Tamam benim kullandığım excel.de buna sürekli izin ver diyerek halledebilirim ama diğer bilgisayarlarda da bunu yapmak lazım ya da açarken izin ver diyecek öyle açılacak.
Ayrıca mouse.un tekerleği yine çalışmıyor yani tekerleğe basık tutunca sayfa içerisinde gezinemiyorum.

 

[Murat OSMA]

Neden bahsediyorsunuz ?
Dosyanıza herhangi bir makro eklemedim !
Sadece satır ve sütunları gizledim.
Bunu benim ya da sizin yapmanız arasında bir fark yok.
Siz satır ya da sütunları gizlediğinizde makroları etkinleştir uyarısı alıyor musunuz ?