İlk ve Son Tarih.

[unalh]

S.a Arkadaşlar,

ComboBox1 den seçtiğim hesaba ait ödeme listesinde vade tarihi bölümünde TextBox5'şe ilk tarih TextBox4'de son tarihini nasıl getirebiliriz.

Örn: Hesap1 seçildiği zaman
ilk vade. 30.12.2009
son vade. 28.02.2010
şeklinde nasıl yapabiliriz?


Birde bu hesaba ait kayıtlı çek sayısını TextBox6'ya yazdırabilirmiyiz.


İlginize şimdiden teşekkür ederim

Hayırlı işler.

 

[İhsan Tank]

merhaba
çalışma kitabınızda kalan çek adedinin yerini bulamadım diğer ikisini için

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets("Ödendi").[A2:A65536].Find(ComboBox1.Value).Activate
TextBox5 = Sheets("Ödendi").Cells(ActiveCell.Row, 4).Value
TextBox4 = Sheets("Ödendi").Cells(ActiveCell.Row, 9).Value
End Sub
Private Sub TextBox4_Change()
TextBox4 = Format(Date, "dd.mm.yyyy")
End Sub
Private Sub TextBox5_Change()
TextBox5 = Format(Date, "dd.mm.yyyy")
End Sub

bu kodu ekledim
örnek dosyayı inceleyiniz

 

[unalh]

Sayın cılgın86'lı ilgin için teşekkür ederim fakat yapmak istediğim bu değil.

Yanlış anlatmış olabilirim.

Seçilen hesaba ait birçok çek tahsil edilmiş olabilir yapmak istediğim ilk tahsil edilen ve son tahsil edilen çeklerin tarihlerini belirtilen textlere yazdırılması.

Diğer işlem ise o hesaba ait kaç adet çek tahsil edildiğini bulmak.

 

[İhsan Tank]

bu belirttiğimiz şartları sayfa üzerinde ben göremedim umarım diğer arkadaşlar yardımcı olurlar

 

[Mehmet Şahin]

Dosyayı inceleyebilirmisiniz. (kodlar biraz dolaylı ama istediğinizi yapıyor sanırım)

 

[unalh]

dentex,

Evet yapmak istediğim oldu.
İlginize çok teşekkür ederim.

Hayırlı işler.