Tik işaretiyle önceki sütundaki değeri değiştirme

[LockMan]

Arkadaşlar merhaba
Altın üyeliğim bitmiş resim atamıyorum
Aşşağıdaki gibi bir tablom var tabi daha karışığı , Excelde Ay isimlerinde sayfalar oluşturdum, her ay o ayın sayfasına gidip ödediğim borçların yanıda Ödendi kısmına tik işareti ✓ koyduğumda taksit sayısının düşmesini istiyorum.
Bunun için excell de formül varmıdır yada makromu yazmak lazım bilmiyorum yardımlarınızı bekliyorum.
Herkeze şimdiden çok teşekkür ederim

Bankalar	Taksit Tutar		Taksit sayısı	Total borç	Ödendi
Ziraat​	600 ₺ ​	x​	5​	3,000 ₺ ​	✓​
Tep​	1500 ₺​	x​	8​	12,000 ₺​	​
Deniz​	500 ₺​	x​	3​	1,500 ₺​	​
Halk​	1000 ₺​	x​	2​	2,000 ₺​	​

 

[necati]

Merhaba, dosyanızdaki "TL/₺ " karakterlerini manuel yazmışsınız. Bunları kaldırıp hücre biçimlendirmeden "₺" karakteri koymak şartı ile çift tıklama makrosu işinizi görebilir. Sayfanızın koduna aşağıdaki kodu yapıştırın ve çift tıklayarak deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ssat As Long
ssat = Cells(Rows.Count, "A").End(xlUp).Row
    If Not Intersect(Target, Range("F2:F" & ssat)) Is Nothing Then
        If Target = vbNullString Then
            Target = ChrW(&H2713)
            Target.Offset(0, -2).Value = Target.Offset(0, -2).Value - 1
            Target.Offset(0, -1).Value = Target.Offset(0, -1).Value - Target.Offset(0, -4).Value
            Target.Offset(0, -1).NumberFormat = "#,### " & ChrW(8378)
        Else
            Target = vbNullString
            Target.Offset(0, -2).Value = Target.Offset(0, -2).Value + 1
            Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + Target.Offset(0, -4).Value
            Target.Offset(0, -1).NumberFormat = "#,### " & ChrW(8378)
          End If
    End If
End Sub

 

[LockMan]

@necati ustam elline koluna sağlık işimi gördün çok sağol.

 

[necati]

Sizler de sağolun. Hayırlı geceler.