Arkadaşlar uzunca bir stok listesi var
Bunun yazıcıdan cıkarken o sayfaya ait toplamını almak istiyorum
bunu yapmak için makro mu kullanılacak.
Nasıl olacağına ilgili bir örnek verirseniz sevinirim
Başka bir yol ilede yapılabilir belki ama ben size makrolu bir çözüm öneriyorum. Aşağıdaki kodu çıktısını alacağınız sayfanın kod sayfasına yazın. Sayfa üzerinde toplamını alacağınız değerleri yazdırma alanının dışında kalan bir hücrede toplatın. Bu hücreyi aşağıdaki makrodaki [a18] yazan yere yazın. Bu durumda örneğin [a18] hücresindeki değer özet alt bilgi olarak sayfanızda görünecektir.
[vb:1:80358b7ff1]Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.PageSetup.CenterFooter = [a18]
End Sub
[/vb:1:80358b7ff1]
Sayın levent bey
Ã?ncelikle teşekkür ederim
Sayfa sonuna o sayfanın toplamını altırmak istiyorum
En son sayfada ise genel toplam şudur şeklinde bir yazı yazmasını istiyorum.
Worksheets("sayfanızınadı").Select
Dim SonHucre As Range
Set SonHucre = Range("A65536").End(xlUp)
'T O P L A M A L***************
SonHucre(2, 3) = "T O P L A M "
SonHucre(2, 5).Formula = "=SUM(e2:e" & SonHucre.Row & ")"
AÇIKLAMA
SonHucre(2, 3): 2 son dolu hücrenin bir altındaki satır, 3 son dolu ücrenin 3 sağındaki satır (yani C)
Selam Dosya eklidir. Butona basıyorsunuz ve toplamı alıyor, hatta yazdırma alanını belirliyor ve kenarlık yapıyor
Sorunuzdan anladığım kadarıyla cevap verdim.
İyi çalışmalar
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.