Kolon sayısına göre toplam

[haso_excel]

Merhaba arkadaşlar,
D5 hücresinde başlayıp, I kolonu arasında verilere göre değişkenlik gösteren bir alanın toplamını J kolonuna aldırmak istiyorum.
D5 de başlayacak E5 dede bitebilir f5 dede ama en fazla I5 hücresi olur. Ben aşağıdaki kod ile J5 hücresini buluyorum ama sonrası beni aştı yardımınıza ihtiyacım var. Dosyam ekde.

Sub bosluksa_()
For sat = 5 To WorksheetFunction.CountA(Range("A:A"))
If Cells(5, sat) <> " " Then
Cells(5, sat + 2).Select
End If
Next sat
Range("J4").Value = "VADESİ GELMEYEN"

End Sub

 

[mesudiye_052]

Selam;

Konuyu biraz daha detaylı ve örneklerle destekleyerek açıklayabilirmisiniz..


?
Saygılar;

 

[haso_excel]

Ben kod ile K5 i bulduruyorum. Bundan sonra D5 ile Active hücrenin soldan ikinci hücresine(j5) kadar olan hücreleri toplasın istiyorum.Kolon sonuna kadar da bu toplam dolu olan her satır için devam etsin istiyorum.

 

[mesudiye_052]

Selam;

Macro ile fazla bilgim olmadığı için
formül ile yapılmışını gönderiyorum

=TOPLA.ÇARPIM((KAYDIR(C5;0;1;1;KAÇINCI(1;--(D5:I5="");ARA(BAĞ_DEĞ_SAY(D5:I5);{0;6};{0;1})))))

?
Saygılar;

 

[haso_excel]

Teşekkür ederim ama bana kod lazım arkadaşıöm yinde yardımların için teşekkür ederim.

 

[mancubus]

Merhaba.

bulduğum bir kodu sizin örneğe uyarladım. çalıştı.

Sub sutun_topla()

  Dim LastRow As Long
  Dim iRow As Long
  Dim iCol As Integer
  
  LastRow = 4
  
  For iCol = 4 To 9
     iRow = Cells(65536, iCol).End(xlUp).Row
     If iRow > LastRow Then LastRow = iRow
  Next iCol
  
  With Application.WorksheetFunction
     For iRow = 5 To LastRow
        Cells(iRow, "J") = .Sum(Range(Cells(iRow, "D"), Cells(iRow, "I")))
     Next iRow
  End With
  
Range("J4").Value = "VADESİ GELMEYEN"
  
End Sub