• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

uzunluğu sürekli değişen sütünda Makro ile alttoplam almak

Katılım
3 Mart 2010
Mesajlar
20
Excel Vers. ve Dili
MS Office 2010
merhabalar,

yapmış olduğum bir makro ile raporumu otomatik düzenliyorum ve en sonunda da A2 ile A5 arasındaki değerleri A6 ya alttoplam aldırıyorum ama bu raporda değerler bazen A2 ile A10 arası bazen A2 ile A56 arası oluyor ben bu değerlerin uzunluğu ne olursa olsun hemen altındaki hücreye alttoplam alsın istiyorum bir türlü beceremedim yardımlarınız için şimdiden teşekkürler
 
Merhaba ethemozt,
Anladığım kadarıyla aşağıdaki gibi bir şey istiyorsunuz..

Sub ALTTOPLAM()
[a65536].End(3).Offset(1, 0) = WorksheetFunction.Sum(Range("a1:a" & [a65536].End(3)))
End Sub
 
çok teşekkür ederim acolkesen1 benim makronun altına ekledim tam istediğim gibi oldu yalnız benim belirtmeye unuttum şey hücredeki değer ondalıklık sayı biçiminde 225,50 gibi değer olunca hazırlamış olduğunuz makro 226 ya yuvarlıyor biçimini ondalıklı sayı olarak ayarlamanız mümkünmüdür şimdiden teşekkürler
 
Sayfa 1 den sayfa 2 ye aktarılan satırın sayfa 1 den silinmesi

eeee mmmm nnnnn mmm
 
Son düzenleme:
çok teşekkür ederim acolkesen1 benim makronun altına ekledim tam istediğim gibi oldu yalnız benim belirtmeye unuttum şey hücredeki değer ondalıklık sayı biçiminde 225,50 gibi değer olunca hazırlamış olduğunuz makro 226 ya yuvarlıyor biçimini ondalıklı sayı olarak ayarlamanız mümkünmüdür şimdiden teşekkürler
Hücre biçimlendirme ile yapabilirsiniz ama aşağıdaki kodu öncekinin ilk satırına eklerseniz olur sanıyorum.
[a65536].End(3).Offset(1, 0) .Numberformat="0.00"
 
Hücre biçimlendirme ile yapabilirsiniz ama aşağıdaki kodu öncekinin ilk satırına eklerseniz olur sanıyorum.
[a65536].End(3).Offset(1, 0) .Numberformat="0.00"

olmadı maalesef yapamadım hata veriyor hücre biçimlendirmedeki
Selection.NumberFormat = "#,##0.00" komutunu deniyorum ama o hücre seçili olmadığı için yapmıyor.
 
Merhaba ethemozt,
[a:a].NumberFormat = "0.00"
[a65536].End(3).Offset(1, 0) = WorksheetFunction.Sum(Range("a1:a" & [a65536].End(3)))
şeklinde yaptığınızda sayı formatı virgülden sonra iki haneli oluyor ancak, birden fazla ondalıklı sayı olduğunda hata veriyor. Bilgim buna yeterli değil.Forumdaki uzman arkadaşlar konuya cevap verildiği için bakmayabilirler. Başka bir başlıkla konuyu yeniden açın isterseniz.
 
Yardımlarınız için çok teşekkür ederim
 
Geri
Üst