İki Adet Combobox'dan Seçilen Ay ve Yıla Göre Textbox' Tarih Yazdırma

[ahmed_ummu]

İyi akşamlar arkadaşlar.

Ekte gönderdiğim örnek dosyada Userform üzerinde iki adet Combobox var. Combobox1 de Yılllar, Combobox2 de de ay isimleri var. Comboboxlardan seçilen yıl ve ay seçeneğine göre Textbox1 e Seçilen ay ve yıla göre tarihi yazdırmak istiyorum.

Örnek olarak, Combobox1 den 2012 yılı seçilsin, Combobox2 den Mayıs ayı seçilsin. TExtbox1'e tarih formatında 15.05.2012 yazdırmak istiyorum.

Aşağıdaki gibi bişey yapmım ama sonucu yanlış veriyor.

Private Sub ComboBox2_Change()
TextBox1.Value = "15" & "." & Format(ComboBox2.Value, "dd") & "." & Format(ComboBox1.Value, "yyyy")
End Sub

Yardımcı olursanız sevinirim.

 

[Mdemir63]

Selamlar

Kodlarda ki yerleri aşağıdaki gibi değiştirin

Private Sub ComboBox2_Change()
TextBox1.Value = "15" & "." & ComboBox2.Value & "." & ComboBox1.Value
End Sub

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1.Text, "DD.MM.YYYY")
End Sub

 

[ahmed_ummu]

Selamlar

Kodlarda ki yerleri aşağıdaki gibi değiştirin

Private Sub ComboBox2_Change()
TextBox1.Value = "15" & "." & ComboBox2.Value & "." & ComboBox1.Value
End Sub

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1.Text, "DD.MM.YYYY")
End Sub

Çok teşekkürler sayın Mdemir63.

 

[Mdemir63]

Rica ederim.
İyi Çalışmalar