Parametrik Tablo

[BerkinAkdeniz]

Saygıdeğer hocalarım hepinize merhaba.

Öncelikle başlık için kusuruma bakmayın, soracağım soru için tam olarak nasıl bir başlık açmam gerektiğini bulamadım.

Bir konuda yardımınıza ihtiyacım var.



C : D sütunlarında bir tablom var.
Bu tablo D1'e girilen avans oranını 1'den çıkartıyor ve A2 hücresindeki taksit sayısına bölerek eşit şekilde yazdırıyor.

Ben tablonun son taksit oranını manuel olarak değiştirdiğim zaman Avans ile son taksit arasında kalan diğer oranlar değişsin istiyorum. Bunu formülle yapabilmek için yardımınızı rica ediyorum.

Örnek dosyayı eke koydum.

Şimdiden teşekkür ederim.

 

[BerkinAkdeniz]

Arkadaşlar yok mu yardımcı olabilecek kimse?

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu sayfanın kod kısmına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Long
    Application.EnableEvents = False
    If Not Intersect(Range("D1"), Target) Is Nothing Then
        For Bak = 2 To Range("A2") + 1
            Cells(Bak, "D") = FormatPercent((1 - Range("D1")) / 5)
        Next
    ElseIf Not Intersect(Range("D2:D" & Range("A2") + 1), Target) Is Nothing Then
        For Bak = 2 To Range("A2") + 1
            If Cells(Bak, "D").Address <> Target.Address Then
                Cells(Bak, "D") = FormatPercent((1 - (Range("D1") + Target)) / (Range("A2") - 1))
            End If
        Next
    End If
    Application.EnableEvents = True
End Sub

D sütununda yazan rakamların herhangi birini değiştirdiğinizde diğer oranları otomatik ayarlar.

 

[Erdem Akdemir]

Ekteki çalışmayı inceleyebilirsiniz.

 

[BerkinAkdeniz]

Ekteki çalışmayı inceleyebilirsiniz.

İlginiz için teşekkür ederim ama şöyle bir durum var.
Ben başlangıçta son taksit miktarını girmiyorum.
Tablo önce son taksit dahil tüm taksitleri eşit olarak bölsün, daha sonra son takside müdehale edersem diğerlerini güncellesin istiyorum.
Sizin örnekte tablo başlangıçta benden son taksit miktarını istiyor.
Umarım anlatabilmişimdir.
Çok teşekkür ederim.

 

[BerkinAkdeniz]

Merhaba.
Aşağıdaki kodu sayfanın kod kısmına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Long
    Application.EnableEvents = False
    If Not Intersect(Range("D1"), Target) Is Nothing Then
        For Bak = 2 To Range("A2") + 1
            Cells(Bak, "D") = FormatPercent((1 - Range("D1")) / 5)
        Next
    ElseIf Not Intersect(Range("D2:D" & Range("A2") + 1), Target) Is Nothing Then
        For Bak = 2 To Range("A2") + 1
            If Cells(Bak, "D").Address <> Target.Address Then
                Cells(Bak, "D") = FormatPercent((1 - (Range("D1") + Target)) / (Range("A2") - 1))
            End If
        Next
    End If
    Application.EnableEvents = True
End Sub

D sütununda yazan rakamların herhangi birini değiştirdiğinizde diğer oranları otomatik ayarlar.

Hocam deneyeceğim.
İlginiz için çok teşekkür ederim ama bunu kullanacağım yerde kod kullanamıyorum.
Aynı işlemi satırlara yazacağım formül ile yapmamın imkanı var mıdır?

Teşekkür ederim.

 

[Erdem Akdemir]

Yeni dosyayı kullanabilirsiniz.

 

[BerkinAkdeniz]

Yeni dosyayı kullanabilirsiniz.

elinize sağlık.
çok teşekkür ederim.