Ödeme Başlangıç Tarihini Belirleme

[Necdet]

Merhabalar,

Bir sütunda sözleşme tarihleri var ve bu tarihe ertesi ayın 20. günü ödeme başlama tarihi olarak belirlenmeli. Makro ile yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Necdet bey aşağıdaki kodu deneyebilirsiniz.

[vb:1:306f188bd2]Sub tarih()
For a = 2 To [b65536].End(3).Row
deg = Cells(a, "b")
Cells(a, "c") = DateSerial(Year(deg), Month(deg) + 1, 20)
Next
End Sub
[/vb:1:306f188bd2]

 

[Necdet]

Teşekkür ederim Levent Bey