Belirlene aralıktaki toplamların alınması

**1903emre34@gmail.com** · 13-01-2018, 13:36

iyi günler,

D4 D7 , E4:E7, F4:F7,G4:G7;H4:H7 aralıktaki toplamların aldırmak istiyorum,

**antonio** · 13-01-2018, 16:42

Merhaba,
Belirttiğiniz alanlara girdiğiniz sayılar string (metin) ifadesi olarak yazılmış. Yani hücre biçimlendirmeden yapmak yerine, elle nokta girilmiş. (Ayıraç ifadeleri). O yüzden hata veriyor.
Bazı sayıları da, parantez içinde yazmışsınız, doğal olarak sayı olmaktan çıkıp stringe dönüşüyor
Klavyeden aralık ve nokta girmeden sayıları girerseniz hiç değilse toplanacak bir değer ortaya çıkar.

**1903emre34@gmail.com** · 13-01-2018, 19:46

Belge 1'de yer alan tabloyu (aynen formatında)
buraya yerleştirip formül yada makro yoluyla "TOPLAM" alıp, tekrar Belge 1 aynen yerleştirmek istiyorum, burada amacım word belgesinde manuel olarak toplamları aldığım için hatalara neden olmaktadır, hata vermesinin sebepi haklısınız sayılardan kaynaklanmaktadır.

http://s3.dosya.tc/server13/n1t60r/klasor.zip.html

**YUSUF44** · 13-01-2018, 20:05

Word'de de toplama yapma özelliği olduğunu biliyorsunuz değil mi?

**antonio** · 13-01-2018, 21:43

Alıntı:

1903emre34@gmail.com tarafından gönderildi

Belge 1'de yer alan tabloyu (aynen formatında) buraya yerleştirip formül yada makro yoluyla "TOPLAM" alıp, tekrar Belge 1 aynen yerleştirmek istiyorum, burada amacım word belgesinde manuel olarak toplamları aldığım için .....

Sebebi anlaşıldı.
Aşağıdaki kodu örnek sayfanıza göre hazırladım. Kendinize göre uyarlayabilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

Sub sayilar_toplamlar()
Dim hcr As Range, alan As Range, toplam As Double
Set alan = Sayfa1.Range("D4:H7")
For y = 4 To 8
    For x = 4 To 8
        Set hcr = Sayfa1.Cells(x, y)
        deg = Replace(Replace(Replace(Replace(hcr.Value, ".", ""), ")", ""), "(", ""), "-", "")
        If deg = "" Then deg = 0
        hcr.Value = deg * 1
    Next x
Next y
toplam = Application.WorksheetFunction.Sum(alan)
Sayfa1.Range("C11").Value = Format(toplam, "#,##0.#0")
MsgBox "İşlem tamamlandı", vbInformation, "antonio"
End Sub

**Korhan Ayhan** · 13-01-2018, 23:57

Alternatif;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

=TOPLA.ÇARPIM(--YERİNEKOY(YERİNEKOY(D4:D7;".";"");"-";0))

**1903emre34@gmail.com** · 15-01-2018, 17:56

Sn.antonio teşekkürler kod çalışıyor; D1 D7,E4:E7,F4:F7,G4:G7,H4:H7 her bir aralıklarında toplamları bağlı bulunduğu altına , şu formatta ki gibi;
10.000,00
ve sıfır yerine "-" işareti gelecek şekilde değişiklik yapabilmiyiz.

**antonio** · 15-01-2018, 18:20

Size önerdiğim kodların yerine aşağıdakileri deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

Sub sayilar_toplamlar()
Dim hcr As Range, alan As Range, toplam As Double
Set alan = Sayfa1.Range("D4:H7")
On Error Resume Next
For y = 4 To 8
    For x = 4 To 7
        Set hcr = Sayfa1.Cells(x, y)
        deg = Replace(Replace(Replace(hcr.Value, ".", ""), ")", ""), "(", "")
