iki boşluk arasını toplama

[serelif]

arkadaşlar ekteki dosyada mevcut .iki boşluk arasındaki alanları toplatacak bir kod veya makro yazılabilirmi?

 

[nziya]

Sayın serelif C2-C7 ARASI TOPLANMALI demişsiniz siz zaten toplamışsınız boşluktan kastınızı biraz açarmısınız.

 

[veyselemre]

http://www.excel.web.tr/viewtopic.php?t=10091 linki inceleyin
sayın dost'un çok güzel makrosu var
[vb:1:e9b0a9f6a5]
Sub alttoplamal()
For Each alan In Columns(3).SpecialCells(xlConstants, xlNumbers).Areas
SumAdres = alan.Address(False, False)
toplam = WorksheetFunction.Sum(Range(SumAdres))
alan.Offset(alan.Count, 0).Resize(1, 1) = toplam
Next alan
End Sub
[/vb:1:e9b0a9f6a5]

şeklinde kullanabilirsiniz

 

[serelif]

arkadaşlar öncelikle bu konu tam istediğim sonuç olmasa da daha önce yayınlanmış , aradım ama bulamamıştım.özür dilerim .acaba yanlış mı arattırıyoruz bilemiyorum. esas sorun şu örnekte ki dosyada e8 hücresinde iken bir tuşa bastığımda kendisinden önceki hücrelerdeki iki boşluk arasını toplamaktır.yani istediğim alanalrı toplamalıyım.tüm boşlukların arasını değil

 

[veyselemre]

[vb:1:37deb31dbd]Sub bosluklar_arasi_topla()
sat = ActiveCell.Offset(-1, 0).End(xlUp).Row
SumAdres = Range(ActiveCell.Offset(-1, 0), Cells(sat, ActiveCell.Column)).Address
ActiveCell = WorksheetFunction.Sum(Range(SumAdres))
End Sub[/vb:1:37deb31dbd]

 

[serelif]

sayın veysel emre verdiğin kod çok işime yaradı sağol.birde bu toplam aldığımız hücrenin kalın olması için nasıl bir kod ekleyebiliriz?

 

[veyselemre]

ActiveCell.Font.Bold = True