Listbox da mouse tekerleği ile ilgili

[drummers]

Ekli dosyamda Listbox1 de mouse tekerleği kullanmak istemekteyim.

İlgili uygulamayı dosya üzerinde yapabilirseniz sevinirim.

İlgileneceklere şimdiden teşekürler.

Kullanıcı adı: Admin
Şifre : 1

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Rami]

Eki inceleyin.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[drummers]

Eki inceleyin.

İlginize teşekkürler. Bu kodları daha öncede kendim denemiştim fakat nerede hata yaptığımı siz yağınca anladım. Teşekkürler

[drummers]

Eki inceleyin.

Şöyle bir hata ile karşılaşıyorum.

Data sekmesindeki "kayıt formu aç" butonuna tıkladığımda dosyayı kapatıyor. Sebebini çözmedim. teşekkürler

[Rami]

Şöyle bir hata ile karşılaşıyorum.

Data sekmesindeki "kayıt formu aç" butonuna tıkladığımda dosyayı kapatıyor. Sebebini çözmedim. teşekkürler

İfade ettiğiniz bu sorun; eklediğim dosya da mı?

[drummers]

İfade ettiğiniz bu sorun; eklediğim dosya da mı?

Evet.

"Module3" ve "UserForm_Activate()" altındaki
HookWheel Me, Me.Width, Me.Height, 3 kodlarını silince düzeldi. Fakat bu kodları ben  kullanmak istiyorum

[Rami]

Sorun "Excele dön tuşu" kullanıldıktan sonra ortaya çıkıyorsa

Kod: [Seç]

UserForm1.Hide
yerine

Kod: [Seç]

Unload UserForm1şeklinde deneyin.
Aynı buton altındaki

Kod: [Seç]

UserForm_Initialize  koduna gerek yok

Kod: [Seç]

Private Sub UserForm_Activate()
HookWheel Me, Me.Width, Me.Height, 3
CommandButton22_Click
End Sub

Kod: [Seç]

' Excele dön tuşu
Private Sub CommandButton3_Click()
Unload UserForm1
Application.Visible = True ' excele dönüş makrosu
Sheets("data").Select
Range("A1").Select
End Sub

[drummers]

Sorun "Excele dön tuşu" kullanıldıktan sonra ortaya çıkıyorsa

Kod: [Seç]

UserForm1.Hide
yerine

Kod: [Seç]

Unload UserForm1şeklinde deneyin.
Aynı buton altındaki

Kod: [Seç]

UserForm_Initialize  koduna gerek yok

Kod: [Seç]

Private Sub UserForm_Activate()
HookWheel Me, Me.Width, Me.Height, 3
CommandButton22_Click
End Sub

Kod: [Seç]

' Excele dön tuşu
Private Sub CommandButton3_Click()
Unload UserForm1
Application.Visible = True ' excele dönüş makrosu
Sheets("data").Select
Range("A1").Select
End Sub

"data" sekmesindeki kayıt forumu aç CommandButton una tıkladığımda sorun yaşamaktayım

[Rami]

Ekli dosyamda Listbox1 de mouse tekerleği kullanmak istemekteyim.

İlgili uygulamayı dosya üzerinde yapabilirseniz sevinirim.

"data" sekmesindeki kayıt forumu aç CommandButton una tıkladığımda sorun yaşamaktayım

Sanırım uygulama eklemeyi ihmal ettim..!

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]