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]
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.