Açılışta Combobox Item Hazır Gelsin Hk.

[drummers]

ComboBox3 de item olarak 1,2,3,4,5,6,7,8,9,10,11,12 ekli

Benim istediğim form açılışında (yani loadına) nasıl bir kod yazmalıyımki

Bulunduğumuz ay "Ocak" İse "12" , "Şubat" ise "1", "Mart" ise "2" vs..vs..vs.. seçli gelsin

Yani bulunduğumuz ayın bir alt rakamını seçecek.

Teşekkürler

 

[halit3]

ComboBox3 de item olarak 1,2,3,4,5,6,7,8,9,10,11,12 ekli

Benim istediğim form açılışında (yani loadına) nasıl bir kod yazmalıyımki

Bulunduğumuz ay "Ocak" İse "12" , "Şubat" ise "1", "Mart" ise "2" vs..vs..vs.. seçli gelsin

Yani bulunduğumuz ayın bir alt rakamını seçecek.

Teşekkürler

Kodu kendinize göre uyarlayın

Private Sub UserForm_Activate()
ComboBox3.AddItem 1
ComboBox3.AddItem 2
ComboBox3.AddItem 3
ComboBox3.AddItem 4
ComboBox3.AddItem 5
ComboBox3.AddItem 6
ComboBox3.AddItem 7
ComboBox3.AddItem 8
ComboBox3.AddItem 9
ComboBox3.AddItem 10
ComboBox3.AddItem 11
ComboBox3.AddItem 12
[COLOR=red]If Val(Format(Now, "mm")) - 1 = 0 Then
ComboBox3.Text = 12
Else
ComboBox3.Text = Val(Format(Now, "mm")) - 1
End If[/COLOR]
End Sub