Taksitlendirme hk.

[kemal turan]

Merhaba,
Daha önce ustalarımızın yardımları ile userform da textboxlarda daha önce kullandığım taksitlendirme kodu var.
Kodun çalıştığı eski userform ile bu userform arasındaki fark taksitlendirmenin başladığı textbox numarası.
örnek dosya ektedir.
Kod içerisinde ne revize yaptıysam olmadı.
Do loop döngüsü hakkında fazla deneyimim yok
Teşekkür ederim.

Private Sub CommandButton6_Click()
  Dim Tarih   As Date
    Dim TAdet   As Integer
    Dim i       As Integer
    Dim Taksit  As Currency
    
    Tarih = DateSerial(ComboBox14.Value, ComboBox16.Value - 1, ComboBox15.Value)
    TAdet = TextBox28.Value ' taksit adet verisi
    Taksit = Round(TextBox27.Value / TAdet, 2)
    
        
    i = 28 ' Taksitlendirme bu textbox no dan başlıyor.Sadece 1 adet veri getiriyor
    i = 0  ' olursa textbox1 den itibaren tarih artıyor kod çalışıyor.
    Do
        i = i + 1
        Tarih = DateAdd("m", 1, Tarih)
        Controls("TextBox" & i) = Format(Tarih, "dd.mm.yyyy")
        Controls("TextBox" & i + 18) = Format(Taksit, "#,##0.00")
   Loop While i < TAdet
End Sub

 

[kemal turan]

Konu günceldir.
Yardımlarınızı rica ediyorum.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton6_Click()
    Dim Tarih   As Date
    Dim TAdet   As Integer
    Dim i       As Integer
    Dim Taksit  As Currency
    
    Tarih = DateSerial(ComboBox14.Value, ComboBox16.Value - 1, ComboBox15.Value)
    TAdet = TextBox28.Value ' taksit adet verisi
    Taksit = Round(TextBox27.Value / TAdet, 2)
        
    For i = 29 To 64
        Controls("TextBox" & i) = ""
    Next
    
    i = 0
    
    Do
        i = i + 1
        Tarih = DateAdd("m", 1, Tarih)
        Controls("TextBox" & i + 28) = Format(Tarih, "dd.mm.yyyy")
        Controls("TextBox" & i + 46) = Format(Taksit, "#,##0.00")
   Loop While i < TAdet
End Sub

 

[kemal turan]

Korhan Hocam,
Çok teşekkür ederim.
Selametle kalınız.