çekler için vade tarihi hesaplama

[keboy06]

selam,
çeklerin vade tarihini yazarken excelde örn. 30 yazıp oda bize yazacağım tarihi verse mesela 30-04-2008 böyle bişey yapabilirmiyiz. tşk...

 

[Necdet]

Merhaba,

A1 de 30 olsun
B1 = BUGÜN()+A1

Olmaz, vade tarihi her excel açıldığında 1 gün artar

Bu yüzden aşağıdaki kodları sayfanın kod bölümüne koplayıp çalıştırmak daha mantıklı olur.
Sürelerin A sütununda olduğunu varsayarak B sütuna ilgili tarihi verir. Tabi o anki tarihe A sütunundaki değeri toplar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If IsNumeric(Target) Then Target.Offset(0, 1) = Target + Date
End Sub