ComboBox'ta seçilen ayın başlangıç ve bitiş tarihlerinin diğer Combox'lara getirilmesi.

[aliadanur]

Değerli hocalarım merhabalar;
İki konuda yardımlarınızı arz ediyorum.

• ComboBox10’da Ocak Ayından itibaren Aralık Ayına kadar olan 12 ay mevcuttur. Buradan seçmiş olduğum ayın başlangıç tarihini (gün,ay,yıl olarak) ComboBox11’e; bitiş tarihini de Combobox12’ye otomatik olarak getirilmesi mümkün müdür ?
• Bir başka konu ise Excel Sayfa3 (E26) hücresine aktarılan TL cinsinden rakamsal tutarın, Sayfa3(C27) hücresine yazı ile aktarılması hususunda yardımlarınız için şimdiden teşekkür ederim.

 

[ÖmerFaruk]

Sorunuzun 1.kısmı için aşapıdaki kodu kendinize uyarlayabilirsiniz

Private Sub ComboBox1_Click()
    Me.ComboBox2.Clear
    Me.ComboBox2.AddItem Format(DateSerial(2023, Me.ComboBox1.ListIndex + 1, 1), "dd.mm.yyyy")
    Me.ComboBox3.Clear
    Me.ComboBox3.AddItem Format(DateAdd("m", 1, DateSerial(2023, Me.ComboBox1.ListIndex + 1, 1)) - 1, "dd.mm.yyyy")
End Sub

 

[ÖmerFaruk]

Sorunuzun ikinci kısmı için forumda bir çok örnek soru ve çözüm mevcuttur.
Arama menüsüne "yazıyla" yazarak sonuçları listeledim.
İçeriği ihtiyacınıza çok benzer olacağını düşündüğüm sonuçlardan biri
https://excel.web.tr/threads/parayi-yaziya-cevirme.82981/#post-1058060

 

[aliadanur]

Sorunuzun 1.kısmı için aşapıdaki kodu kendinize uyarlayabilirsiniz

Private Sub ComboBox1_Click()
    Me.ComboBox2.Clear
    Me.ComboBox2.AddItem Format(DateSerial(2023, Me.ComboBox1.ListIndex + 1, 1), "dd.mm.yyyy")
    Me.ComboBox3.Clear
    Me.ComboBox3.AddItem Format(DateAdd("m", 1, DateSerial(2023, Me.ComboBox1.ListIndex + 1, 1)) - 1, "dd.mm.yyyy")
End Sub

Üstadım ne kadar teşekkür etsem yinede azdır. Çok işime yaradı. Her ne muradınız var ise Allah versin inşallah.