Mouse tekerleği ile listbox combobox kaydırmak

[cem yılmaz]

Merhabalar..
Forumumuzda bir çok konu inceledim ama eksik bişey yaptığımın farkındayım.Çözüm yolu bulamadığım için siz konu hakkında bilgisi olanlara danışmak istiyorum.
http://www.excel.web.tr/f48/listbox-da-mouse-tekerle-287-i-ile-kayd-t53029.html
linkini inceledim burada Sn korhan hocam ve Ferhat hocam örnek vermiş ve açıklamalarda bulunmuş fakat ben kendi formuma uygulayamadım.

Private Sub UserForm_Initialize()
On Error Resume Next
If Sheets("isimler").Cells(65536, "A").End(xlUp).Row > 1 Then
    ComboBox1.RowSource = "isimler!A2:A" & Sheets("isimler").Cells(65536, "A").End(xlUp).Row
    ComboBox1.Value = Range("A1")
    ComboBox3.RowSource = "isimler!B2:B" & Sheets("isimler").Cells(65536, "B").End(xlUp).Row
    ComboBox3.Value = Range("A4")
    DTPicker1.Value = Date
End If

For i = 1 To Sheets.Count - 1
Sheets("isimler").Cells(i, 3) = Sheets(i).Name
Next i
ComboBox2.RowSource = "isimler!c1:c" & Sheets("isimler").Range("c65536").End(3).Row
ComboBox2.Value = Range("A3")

[COLOR="Red"][B]HookWheel Me, Me.Width, Me.Height, 3[/B][/COLOR]
End Sub

Kırmızı ile yazılan kodu kendi formumun initialize olayına ekledim.Aşağıdaki gibi terminate olayınıda ekledi ama çalıştıramadım.

Private Sub UserForm_Terminate()
    UnHookWheel
End Sub

Sizlerden ricam bu kodu nasıl çalıştırabilirim?

 

[cem yılmaz]

Rica ediyorum bu vba kodunu nasıl uygulayabilirim?

 

[cem yılmaz]

Tamam belki herkesin bu konuda bilgisi olmayabilir ama hiç olmazsa Sn uzmanlarımızdan veya Levent bey'den konu hakkında yardımcı olmaları için cevap rica ediyorum.

 

[Korhan Ayhan]

Selamlar,

Sn. cem_yılmaz,

Vermiş olduğunuz linkte benim eklemiş olduğum örnek dosyada modüle1 içindeki kodların tamamını kendi dosyanıza almanız gerekmektedir.

Daha sonra kullandığınız userformunuzun UserForm_Initialize ve UserForm_Terminate olaylarına aşağıdaki şekilde düzenlemelisiniz.

Özellikle Private Sub UserForm_Initialize() olayındaki kırmızı renkli kısmı kendi kodlarınızın altına eklerseniz olumlu sonuç alabilirsiniz.

Private Sub UserForm_Initialize()
    'Kendi kodlarınız...
    [COLOR=red]HookWheel Me, Me.Width, Me.Height, 3[/COLOR]
End Sub
 
Private Sub UserForm_Terminate()
    UnHookWheel
End Sub

 

[cem yılmaz]

Teşekkür ederim Sn Korhan hocam peki comboboxlar için bu kodu nasıl uygulayabiliriz?

 

[yerbakili]

HookWhell Me

koduna hata alıyorum. Neden olabilir?