Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 11-10-2017, 17:34   #1
omerturan
 
Giriş: 24/07/2006
Mesaj: 10
Varsayılan excel vba alt toplam

merhaba

satır = Cells(Rows.Count, 1).End(xlUp).Row ' satır sayısı

sutun = Cells(7, Columns.Count).End(xlToLeft).Column ' sütun sayısı

toplamsatırı = satır + 1 ' toplamların alınmak istendiği satır


Range("c" & toplamsatırı) = "Toplam"
Range("d" & toplamsatırı) = SUM(D8210) Burada D:8 den başlayıp (D+satır) değişkeni arasını toplamak istiyorum
Range("e" & toplamsatırı) = "Toplam" Burada e:8 den başlayıp (e+satır) değişkeni arasını toplamak istiyorum
Range("f" & toplamsatırı) = "Toplam" Burada f:8 den başlayıp (f+satır) değişkeni arasını
toplamak istiyorum

Bu konuda yardımcı olursanız sevinirim teşekkürler
omerturan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-10-2017, 17:57   #2
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,588
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Alıntı:

Bu konuda yardımcı olursanız sevinirim teşekkürler
Bir veri içeren tablo hazırladıktan www.dosya.tc gibi bir dış servera yükleyip burada link paylaşırsanız çalışma tabanını vermiş olacağınızdan .deneyerek çözüm önereceklere de siz yardımcı olursunuz ve beklediğiniz cevap hız kazanabilir.
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-10-2017, 19:54   #3
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,037
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Merhaba,
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub alttoplamlar()
Dim sh As Worksheet, satır As Long, sutun As Long, _
    toplam As Double, alan As Range, toplamsatırı As Long

Set sh = Sheets("Sayfa1")
satır = sh.Range("A" & Rows.Count).End(3).Row
toplamsatırı = satır + 1
sutun = 6
For d = 4 To 6 '(d, e ve f sütunları)
    Set alan = sh.Range(sh.Cells(8, d), sh.Cells(satır, d))
    toplam = CDbl(WorksheetFunction.Sum(alan))
    sh.Cells(toplamsatırı, d).Value = toplam
Next d
MsgBox "İşlem tamamlandı", vbInformation, "antonio"
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 10:23   #4
omerturan
 
Giriş: 24/07/2006
Mesaj: 10
Varsayılan

Sayın cems teşekkürler excel dosyası veri tabanından veri çekn bir dosya olduğu için gönderemiyorum, göndersem bile deneme yapılamaz
omerturan Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 20:10


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden