Mouse scroll (Kaydırma Tekerleği) Çalışmıyor.

[askm]

Kolay gelsin. Form ile sayfalar arası geçiş yaptırıyorum. seçtiğim sayfada Mouse scroll çalışmıyor. Manuel olarak farklı bir sayfaya geçip tekrar ilgili sayfaya gelince çalışıyor.

 

[GursoyC]

formda klavyedeki scroll lock düğmesini aktif edecek bir kod var mı?
gerçi böyle bir kod var mı onu da bilmiyorum ama, sözkonusu vba olunca vardır diye düşünüyorum.

 

[askm]

Scrool aktif olmuyor. Üstelik farklı bir sayfaya manuel geçiyorum. Tekrar form ile açtığım sayfaya geçince çalışıyor. Screenupdate de true yapıyorum. Ama olmuyor.
Aşağıdaki kodları kullanıyorum.

    UserForm1.ComboBox1.Text = ""
    UserForm1.ComboBox2.Text = ""
    UserForm1.ComboBox3.Text = ""
    UserForm1.ComboBox2.Visible = False
    UserForm1.Label2.Visible = False
    UserForm1.ComboBox3.Visible = False
    UserForm1.Label3.Visible = False
    UserForm1.ComboBox4.Visible = False
    UserForm1.Label5.Visible = False
    Me.Hide
    Application.Visible = True
    Worksheets(SayfaAdi).Select

 

[antonio]

Me.Hide

yerine;

Unload Me

yazarak deneyin.

 

[askm]

Boş bir hücreye yazı yazıyorum. Yazı gözüküyor. Delete ile siliyorum. Onu bile sildiğini göstermiyor. Ama silme işlemi yapıyor.

 

[askm]

Sayın Antonio dediğiniz gibi de olmuyor.

 

[askm]

Sayfayı açtıktan sonra kaydırma işlemini yapsam da Anasayfada yapıyor. Anasayfadaki ekran (hücre) aşağı inmiş oluyor. Yani form aç butonunun olduğu sayfada. Enteresan bir durum.

 

[askm]

Sorunu çözdüm. Modüle içerisine UserForm1.Show yazarak Düğmeye bağlamıştım. Bunun yerine command button kullanınca düzeldi.