• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Taksit oluşturma

D

dincer47

Katılım
4 Mayıs 2008
Mesajlar
75
Excel Vers. ve Dili
excel 2003 türkçe
Herkese merhaba
ekte sunduğum dosyada toplam tutar, vade tarihi ve taksit sayısı girildiğinde ödeme planı butonuna basarak taksitlendirme işlemi yapsın istiyorum. çok ugrastım olmadı yardımcı olursanız cok sevinirim
 

Ekli dosyalar

Merhaba,

Soru kolay gibi görülüyor ama açık noktalar var.

Başlangıçtaki tarih işlem tarihi midir yoksa taksit başlama tarihi midir söylememişsiniz.

Ben işlem tarihi olarak kabul edip taksit tarihini 1 ay sonra başlayacak gibi yaptım.

Taksitli işlemlerde genelde son ödeme günü vardır. örneğin her ayın 20 si gibi. Bunun içinde bir açıklama yoktu. bende son ödeme gününü düşünmeden tarihleri hesapladım.

Artık bu açıklamadan sonra eksik gedik olan şeyleri siz düzenlersiniz.

Taksit tarihlerinin gösterileceği textboxları 1 den başlatıp 24 adet (ne olur ne olmaz diye) ten sonra taksit tutarlarını da textbox25 ten başlattın.

Nedeni ise döngüde rahat kullanabilmek için.

Taksit hesaplayan kodlar aşağıdadır.

Kod: 
 Private Sub CommandButton1_Click()
    Dim Tarih   As Date
    Dim TAdet   As Integer
    Dim i       As Integer
    Dim Taksit  As Currency
 
    Tarih = DateSerial(ComboBox3.Value, ComboBox2.Value - 1, ComboBox1.Value)
    TAdet = ComboBox4.Value
    Taksit = Round(TextBox100.Value / TAdet, 2)
 
    For i = 1 To 48
        Controls("TextBox" & i) = Empty
    Next i
 
    i = 0
 
    Do
        i = i + 1
        Tarih = DateAdd("m", 1, Tarih)
        Controls("TextBox" & i) = Format(Tarih, "dd.mm.yyyy")
        Controls("TextBox" & i + 24) = Format(Taksit, "#,##0.00")
   Loop While i < TAdet
 
End Sub

Kod: 
Private Sub CommandButton2_Click()
    Unload Me
End Sub
 

Ekli dosyalar

hocam çalıştırdım teşekkür ederim. ellerine sağlık
 
Son düzenleme:
Çalıştıramadım diyorsunuz da neden çalışmadığını söylemiyorsunuz. Nasıl yardımcı olabilirim ki?
 
hocam özür dilerim ben mesajı düzeltmiştim sonradan. bir isteğim daha olucak eğer yardımcı olursanız. işlem tarihi ilk taksitin tarihi olsun istiyorum. 1. taksit işlem tarihiyle başlamalı. yardım cı olursanız çok teşekkür ederim.
 
Merhaba,

Kodları ve dosyayı düzenledim. 2. mesajdan alabilirsiniz.
 
hocam sizi yoruyorum ama bir konu daha var işin içinden çıkamadım. konuyu açtım butonsuz güncelleme diye size zahmet bi bakarsanız.
 
Necdet Yeşertener' Alıntı:
Merhaba,

Taksit hesaplayan kodlar aşağıdadır.

Kod: 
 Private Sub CommandButton1_Click()
    Dim Tarih   As Date
    Dim TAdet   As Integer
    Dim i       As Integer
    Dim Taksit  As Currency
 
    Tarih = DateSerial(ComboBox3.Value, ComboBox2.Value - 1, ComboBox1.Value)
    TAdet = ComboBox4.Value
    Taksit = Round(TextBox100.Value / TAdet, 2)
 
    For i = 1 To 48
        Controls("TextBox" & i) = Empty
    Next i
 
    i = 0
 
    Do
        i = i + 1
        Tarih = DateAdd("m", 1, Tarih)
        Controls("TextBox" & i) = Format(Tarih, "dd.mm.yyyy")
        Controls("TextBox" & i + 24) = Format(Taksit, "#,##0.00")
   Loop While i < TAdet
 
End Sub

Kod: 
Private Sub CommandButton2_Click()
    Unload Me
