-
Foruma hoş geldin 👋 Ziyaretçi
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt ol
Çözüldü Sayfa Hareket Etmesin
- Konuyu Başlatan RBozkurt
- Başlangıç tarihi
- Cevaplar : 11
- Gösterim : 1K
-
- Etiketler
- sayfa hareket etmesin
Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Çözüm
CSS:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
RBozkurt
Yeni Üye
Konuyu Başlatan
İlgili sayfanın kod görüntüle kısmına ekledim fakat çalışmadı.
RBozkurt
Yeni Üye
Konuyu Başlatan
Bu şekildede denedim oda olmadı
C++:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Option Explicit
Private Sub Worksheet_Activate()
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End Sub
hangi sayfada uygulamak istiyorsanız o sayfanın Worksheet_Activate() ne yazınız
Private Sub Worksheet_Activate()
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End Sub
hangi sayfada uygulamak istiyorsanız o sayfanın Worksheet_Activate() ne yazınız
RBozkurt
Yeni Üye
Konuyu Başlatan
Hocam sayfa2 ye eklemeniz mümkünmüdür?
Sayın RBozkurt siz yukarıdaki kod ile çalışma kitabı açılınca bu kod çalışsın diyorsunuz. Workbook_activate ile.
Hangi sayfada istiyorsanız o sayfanın kod satırlarında yazınız. Worksheet_ activate ile.
RBozkurt
Yeni Üye
Konuyu Başlatan
Sayın himmgarip
Sayfa2'nin kod kısmına alttakini ekledim fakat pasifize olmuyor.
C++:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Siz sayfanın hareket etmemesini mi istiyorsunuz? Ki öyleyse bu kodlar sadece sağ ve alttaki kaydırma çubuklarını gizler.
Ekte dosyada sayfa 2 inceleyin. Bölmeleri dondur işinizi görecektir.
Ekte dosyada sayfa 2 inceleyin. Bölmeleri dondur işinizi görecektir.
Ümit Bakacak
Destek Ekibi
Sayın RBozkurt kaydırma çubuklarını gizlemek farklı bir iş kaydırmayı devre dışı bırakmak farklı bir iştir.
Arkadaşların paylaştıkları kodlar kaydırma çubuklarını gizler ama kaydırmayı devre dışı bırakmaz.
Kaydırmayı devre dışı bırakmak için şu kodu kullanabilirsiniz:
Sayfa1.ScrollArea = Range("A1").Address
Mesela A1: A250 arasını görsün daha aşağı ve sağa gidemesin istiyorsanız adresi isteğinize göre düzenlemeniz yeterlidir.
Sayfa1.ScrollArea = Range("A1: A250").Address
Engeli kaldırmak istediğinizde ise:
Sayfa1.ScrollArea =""
Dosya kapatılıp açıldığında kaydırma alanı varsayılan olarak açıldığı için kodu workbook open içine yazınız.
Ancak bu işlem adres kutusuna hücre adresi yazarak hücre seçmeyi engellemez. Mesela şunu yaptınız:
Sayfa1.ScrollArea = Range("A1").Address
Ve dosyayı açtığınızda ekranda görünen en alt satır diyelim ki 40. satır.
Kullanıcı kaydırma yapamaz. Ama adres kutusuna a123 yazarak o hücreye erişebilir.
Ekranı a123 hücresine kaymaz ancak a123 hücresi seçili olur, hücreye veri girilebilir ve formül çubuğu içinde hücredeki değer okunabilir.
Arkadaşların paylaştıkları kodlar kaydırma çubuklarını gizler ama kaydırmayı devre dışı bırakmaz.
Kaydırmayı devre dışı bırakmak için şu kodu kullanabilirsiniz:
Sayfa1.ScrollArea = Range("A1").Address
Mesela A1: A250 arasını görsün daha aşağı ve sağa gidemesin istiyorsanız adresi isteğinize göre düzenlemeniz yeterlidir.
Sayfa1.ScrollArea = Range("A1: A250").Address
Engeli kaldırmak istediğinizde ise:
Sayfa1.ScrollArea =""
Dosya kapatılıp açıldığında kaydırma alanı varsayılan olarak açıldığı için kodu workbook open içine yazınız.
Ancak bu işlem adres kutusuna hücre adresi yazarak hücre seçmeyi engellemez. Mesela şunu yaptınız:
Sayfa1.ScrollArea = Range("A1").Address
Ve dosyayı açtığınızda ekranda görünen en alt satır diyelim ki 40. satır.
Kullanıcı kaydırma yapamaz. Ama adres kutusuna a123 yazarak o hücreye erişebilir.
Ekranı a123 hücresine kaymaz ancak a123 hücresi seçili olur, hücreye veri girilebilir ve formül çubuğu içinde hücredeki değer okunabilir.
Son düzenleme:
Çözüm
- Durum