satır toplatma

[prodigy]

değerli arkadaşlar
e3 hücresinden başlayarak hücrelere sayı giriyorum ( veri aralığı belli değil) en son dolu hücreyi :

Sub bul()
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Value = "TOPLAM"
End Sub

Sub MyQty()
Range("A2").Select
Range("A" & Cells(65536, 2).End(xlUp).Row + 1) = "END"
100:
If ActiveCell.Row > Cells(65536, 2).End(xlUp).Row Then
ActiveCell = ""
Exit Sub
End If
MyRng = ActiveCell.Address
Do While ActiveCell.Offset(1, 0) = "" Or ActiveCell = "END"
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(1, 0).Select
GoTo 100:
End Sub

bu kodlarla buluyorum.
bu aralıktaki sayıları e2 den başlayarak herbir satırı toplatıp "TOPLAM" sutununa yazdırmak istiyorum.

 

[prodigy]

değerli arkadaşlar;
sorunumu tam anlatamadım galiba :
ek sayfadaki satırları otomotik olarak toplatmak istiyorum ancak yapmak istediğim HANGİ SUTUNDA "TOPLAM" yazısı varsa onun altına OTOMOTİK TOPLASIN

saygılarımla

 

[prodigy]

kendim sordum , kendim cevap verdim . demekki uğraşınca yapılıyorurmuş. şimdi sorun
Sub topla()
son = WorksheetFunction.CountA(Sheets("sayfa1").Range("c2:c65000"))
Range(ActiveCell.Address, Range("e2:e" & son).Address).Select
End Sub

bu aralıktaki sayılar satır ve sutun olarak nasıl toplatabiliriz?

 

[Levent Menteşoğlu]

Sorunuz net değil, hangi satır ve sütun aralığını toplatmak istiyorsunuz? Bunu dosyanızdaki tabloya göre izah edermisiniz.

 

[prodigy]

sayın levetm
Sub topla()
son = WorksheetFunction.CountA(Sheets("sayfa1").Range("c3:c65000")) + 2
Range(ActiveCell.Address, Range("e3:e" & son).Address).Select
End Sub

bu kod ile aktif hücreden e sutununa (aktifhücre herzaman e sutunundan sonraki herhangi bir hücrede), c sutunundaki dolu hücreye kadar seciyorum. bu secili alanda satır ve sutunları makro ile nasıl toplatabilirim.

 

[prodigy]

kusura bakmayın acele ile yazmayı unutdum aktik hücre ile c sutunu sabit değil.