taksitlendirme

[poetika]

merhaba. ekte sunduğum dosyada taksit miktarını girdiğim zaman girilen taksit kadar satırların artmasını yada ekslimesini istiyorum ve hesaplama da girilen taksit sayısına göre ve formüller bozulmadan yapılsın. bununla ilgili daha önce bu forumdan bi arkadaş bana bir kod göndermişti. fakat dosya farklıydı. o kodu bu dosyaya uygulayamadım. ne tür değişiklikler yapmam gerektiği konusunda yardımcı olabilirseniz çok sevinirim. şimdiden teşekkür ederim. saygılar.
kod şuydu:

If Target > 0 Then
With Range("A5" & Cells(65536, 1).End(xlUp).Row)
.ClearContents
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With

For i = 5 To Target + 4
Cells(i, 1) = i - 4
Next i
Cells(i, 1) = "TOPLAM"
Cells(i, 2).Formula = "=SUM(B5:B" & i - 1 & ")"
Cells(i, 3).Formula = "=SUM(C5:C" & i - 1 & ")"
Cells(i, 4).Formula = "=SUM(D5" & i - 1 & ")"

With Range("A5" & Cells(65536, 1).End(xlUp).Row)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End With
End If
End If
End Sub

 

[hamitcan]

Anladığım kadarıyla planlanan ve gerçekleşen ödeme tarihlerini manuel belirliyorsunuz.
Öyleyse "tarih yok ise hücre değeri sıfır olsun" şeklinde bir yargıda bulunabiliriz.Şöyle ki;

EĞER(YADA(B6="";C6="");0;E5-D5)

Ben "E6" hücresinde olması gereken formülü yukarıda belirttim. Siz de bu formüle bakarak diğerlerini oluşturabilirsiniz.

 

[poetika]

yardımınız için teşekkür ederim ama bahsettiğim sorunun sizin çözümünüzle pek bi bağlantısı yok. daha detaylı izah etmeye çalışayım. maksimum 10 taksitten oluşacak olan bir taksitlendirme tablom var. B1 hücresine 1 ile 10 arasında bir değer girdiğim zaman A5 hücresinin bulunduğu satırdan itibaren aşağıya doğru satır eklenecek yada eksilecek. örneğin taksit miktarına 5 girdim. a5-l5 satır aralığından aşağıya doğru "toplam" hücresine kadar beş satır ekliycek ve hesaplama yine formuller kaybolmadan yapılacak. 5 ten 3 e düşürdüğümde iki satır eksilecek. umarım anlaşılmıştır.

 

[poetika]

ne kadar zor soru sormuşum ya