Dikey Kaydırma Çubuğu kaymasın

[eleganceesma]

Excelde yaptığım liste örneğin a1 ile e18 arasında olsun. Ben kaydırma çubuğunun sonsuza kadar aşağıya kadar kaymamasını istiyorum. Nasıl sınırlandırabilirim. Yardımcı olursanız sevinirim.

 

[Haluk]

VBE - editör kısmında ilgili sayfanın "Properties" penceresinde ScrollArea bölümüne A1:E18 yazın.

 

[eleganceesma]

Teşekkür ederim....İyi çalışmalar...

 

[SeSi]

Bunu yapıyorum. Sayfayı kaydedip çıkıyorum.
Tekrar girişte ScrollArea bölümüne yazdıklarım silinmiş oluyor.

 

[Orion1]

Bunu yapıyorum. Sayfayı kaydedip çıkıyorum.
Tekrar girişte ScrollArea bölümüne yazdıklarım silinmiş oluyor.

Bir modüle aşağıdaki kodları yazınız.

sub Auto_Open
activesheet.ScrollArea = "A1:E18" 
end sub

 

[SeSi]

Teşekkür Ederim.
Fakat ben bunu makrosuz yapmak istiyorum.

Haluk beyin anlattığı şekilde:

VBE - editör kısmında ilgili sayfanın "Properties" penceresinde ScrollArea bölümüne A1:E18 yazın.

Fakat sayfayı kapatıp açtığımda ScrollArea bölümüne yazdıklarım neden siliniyor çözemedim.

 

[Orion1]

Teşekkür Edirim.
Fakat ben bunu makrosuz yapmak istiyorum.

Haluk beyin anlattığı şekilde:


Fakat sayfayı kapatıp açtığımda ScrollArea bölümüne yazdıklarım neden siliniyor çözemedim.

Makrosuz olmaz.Kapatıp açınca silinir.

 

[uzmanamele]

merhaba
Syn Orion2
hücre adresi seçildiğinde istenen hücreye gidilebilmekte.
A1:E18 sınırı dışında kalan alanda veri varsa bu veriyi korumak gerekir. K25 hücreye giriş yapılıp enter'a basınca son yazılanı silip eski veriyi geri alması gerekir. kodlarınıza bunu ilave edebilir misiniz?

 

[Orion1]

merhaba
Syn Orion2
hücre adresi seçildiğinde istenen hücreye gidilebilmekte.
A1:E18 sınırı dışında kalan alanda veri varsa bu veriyi korumak gerekir. K25 hücreye giriş yapılıp enter'a basınca son yazılanı silip eski veriyi geri alması gerekir. kodlarınıza bunu ilave edebilir misiniz?

Bunun için sayfa koruması yapmak gerekir.

 

[uzmanamele]

merhaba
sayfa koruma ile yapılabildiğini biliyorum. sizin kodlar ile A1:E18 alanı dışında veri girişini tam olarak engelleyemediğimize göre bu kodlara ilaveyi nasıl yapabiliriz.

 

[Orion1]

merhaba
sayfa koruma ile yapılabildiğini biliyorum. sizin kodlar ile A1:E18 alanı dışında veri girişini tam olarak engelleyemediğimize göre bu kodlara ilaveyi nasıl yapabiliriz.

Aşağıdaki kod ile aralık dışında bir yer seçilemiyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A1:E18]) Is Nothing Then Range("A1").Select
End Sub

 

[uzmanamele]

merhaba
syn Orion2 teşekkürler.

 

[Orion1]

merhaba
syn Orion2 teşekkürler.

Rica ederim.
İyi çalışmalar.

 

[Seyit Tiken]

Makrosuz yöntemle yapılmış hali. Çoğumuzun bildiği bir yöntemle. Çubuklar kayar, tablo sabit kalır.

 

[SeSi]

Sayın Seyit Tiken,

Bu yöntemin yapılışını anlatabilir misiniz?

Teşekkürler.

 

[Seyit Tiken]

Pencere > Böl > Bölmeleri Dondur

 

[hussain]

tesekkurler