Sayfada kaydırma çubukları

[mustafa7691]

Sn Dostlar,forumda defalarca arattım,genelde kitap olarak yapılmış örnekler var.Ben sadece belli sayfalardaki kaydırma çubuklarının yok olmasını istiyorum tabiki imkan ve bilgisi olan dostlar yol gösterirse.şimdiden teşekkürler saygılarımla

 

[kombo]

Sn mustafa7691
Araçlar /seçenekler /Görünüm sekmesinde Yatay ve Dikey Kaydırma çubuğu yazan kutuları boşaltın.
Yalnız tüm Kitap etkilenir. Bazı sayfalarda kaldırmak istiyorsanız onunla ilgili makro yazmak gerekli diye düşünüyorum.

 

[kombo]

O da şöyle birşey olabilir.

Sub auto_open()
Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Select
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
    End With
End Sub

Açılışta Sayfa1 sayfa2 sayfa3 deki çubukları kaldırır.

 

[altanson]

peki belli bir satır ve/veya sütündan sonrasının görünmesini nasıl engelleyebiliriz?

 

[mustafa7691]

Sn kombo ilginize teşekkürler aradığım belli sayfalardaki çubukların yok olması kodunuzu kullandım ancak bu kodlada tüm sayfalar etkileniyor,yani hepsi yok oluyor.

 

[kombo]

peki belli bir satır ve/veya sütündan sonrasının görünmesini nasıl engelleyebiliriz?

Kaydırma çubuğundan mı bahsediyorsunuz? Yoksa hücrelerden mi?

 

[kombo]

Sn kombo ilginize teşekkürler aradığım belli sayfalardaki çubukların yok olması kodunuzu kullandım ancak bu kodlada tüm sayfalar etkileniyor,yani hepsi yok oluyor.

Kodlarda ki sayfa1 sayfa2 sayfa3 yazan yere istediğiniz sayfaları yazın. Dosyanızda 3 sayfa varsa ve isimleri koddaki isimlerle aynı ise hepsi etkilenir.

Eğer tek sayfada gizlemek istiyorsanız.

Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Select

Satırını

Sheets("Sayfa2").Select

gibi değiştirin. Sayfa2 yerine istediğiniz sayfayı yazın.

 

[altanson]

Kaydırma çubuğundan mı bahsediyorsunuz? Yoksa hücrelerden mi?

evet hücreler

 

[mustafa7691]

Sn kombo sadece sayfa 1 bıraktım ama yinede tüm sayfaları etkiledi(kaydırma çubukları tümünde yok oldu)

 

[kombo]

Sn altanson

Gözükmesini istemediğiniz satır veya sütunları seçin. Seçili halde iken sağ klik yapın. Açılan pencereden Gizle seçin. Tamam deyin çıkın.

 

[mustafa7691]

Sub auto_open()
Sheets(("ANA")).Select
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End Sub


Sn kombo kodunuzu bu şekilde değiştirdim sizin talimatınıza göre ve modül içine aktardım.ama belirttiğim gibi yine bütün sayfalardaki kaydırma çubuklarını kaldırıyor.saygılarımla

 

[kombo]

Sn mustafa7691

Makro bilgim iyi değildir. Denememiştim, demek ki öyle olmuyormuş. Biraz araştırayım. Özür olsun.

 

[mustafa7691]

Rica ederim her şartta benden iyisiniz.ilgileriniz için teşekkürlerimle saygılar

 

[kombo]

Sayın mustafa7691

Private Sub Worksheet_Activate()
With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
    End With
End Sub

Yukarıdaki kodu çubuklarını gizlemek istediğiniz sayfanın kod sayfasına.

Private Sub Worksheet_Activate()
With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
    End With
End Sub

Bunuda diğer sayfaların kod sayfasına kopyalayın.

Alt+F11 ile vba sayfasında , sayfaların kod sayfasını inceleyin.

Ancak bu kadar yapabildim.

 

[altanson]

Sn altanson

Gözükmesini istemediğiniz satır veya sütunları seçin. Seçili halde iken sağ klik yapın. Açılan pencereden Gizle seçin. Tamam deyin çıkın.

ben ondan bahsetmiyorum, çalışma sayfasının boyutunu değiştirmekten baksediyorum 256:65536 lık bir çalışma sayfası yerine örneğin 50:100 bir çalışma sayfası nasıl elde edebiliriz. yani 100ncu satırdan sonrasının olmaması...

 

[Seyit Tiken]

Böyle bir kod kullanabilirsiniz. Tek butonla gizle/göster yapmaktadır.

Sub Makro1()
[a101:a65536].Rows.Hidden = [a101:a65536].Rows.Hidden = 0
[ay1:ıv1].Columns.Hidden = [ay1:ıv1].Columns.Hidden = 0
End Sub

 

[altanson]

Böyle bir kod kullanabilirsiniz. Tek butonla gizle/göster yapmaktadır.

Sub Makro1()
[a101:a65536].Rows.Hidden = [a101:a65536].Rows.Hidden = 0
[ay1:ıv1].Columns.Hidden = [ay1:ıv1].Columns.Hidden = 0
End Sub

çok teşekkürler

 

[mustafa7691]

herkese teşekkürler saygılarımla

 

[conari]

ben ondan bahsetmiyorum, çalışma sayfasının boyutunu değiştirmekten baksediyorum 256:65536 lık bir çalışma sayfası yerine örneğin 50:100 bir çalışma sayfası nasıl elde edebiliriz. yani 100ncu satırdan sonrasının olmaması...

Sub Auto_Open()
    Sheets("ANA").Select
   Worksheets(1).ScrollArea = "A1: B10"
   Worksheets(2).ScrollArea = "A50: L100"
End sub

ilgili sayfalarda sadece bu aralıklarda dolaşılabilir.