sayfanın sağa ve sola kaymasını engellemek

[wirtue]

Arkadaşlar merhaba ;

hazırladığım sayfa görünümü tam olarak ekranı kaplıyor ve hücrelerle sağa ilerlediğimizde sayfanın sağa kaymasını nasıl engelleyeblirim

İyi çalışmalar

 

[S.Yiğit]

.......................................

 

[uzmanamele]

merhaba
araçlar / seçenekler / görünüm / yatay-düşey kaydırma çubuğu onay kutularınız boşaltın

 

[wirtue]

RE :

merhaba
araçlar / seçenekler / görünüm / yatay-düşey kaydırma çubuğu onay kutularınız boşaltın

Sayın hocam verdiğiniz bilgi için tşk ler.. evt uyguladımve alt kaydırma iptal oldu şuan da,, peki bu şekilde nasıl sabitleyebilirim çünkü görünen herhangi bir hücreye tıklayıp sağa doğru devam ettiğimde sayfa yine sağa açılıyor..

 

[uzmanamele]

merhaba

bu kodu dener misiniz

Sub sınırla()
Worksheets(1).ScrollArea = "A1:K30" 'Sadece bu aralıkta çalışabilirsiniz
End Sub

Sub çöz()
Worksheets(1).ScrollArea = ""
End Sub

 

[wirtue]

Re : Re

bu kodu dener misiniz

sub sınırla()
worksheets(1).scrollarea = "a1:k30" 'sadece bu aralıkta çalışabilirsiniz
end sub

sub çöz()
worksheets(1).scrollarea = ""
end sub

hocam tşk ler

 

[wirtue]

hocam birde makro otomatik çalışırsa tam süper olucak

 

[uzmanamele]

merhaba

sayfanın kod bölümüne yazarak dener misiniz

Private Sub Worksheet_Activate()
ScrollArea = "a1:k30" 'sadece bu aralıkta çalışabilirsiniz
End Sub

Private Sub Worksheet_Deactivate()
ScrollArea = ""
End Sub

 

[wirtue]

Re :

hocam ekli tabloya uygularmısınız

 

[limanC34]

Selam
Sayın uzmanamele hocamın affına sığınarak yapmaya çalıştım.

 

[wirtue]

Re:

Selam
Sayın uzmanamele hocamın affına sığınarak yapmaya çalıştım.

Sayın limanC34 emeğine sağlık...bu işi buton eklemeden tabloyu açtığımızda makronun otomatik çalışmasının yolu da olabiir ama bi türlü yapamadım sayın hocamın verdiği kodu uygulayamadım

 

[uzmanamele]

merhaba

sayfa1'de A1:I48 aralığında çalışabilirsiniz.
çalışma alanını değiştirebilirsiniz.
kodlar sayfanın kod bölümüne yazılmıştır.

 

[wirtue]

Ynt :

sayfa1'de A1:I48 aralığında çalışabilirsiniz.
çalışma alanını değiştirebilirsiniz.
kodlar sayfanın kod bölümüne yazılmıştır.

Evt hocam kod bölümünde çalışma alanını değiştirebiliyorum fakat sayfa yinede hücrelerle ilerleyip sağa doğru kayabiliyor..Sayfa sağa kaymamalı " I " sutunundan sonra ilerlememeli

 

[uzmanamele]

merhaba
söylediğiniz gibi zaten.
sanırım dosyayı açtınız, makroları etkinleştirdiniz ve yön tuşlarıyla sağa ilerlenebildiğini gördünüz.
kod sayfa seçildiğinde tetiklenir. sayfa2 yi seçip sonra sayfa1 e dönseniz kodların çalıştığını görecektiniz.

Private Sub Worksheet_Activate()
ScrollArea = "a1:ı48" 'sadece bu aralıkta çalışabilirsiniz
End Sub

yerine aşağıdaki selectionchange şeklinde değiştiriniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ScrollArea = "a1:ı48" 'sadece bu aralıkta çalışabilirsiniz
End Sub

 

[wirtue]

evt hocam şimdi Ok..biraz uğraştırdım kusura bakayın yardımlarnız için çok çok tşk ler

 

[wirtue]

Son

merhaba
söylediğiniz gibi zaten.
sanırım dosyayı açtınız, makroları etkinleştirdiniz ve yön tuşlarıyla sağa ilerlenebildiğini gördünüz.
kod sayfa seçildiğinde tetiklenir. sayfa2 yi seçip sonra sayfa1 e dönseniz kodların çalıştığını görecektiniz.

Private Sub Worksheet_Activate()
ScrollArea = "a1:ı48" 'sadece bu aralıkta çalışabilirsiniz
End Sub

yerine aşağıdaki selectionchange şeklinde değiştiriniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ScrollArea = "a1:ı48" 'sadece bu aralıkta çalışabilirsiniz
End Sub

hocam çalışmanın sonuna geldik sayfa 1 ve sayfa 3 teki açıklamaları incelermisiniz
yardımlarınız için tşk ler

 

[uzmanamele]

merhaba

rapor ve anasayfa butonları için aşağıdaki kodları modüle yazın ve butona makroyu atayın

Sub rapora_git()
Sheets("sayfa3").Select
End Sub

Sub anasayfaya_git()
Sheets("sayfa1").Select
End Sub

sayfa3 de ne yapmak istediğinizi anlayamadım.
EĞERSAY, ETOPLA, TOPLA.ÇARPIM gibi fonksiyon kullanabilirsiniz

 

[wirtue]

peki hocam gerekli fonksiyonları girdikten sonra tabloyu nasıl kitleyeblirim birtek ana sayfa butonu aktif çalışabilsin diğer hücreler hiç cliklenmesin

 

[uzmanamele]

merhaba
sayfa koruma şifresi koyabilirsiniz

araçlar / koruma / sayfayı koru

not:
şifreyi sakın unutmayın.
unutursanızda bu sitede çözüm yolu aramayın. şifre kırma ile ilgili sorulara cevap alamazsınız.

 

[VahitM]

Sayfanın sağa ve sola kaymasını engellemek
Private Sub Worksheet_Activate()
ScrollArea = "a1:k30" 'sadece bu aralıkta çalışabilirsiniz
End Sub

Private Sub Worksheet_Deactivate()
ScrollArea = ""
End Sub

kodu sayfanın koduna ayazınca alan sabitleniyor, ancak, tekrar dosyayı açtığımda eski haline dönüyor, kod etkin olmuyor
yardım edebilirminiz