Toplamı diğer hücrelere dağıtma

[sirkülasyon]

Değerli Üstadlarım

Ekli dosyamda, K sütununa manuel tutar (ödeme) girişi yaptığım zaman aynı hücrede üstüste toplayacak, hangi gün veri girişi yapılmış ise o tarihi ve tutarı sırası ile yanında yer alan hücrelere dağıtacak.

Rica etsem yukarıda arz ettiğim olayı makro yolu ile gerçekleştirebilmem için yardımcı olabilir misiniz?
Teşekkür eder, saygılarımı sunarım.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırarak deneyin. J sütunu yardımcı sütun kullanılarak istediğiniz yapılacaktır. İsterseniz J sütununu gizleyebilirsiniz. Eğer J sütunu size lazımsa boş bir sütun ekleyip kodlarda düzenleme yapılması gerekir. Kodun selection kısmı K sütununda hücre seçildiğinde seçilen hücredeki değeri J sütununa aktarıyor. Change kısmı ise K sütununa yazdığınız değeri ilk boş sütuna aktardıktan sonra J sütunuyla toplayıp tekrar K sütununa yazıyor:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [K4:K120]) Is Nothing Then Exit Sub
a = Target.Row
If Selection.Count > 1 Then Exit Sub
Target.Offset(0, -1) = Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K4:K120]) Is Nothing Then Exit Sub
a = Target.Row
If Selection.Count > 1 Then Exit Sub
son = WorksheetFunction.Max(13, Cells(a, Columns.Count).End(xlToLeft).Column + 2)
Application.EnableEvents = False
Cells(a, son) = Target
Target = Target + Target.Offset(0, -1)
Cells(a, son - 1) = Date
Cells(a, son - 1).NumberFormat = "dd/mm/yyyy"
Cells(a, son).NumberFormat = "#,##0.00 $"
Cells(a, son).Select
Application.EnableEvents = True
End Sub

 

[sirkülasyon]

Yusuf abi ellerine sağlık.
Teşekkür ederim.
Çok çok Sağ olasın.

 

[YUSUF44]

İyi çalışmalar, Malatya'ya selamlar.