• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Örnek Kod Taksit hesaplama örneği

ozkansabanci

Excel VBA Developer
Uzman
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

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
 

LEVENT

Yeni Üye
Katılım
27 Kas 2018
Mesajlar
2
En iyi yanıt
0
Puanları
3
Yaş
43
Konum
Ankara
Ad Soyad
Levent Aydın
teşekkürler.....faydalı olduğundan şüpheniz olmasın..
 

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
88
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Sayın ozkansabanci,

Günaydın.

Her zaman kullanılabilecek bir dosya, teşekkürler.
 
Üst Alt