- Katılım
- 9 Mart 2012
- Mesajlar
- 51
- Excel Vers. ve Dili
- 2010
- Altın Üyelik Bitiş Tarihi
- 06/06/2018
Sub AltToplamAl()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim toplam As Double
' Aktif çalışma sayfasını al
Set ws = ActiveSheet
' Son dolu satırı bul
lastRow = ws.Cells(ws.Rows.Count, "J").End(xlUp).Row
' Satır satır ilerleyerek alt toplamları al
For i = lastRow To 1 Step -1
' Boş satır kontrolü
If IsEmpty(ws.Cells(i, "J").Value) Then
' Boş satır bulundu, bir üstteki boş satıra kadar olan aralığı topla
toplam = 0
For j = i - 1 To 1 Step -1
If IsNumeric(ws.Cells(j, "J").Value) Then
toplam = toplam + ws.Cells(j, "J").Value
Else
Exit For
End If
Next j
' J sütunundaki hücreye toplamı yaz
ws.Cells(i, "J").Value = toplam
End If
Next i
End Sub
Arkadaşlar merhaba,
300 satır verim var ve bazı verilerin altında boş satırlarım var. bu boş satırlar dinamik. yani bazen 3 satır dolu 1 boş bazen 1 satır dolu 1 boş gibi. boş satırlar her zaman tek satır. yukarıdaki kod bu boş satırların J sütununa alt toplam aldırıyor fakat, bir satır fazla topluyor. örnek dosya ekliyorum orada modülü 3 te bu kod görünecektir. bunu doğru alt toplam alabilmem için kodda nasıl bir değişiklik yapmam gerekiyor. yardımcı olabilirmisiniz
örnek dosya :
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim toplam As Double
' Aktif çalışma sayfasını al
Set ws = ActiveSheet
' Son dolu satırı bul
lastRow = ws.Cells(ws.Rows.Count, "J").End(xlUp).Row
' Satır satır ilerleyerek alt toplamları al
For i = lastRow To 1 Step -1
' Boş satır kontrolü
If IsEmpty(ws.Cells(i, "J").Value) Then
' Boş satır bulundu, bir üstteki boş satıra kadar olan aralığı topla
toplam = 0
For j = i - 1 To 1 Step -1
If IsNumeric(ws.Cells(j, "J").Value) Then
toplam = toplam + ws.Cells(j, "J").Value
Else
Exit For
End If
Next j
' J sütunundaki hücreye toplamı yaz
ws.Cells(i, "J").Value = toplam
End If
Next i
End Sub
Arkadaşlar merhaba,
300 satır verim var ve bazı verilerin altında boş satırlarım var. bu boş satırlar dinamik. yani bazen 3 satır dolu 1 boş bazen 1 satır dolu 1 boş gibi. boş satırlar her zaman tek satır. yukarıdaki kod bu boş satırların J sütununa alt toplam aldırıyor fakat, bir satır fazla topluyor. örnek dosya ekliyorum orada modülü 3 te bu kod görünecektir. bunu doğru alt toplam alabilmem için kodda nasıl bir değişiklik yapmam gerekiyor. yardımcı olabilirmisiniz
örnek dosya :