taksitlere bölme işlemi

[ahmetozbey]

arkadaşlar sorum ekdedir.ilgilenirseniz memnun olurum

 

[Korhan Ayhan]

Selamlar,

Sayfa1 in kod kısmına aşağıdaki kodları uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
[D:E].ClearContents
For X = 1 To [B8]
Cells(3, 5) = "TAKSİT TARİHLERİ"
Cells(X + 3, 4) = X
Cells(X + 3, 5) = DateSerial(Year([B5]), Month([B5]) + Cells(X + 3, 4), Day([B5]))
Next
End Sub

 

[ahmetozbey]

sayfada muhtelif yerlerde 1 den fazla yerde olacağı için fonksiyonla yapmam gerekti. hücrelere fonksiyon cinsinden nasıl formülüze ederim acaba

 

[Korhan Ayhan]

Selamlar,

Peki sorunuz neden makrolar bölümünde ?

Lütfen sorularınızı uygun bölümlerde sorunuz.

 

[ahmetozbey]

özür.
aynı sayfada değişiklik yapmam gerektiği için tekrar başlık açmak istemedim.

 

[muygun]

Slm.
28 inden sonraki başlangıç tarihleri için çalışılması gerek