End Sub
Genişletmek için tıkla ...

Merhabalar.Bu kodda ne gibi bir ekleme yada değişiklik yaparsak istenilen taksit sayısı kadar textbox'ı True diğerlerini False yapabiliriz.
 
vardar07' Alıntı:
Merhabalar.Bu kodda ne gibi bir ekleme yada değişiklik yaparsak istenilen taksit sayısı kadar textbox'ı True diğerlerini False yapabiliriz.
Genişletmek için tıkla ...

Merhaba,

Private Sub CommandButton1_Click()
Kod: 
    Dim Tarih   As Date
    Dim TAdet   As Integer
    Dim i       As Integer
    Dim Taksit  As Currency
    
    Tarih = DateSerial(ComboBox3.Value, ComboBox2.Value - 1, ComboBox1.Value)
    TAdet = ComboBox4.Value
    Taksit = Round(TextBox100.Value / TAdet, 2)
    
    For i = 1 To 48
        With Controls("TextBox" & i)
            .Value = Empty
            .Visible = False
        End With
        If i < 25 Then Controls("Label" & i).Visible = False
    Next i
    
    i = 0
    
    Do
        i = i + 1
        Tarih = DateAdd("m", 1, Tarih)
        Controls("TextBox" & i).Visible = True
        Controls("TextBox" & i) = Format(Tarih, "dd.mm.yyyy")
        Controls("TextBox" & i + 24).Visible = True
        Controls("TextBox" & i + 24) = Format(Taksit, "#,##0.00")
        Controls("Label" & i).Visible = True
        
   Loop While i < TAdet
    
   If TAdet > 12 Then
        Label105.Visible = True
        Label106.Visible = True
    Else
        Label105.Visible = False
        Label106.Visible = False
    End If
    
End Sub

Kod: 
Private Sub CommandButton2_Click()
    Unload Me
End Sub
 

Ekli dosyalar

- Bu konuda benim de yardıma ihtiyacı var arkadaşlar.
- Bir adet Userform içerisinde 12 adet text kutusu var. Yukarıda girilen toplamı, Combodan seçtiğim taksit oranı kadar diğer text kutularına dağıtmasını istiyorum.
- Ben forumdan bulduğum kodlarla birşeyler yapmaya çalıştım ama içinden çıkamadım.

- Yardımlarınızı bekliyorum.
 

Ekli dosyalar

Tasarım' Alıntı:
- Bu konuda benim de yardıma ihtiyacı var arkadaşlar.
- Bir adet Userform içerisinde 12 adet text kutusu var. Yukarıda girilen toplamı, Combodan seçtiğim taksit oranı kadar diğer text kutularına dağıtmasını istiyorum.
- Ben forumdan bulduğum kodlarla birşeyler yapmaya çalıştım ama içinden çıkamadım.

- Yardımlarınızı bekliyorum.
Genişletmek için tıkla ...

Up....... :(
 
- Neyse sorunumu çözdüm arkadaşlar.
 
vardar07' Alıntı:
Merhaba. Nasıl çözdüğünüzü açıklasanız da sizin gibi arkadaşlara faydası olsa.
Genişletmek için tıkla ...

Kod: 
Private Sub CommandButton1_Click()
Dim Tarih As Date
Dim TAdet As Integer
Dim i As Integer
Dim Taksit As Currency
TAdet = ComboBox1.Value
Taksit = Round(toplam.Value / TAdet, 2)
For i = 1 To 12
With Controls("TextBox" & i)
.Value = Empty
End With
Next i
i = 0
Do
i = i + 1
Controls("TextBox" & i + 0) = Format(Taksit, "#,##0.00")
Loop While i < TAdet
End Sub

- Kodları bu şekilde düzelttim işimi gördü. :)
 
Hocam Yaptığınız form ile ilgili bir kaç isteğim var eğer yapabilirseniz

1-peşinat tutarı ekleyebilirmiyiz
2-kişiler ekleyip isimleri ile çağırabileceğimiz bir yer ekleyebilirmiyiz .
3- 12 taksit yeterli benim için diğerlerine gerek yok ama 10-11 ve 12. taksitler bozulmuş sanırım .

Ercan Akova yazıldığında ilgili sayfa gelse ( yaptığınız form )
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst