k.kartı veya taksitli kayıt

[osmanli2]

Saygıdeğer üstadlar; daha önce cevap alamadığım konuyu tekrar açıyorum. userform üzerindeki bigilerin veri sayfasına kayıt işlemi yaparken eğer form üzerindeki textbox da taksit sayısı belirtilmiş ise satış tutarını
taksit sayısına bölerek, taksit sayısı kadar ayaların aynı günlerine yayarak kayıt yapan formüle ihtiyacım var. Detaylı açıklama ekte yapılmıştır. Yardımlarınız için şimdiden teşekkür ederim. Saygılar.

 

[mancubus]

CommandButton1_Click olayındaki ilgili kodları aşağıdaki ile değiştirin.
PEŞİN SATIŞLARDA TAKSİT ADEDİ 1 GİRİLMELİDİR.

Private Sub CommandButton1_Click()
'...
'...
'...
Z = Range("B1").End(xlDown).Row + 1
If Z > 65536 Then Z = 2
    
[COLOR="red"]If taksit.Value = "" Or taksit.Value = 0 Then
    MsgBox "Taksit sayısı giriniz!"
End If[/COLOR]

[COLOR="red"]For i = 1 To taksit.Value
    sh.Cells(Z + i - 1, 1) = Application.Max(Columns("A")) + 1
[/COLOR]    sh.Cells(Z [COLOR="red"]+ i - 1[/COLOR], 2) = CDate([COLOR="red"]DateAdd("m", i - 1,[/COLOR] tarih.Value))
    sh.Cells(Z [COLOR="red"]+ i - 1[/COLOR], 3) = dep.Text
    sh.Cells(Z [COLOR="red"]+ i - 1[/COLOR], 4) = ak.Text
    sh.Cells(Z [COLOR="red"]+ i - 1[/COLOR], 5) = cinsi.Text
    sh.Cells(Z [COLOR="red"]+ i - 1[/COLOR], 6) = gm.Text
    sh.Cells(Z [COLOR="red"]+ i - 1[/COLOR], 7) = CCur(stutar.Value [COLOR="Red"]/ taksit.Value[/COLOR])
    sh.Cells(Z [COLOR="red"]+ i - 1[/COLOR], 8) = taksit.Value
    sh.Cells(Z [COLOR="red"]+ i - 1[/COLOR], 9) = aciklama.Text
[COLOR="red"]Next[/COLOR]

[COLOR="SeaGreen"]'BU İKİ SATIRI SİLDİK:
'son = [a65536].End(3).Row + 1 ' A sütununda son satırdan bir sonraki bulunur.
'Range("A" & son) = son - 1[/COLOR]

listeguncelle
'...
'...
'...
End Sub

 

[osmanli2]

Çok teşekkür ederim. Tam istediğim gibi. Emeğinize sağlık.

 

[mancubus]

rica ederim.
1. taksit tarihi olarak tarih.Value değerini aldık.