- Katılım
- 28 May 2018
- Mesajlar
- 238
- En iyi yanıt
- 7
- Puanları
- 28
- Yaş
- 38
- Konum
- İstanbul
- Web sitesi
- analistadam.com
- Ad Soyad
- Özkan Sabancı
- Office Vers.
- Microsoft 365 Apps for enterprise TR
Merhaba arkadaşlar,
Vereceğiniz tutar, taksit sayısı ve taksit başlangıç tarihine göre taksit oluşturma örneğini bilginize sunarım.
Faydalı olması dileğiyle..
![1531315915569.png 1531315915569.png](https://excelturkey.com/data/attachments/0/446-50350f9c0cfd4593fc7601507596176f.jpg)
Vereceğiniz tutar, taksit sayısı ve taksit başlangıç tarihine göre taksit oluşturma örneğini bilginize sunarım.
Faydalı olması dileğiyle..
![1531315915569.png 1531315915569.png](https://excelturkey.com/data/attachments/0/446-50350f9c0cfd4593fc7601507596176f.jpg)
PHP:
Sub taksithesapla()
On Error Resume Next
Sayfa1.Range("A1:D1000").ClearContents
taksitsayisi2 = 1
aysayac = 1
toplammeblag = InputBox("Tutar Girin", "Taksit")
taksitsayisi = InputBox("Taksit sayısı Girin", "Taksit")
ay = CDate(InputBox("Tarih Girin", "Taksit"))
If toplammeblag = "" Or taksitsayisi = "" Or ay = "" Then Exit Sub
For i = 1 To taksitsayisi
ay2 = DateSerial(Year(ay), Month(ay) + aysayac, Day(ay))
Cells(i, 1) = "Taksit-" & taksitsayisi2
Cells(i, 2) = toplammeblag / taksitsayisi
Cells(i, 3) = ay2
Cells(i, 4) = "ÖDENECEK"
taksitsayisi2 = taksitsayisi2 + 1
aysayac = aysayac + 1
Next
End Sub