combobox scroll down enabled

[VBABEGINER]

Hi all,

Vog sir this the new post.

In Combobox there are multiple values i have it.
i had try to enable the scrol property of combo...see below

With Worksheets("Sheet4").ComboBox1
.SmallScroll Down:=True

but this gives me error - run time 438 , object dosent support.

Can this possble....to scroll down enable?

 

[JLEIngenieros]

Only one add:

Excel takes All the programs in windows for MouseWheel when SetFocus. For example, if you try to do a mouseWheel in a web browser, nothing occurs.

Solution:

Private Sub ComboBox_LostFocus()
MakeScrollableWithMouseWheel(CboProvincias) = False
Set wb = Nothing
End Sub

 

[JLEIngenieros]

Only one add:

Excel takes All the programs in windows for MouseWheel when SetFocus. For example, if you try to do a mouseWheel in a web browser, nothing occurs.

Solution:

Private Sub ComboBox_LostFocus()
MakeScrollableWithMouseWheel(CboProvincias) = False
Set wb = Nothing
End Sub

Option Explicit

Public WithEvents m_wbForMouseWheel As Workbook
'WithEvents quiere decir que nuestra variable va a "escuchar" los eventos del libro

Private Sub ComboEjemplo_GotFocus()
'Con esto creamos asignamos nuestro libro a la variable
Set m_wbForMouseWheel = ThisWorkbook
'Con esto hacemos que "escuche al scroll del mouse
MakeScrollableWithMouseWheel(ComboEjemplo) = True
End Sub

Private Sub ComboEjemplo_LostFocus()
'¡¡¡¡¡¡SI NO LO HACEMOS, EXCEL SE "APODERA" DEL SCROLL Y NO PODREMOS HACER SCROLL EN OTROS PROGRAMAS!!!!!!

'Con esto hacemos que deje de "escuchar" al scroll del mouse
MakeScrollableWithMouseWheel(ComboEjemplo) = False
'Con esto nos aseguramos que el libro se cierra cuando el ComboBox pierda el foco
Set m_wbForMouseWheel = Nothing
End Sub