User Form açınca kaydırma çubuğu çalışmıyor

[yumatdeym]

Arkadaşlar kendimce sınav değerlendirme tablosu yapmıştım yalnız beni epey sinir eden bir durum var. Sayfalar arasında normal tıklama ile geçiş yapıca mouse tekerleği ile kaydırma çubuğu çalışıyor fakat UserForm üzerinden sayfalar arasında geçiş yaptığımda bazen mouse tekerleği ile sayfayı kaydıramıyorum ama kaydırma çubuğuna göre sayfa kayıyor. Yani ekran donuyor, bu durumda Excel kapat butonu bile çalışmıyor. Ta ki ben başka bir sekmeye tıklayınca her şey düzeliyor.
Scroll Lock falan kapalı arkadaşlar. Sayfalarda bölme ya da dondurma da yok.
ScreenUpdating kodlarını da çıkarıp denedim, bir şey değişmedi.

User Form yükleme kodu:

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
giris_yazisi = Worksheets("SINAV BİLGİLERİ").Range("A21").Value
Label42.Caption = (giris_yazisi)
Application.ScreenUpdating = True
End Sub

Videoyu seyredince anlayacaksınız durumu.
https://www.youtube.com/watch?v=viBPbqCEP7c
[YOUTUBE]http://www.youtube.com/watch?v=viBPbqCEP7c[/YOUTUBE]

 

[Emir Hüseyin Çoban]

Screenuptading kodlarını iptal edin.

 

[yumatdeym]

Denemiştim zaten, yine olmuyor.

 

[ExcelF1]

Mümkün ise dosyanızı ekleyebilir misiniz.

 

[Emir Hüseyin Çoban]

. . .

ExcelF1 haklı dosya üzerinde görerek net çözüm bulununabilir.
Birde Sınıf Listesi butonunundaki kodlarınıza range("a1").select ile hücre seçme koduda ilave ederek deneyiniz.

. . .

 

[yumatdeym]

Arkadaşlar sanırım sorunu hallettim. Bazı sayfalarda tamamen koruma vardı, hücreler tıklanmayacak şekilde. Ben sayfalar arasında geçiş yaparken sayfaya geçtikten sonra hücre seçtiriyordum.

Private Sub CommandButton5_Click()
Sheets("SORU FREKANS ANALİZİ").Select
Range("A3").Select
Unload Me
End Sub

korumaları kaldırıp denedim, şimdi bir sorun yok gibi. Eve gidince kesin sonucu yazarım.

Yardımınız için teşekkürler...

 

[yumatdeym]

Olmadı arkadaşlar, bir yerde yanlış yapıyorum ama nerede?
Bi bakabilir misiniz?

https://www.dropbox.com/s/ah92qne0n86r3rr/DEĞERLENDİRME_4.xlsm

 

[Emir Hüseyin Çoban]

. . .

Dosyanızda denemeler yapıyorum.
Bir sorun görünmüyor. Userform kapandıktan sonra, sayfa aktif bir şekilde hareketleri algılıyor. (Office 2007 de deniyorum.)

Birde şu şekilde deneyiniz. Önce formu kapatıp, sonra sayfa ve hücreyi aktif edin.

Private Sub Sinif_Listesi_Click()
[B]Unload Me[/B]
Sheets("SINIF LİSTESİ").Select
Range("A2").Select
End Sub

. . .

 

[yumatdeym]

Dediğiniz şekilde kodları değiştirdim yine sayfa donuyor.

Application.ScreenUpdating komutlarını kaldırdım,
Sayfa korumalarını kaldırdım,

yine de olmuyor. Office versiyonundan kaynaklanacağını sanmıyorum. Elimde 2007 kurulumu yok ama sanal PC üzerinde office 2003 kurup deniycem.

 

[ExcelF1]

Eklemiş olduğunuz dosya bende de gayet düzgün bir şekilde çalışmakta. (2010 Versiyonu)
Siz sanırım office kurulumu veya versiyonu ile ilgili bir problem yaşıyorsunuz.

 

[yumatdeym]

Şimdi 2007 indiriyorum, deniycem.

 

[yumatdeym]

Evet, sanal makineye 2007 kurdum ve dosyada problem yaşamadım.
Okuldaki pclerde 2010 var onlarda da deniycem. Anlayamadığım şey bendeki 2013 kurulumunda mı sorun var acaba? Dosyayı da 2013'te hazırladım...