'(önceki kodlarda 4 adet Replace kullanılmıştı, burada 3 tane)
        If deg = "" Then deg = 0
        hcr.Value = deg * 1
    Next x
Next y
For d = 4 To 8
    alttoplam = Application.WorksheetFunction.Sum(Sayfa1.Range(Cells(4, d), Cells(7, d)))
    Sayfa1.Cells(8, d).Value = Format(alttoplam, "#,##0.#0")
Next d
toplam = Application.WorksheetFunction.Sum(alan)
Sayfa1.Range("C11").Value = Format(toplam, "#,##0.#0")
MsgBox "İşlem tamamlandı", vbInformation, "antonio"
End Sub

**1903emre34@gmail.com** · 15-01-2018, 18:57

Sıfır yerine "-" işareti geliyor, ama toplamı sıfır geliyor, dosya ekte gibidir.

**antonio** · 15-01-2018, 21:06

8 No'lu Mesajımdaki kodları güncelledim.

13-01-2018, 16:42	#2
antonio Destek Ekibi Giriş: 13/02/2011 Mesaj: 1,116 Excel Vers. ve Dili: Excel 2013	Merhaba, Belirttiğiniz alanlara girdiğiniz sayılar string (metin) ifadesi olarak yazılmış. Yani hücre biçimlendirmeden yapmak yerine, elle nokta girilmiş. (Ayıraç ifadeleri). O yüzden hata veriyor. Bazı sayıları da, parantez içinde yazmışsınız, doğal olarak sayı olmaktan çıkıp stringe dönüşüyor Klavyeden aralık ve nokta girmeden sayıları girerseniz hiç değilse toplanacak bir değer ortaya çıkar. __________________ Ö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. Bu mesaj en son " 13-01-2018 " tarihinde saat 17:24 itibariyle antonio tarafından düzenlenmiştir....

13-01-2018, 19:46	#3
1903emre34@gmail.com Altın Üye Giriş: 29/05/2016 Şehir: İstanbul Mesaj: 586 Excel Vers. ve Dili: Microsoft Excel 2013 Türkçe	Belge 1'de yer alan tabloyu (aynen formatında) buraya yerleştirip formül yada makro yoluyla "TOPLAM" alıp, tekrar Belge 1 aynen yerleştirmek istiyorum, burada amacım word belgesinde manuel olarak toplamları aldığım için hatalara neden olmaktadır, hata vermesinin sebepi haklısınız sayılardan kaynaklanmaktadır. http://s3.dosya.tc/server13/n1t60r/klasor.zip.html __________________ Mevzu_u Bahis Vatansa Gerisi Teferruattır

13-01-2018, 20:05	#4
YUSUF44 Destek Ekibi Giriş: 04/01/2006 Şehir: Manisa, Kula Mesaj: 6,708 Excel Vers. ve Dili: İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe	Word'de de toplama yapma özelliği olduğunu biliyorsunuz değil mi? __________________ Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır. Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.

13-01-2018, 23:57	#6
Korhan Ayhan Moderatör Giriş: 15/03/2005 Şehir: ANTALYA Mesaj: 23,110 Excel Vers. ve Dili: OFFICE 2013-2016 PRO TR	Alternatif; Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar) =TOPLA.ÇARPIM(--YERİNEKOY(YERİNEKOY(D4:D7;".";"");"-";0)) __________________ . . . Soru sormadan önce forumumuzun aşağıdaki bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz. Excel Dersanesi Uygulamalı Excel Eğitimi Excel İçin Örnek Uygulamalar Video Dersane (Altın Üyelere Özel) Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...! Lütfen yazım ve forum kurallarına uyalım...! Lütfen sorularımızı açık ve net bir dille ifade edelim...! FORUM KURALLARI

15-01-2018, 21:06	#10
antonio Destek Ekibi Giriş: 13/02/2011 Mesaj: 1,116 Excel Vers. ve Dili: Excel 2013	8 No'lu Mesajımdaki kodları güncelledim. __________________ Ö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.

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç