Çözüldü Combobox click olayı ile hüceye tarihi ay olarak yazdırmak istiyorum.

[s.savas]

Merhaba arkadaşlar.
Userform initailize olayında ComboBox1.AddItem "Ocak" şeklinde Ocak'tan Aralık'a kadar ay isimlerini Combobox1 de listeliyorum.

Private Sub ComboBox1_Click()
Sheets("1-Devamsızlık Formu (Ek-4)").Range("ak1").Value = ComboBox1.Value
End Sub

kodu ile de Combobox1 de seçilen veriyi AK1 hücresine aktarıyorum. Bu işlemde AK1 e yazdırılan veri tarih formatında olmuyor. Normal metin gibi görüldüğü için bu hücreye bağlı çalışan diğer hücrelerdeki formüller çalışmıyor.
Sheets("1-Devamsızlık Formu (Ek-4)").Range("ak1").Value = ComboBox1.Value işlemi sonucunun AK1 hücresinde "mmmm" formatında olması için nasıl bir düzenleme yapılmalı.

 

[kulomer46]

Aşağıdaki şekilde bir deneyiniz.

Private Sub ComboBox1_Click()

Sheets("1-Devamsızlık Formu (Ek-4)").Range("ak1").Value = ComboBox1.Value

Sheets("1-Devamsızlık Formu (Ek-4)").Range("ak1").NumberFormat = "m/d/yyyy"

End Sub

 

[s.savas]

Aşağıdaki şekilde bir deneyiniz.

Private Sub ComboBox1_Click()
Sheets("1-Devamsızlık Formu (Ek-4)").Range("ak1").Value = ComboBox1.Value
Sheets("1-Devamsızlık Formu (Ek-4)").Range("ak1").NumberFormat = "m/d/yyyy"
End Sub

Dosyam ektedir.

 

[Orion1]

Dosyam ektedir.

Buyurun.

Private Sub ComboBox1_Click()
Dim s1, s2 As Worksheet
Set s1 = Sheets("1-Devamsızlık Formu (Ek-4)")
Set s2 = Sheets("2-Bordro")
Set s3 = Sheets("3-Harcama Talimatı")
Set s4 = Sheets("4-Harcama Belgesi")
Set s5 = Sheets("5-Banka Listesi")
Set s6 = Sheets("6-Faaliyet Raporu")

s1.Range("ak1").Value = DateSerial(Year(Date), ComboBox1.ListIndex + 1, Day(Date))
s1.Range("ak1").NumberFormat = "mmmm"

End Sub

 

[s.savas]

Buyurun.

Private Sub ComboBox1_Click()
Dim s1, s2 As Worksheet
Set s1 = Sheets("1-Devamsızlık Formu (Ek-4)")
Set s2 = Sheets("2-Bordro")
Set s3 = Sheets("3-Harcama Talimatı")
Set s4 = Sheets("4-Harcama Belgesi")
Set s5 = Sheets("5-Banka Listesi")
Set s6 = Sheets("6-Faaliyet Raporu")

s1.Range("ak1").Value = DateSerial(Year(Date), ComboBox1.ListIndex + 1, Day(Date))
s1.Range("ak1").NumberFormat = "mmmm"

End Sub

Çok teşekkür ederim üstat. Sorun çözülmüştür.

 

[Orion1]

Çok teşekkür ederim üstat. Sorun çözülmüştür.

Rica ederim.
İyi çalışmalar.

 

[s.savas]

Küçük bir revize rica ediyorum.

s1.Range("P1").Value = DateSerial(Year(Date), ComboBox1.ListIndex + 1, Day(Date))
s1.Range("P1").NumberFormat = "mmmm"

Burada günün tarihini atıyor. Olması gereken ise; her ayın ilk günü olması gerekiyor.

 

[Orion1]

Küçük bir revize rica ediyorum.
Burada günün tarihini atıyor. Olması gereken ise; her ayın ilk günü olması gerekiyor.

aşağıdaki şekilde yapınız.

s1.Range("P1").Value = DateSerial(Year(Date), ComboBox1.ListIndex + 1, 1)

s1.Range("P1").NumberFormat = "mmmm"

 

[s.savas]

Tekrar teşekkürler üstat.

 

[Orion1]

Tekrar teşekkürler üstat.

Rica ederim.
İyi çalıişmalar.