makro son satır altına

[koboy]

Merhabalar son dolu satırın altına satır ekliyorum toplamlarıda alıyorum ançak
tekrar makroyu çalıştırıcın
satırı tekrar toplayıp alta yazıyor

sonsatir = S2.Range("b65536").End(xlUp).Row + 1

S2.Range("a" & sonsatir) = "Toplam"
S2.Range("b" & sonsatir) = WorksheetFunction.Sum(S2.Range("b5:b" & sonsatir))
S2.Range("c" & sonsatir) = WorksheetFunction.Sum(S2.Range("d5:d" & sonsatir)) / S2.Range("b" & sonsatir).Value
S2.Range("d" & sonsatir) = WorksheetFunction.Sum(S2.Range("d5:d" & sonsatir))
S2.Range("e" & sonsatir) = WorksheetFunction.Sum(S2.Range("e5:e" & sonsatir))




With S2.Range("a5" & ":e" & sonsatir) 'ALTBAS
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With

With S2.Range("a" & sonsatir & ":e" & sonsatir) 'ALTBAS
.Font.Bold = True
End With

 

[Muzaffer Ali]

Merhaba.
Deneyin.
Olmazsa dosyanızı ekleyin kontrol edelim.

sonsatir = S2.Range("B" & Rows.Count).End(xlUp).Row
If Not S2.Range("a" & sonsatir) = "Toplam" Then sonsatir = sonsatir + 1

S2.Range("a" & sonsatir) = "Toplam"
S2.Range("b" & sonsatir) = WorksheetFunction.Sum(S2.Range("b5:b" & sonsatir))
S2.Range("c" & sonsatir) = WorksheetFunction.Sum(S2.Range("d5:d" & sonsatir)) / S2.Range("b" & sonsatir).Value
S2.Range("d" & sonsatir) = WorksheetFunction.Sum(S2.Range("d5:d" & sonsatir))
S2.Range("e" & sonsatir) = WorksheetFunction.Sum(S2.Range("e5:e" & sonsatir))




With S2.Range("a5" & ":e" & sonsatir) 'ALTBAS
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With

With S2.Range("a" & sonsatir & ":e" & sonsatir) 'ALTBAS
.Font.Bold = True
End With

 

[koboy]

çok teşekkür ederim oldu elinize sağlık

Merhaba.
Deneyin.
Olmazsa dosyanızı ekleyin kontrol edelim.

sonsatir = S2.Range("B" & Rows.Count).End(xlUp).Row
If Not S2.Range("a" & sonsatir) = "Toplam" Then sonsatir = sonsatir + 1

S2.Range("a" & sonsatir) = "Toplam"
S2.Range("b" & sonsatir) = WorksheetFunction.Sum(S2.Range("b5:b" & sonsatir))
S2.Range("c" & sonsatir) = WorksheetFunction.Sum(S2.Range("d5:d" & sonsatir)) / S2.Range("b" & sonsatir).Value
S2.Range("d" & sonsatir) = WorksheetFunction.Sum(S2.Range("d5:d" & sonsatir))
S2.Range("e" & sonsatir) = WorksheetFunction.Sum(S2.Range("e5:e" & sonsatir))




With S2.Range("a5" & ":e" & sonsatir) 'ALTBAS
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With

With S2.Range("a" & sonsatir & ":e" & sonsatir) 'ALTBAS
.Font.Bold = True
End With