combobox temizleme

[yavuz829]

Merhaba arkadaşlar ekli dosyamda;

* fatura sayfasında 13 adet combobox var temizle butonunu ile hepsinin içi temizlensin.

*Enter tuşuna bastığım zaman bir sonraki comboboxa gitsin

Bu konuda yardımlarınızı bekliyorum.

 

[Orion1]

Dosyanız ektedir.
Comboboxların keycode lerine ben ilk comboboxın key codesine yadığım gibi kod yazın.BU onlara ente tuşuna bastığınızda bir sonraki comboya gitmesini sağlar.

Sub Düğme456_Tıklat()
Dim cmb As Object
For Each cmb In Sheets("Fatura").OLEObjects
    If TypeName(cmb.Object) = "ComboBox" Then
        cmb.ListFillRange = ""
    End If
Next cmb
End Sub
Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then ComboBox3.Activate
End Sub

 

[yavuz829]

Çok teşekkürler hocam ellerinize sağlık.