For Next Döngüsüne Çevirme

Örnek bir dosya eklerseniz üzerinden gitmek daha kolay olur.
Kodu yazmak için veri oluşturmak cevap verenleri her daim yorar.

Benim bir de kodlarınıza dair küçük bir geri bildirimim olacak:
Sheets("Sayfa50")... şeklinde giden kodlar her zaman sıkıntılıdır.
Neden derseniz?
Biri gelir Sayfa50 olan sayfa adını değiştirir ve kodlarınız arızaya düşer.
Eğer Sayfa50 olan sayfanın adı da (kod adı) Sayfa50 ise, bu kullanımı, Sayfa50.Range("C2") şeklinde yazmanız daha sağlıklı olacaktır.
Bu şekilde sayfa adlarında yapılacak değişiklikler kodu etkilemeyecektir.

Kolaylıklar

İlginiz için çok teşekkür ederim örnek dosyam ektedir. Bahadır bey

Öncelikle çok teşekkür ederim Bahadır Bey,
Borçluları güncelleme makrosu olmuş ama gelir gider makrosu toplam geliri getirmiyor.

Dediğiniz kodda, i - 2 kısmını yanlış yazmışım. O kısmı i - 1 olarak revize edip dener misiniz?

Tm şimdi oldu bahadır bey ilgi ve alakanız için çok teşekkür ederim.