Toplama işlemi

Katılım
15 Ağustos 2015
Mesajlar
10
Excel Vers. ve Dili
2010 tr
Merhaba;

1283 satırlık bir veri var c sütununda bulunanları koşula göre toplamak istiyorum örnek olarak c1 c2 c3 hücrelerinde 1 c4 boş c5 c6 hücrelerinde 1 var c7 boş c8den c15e kadar 1 var c16 boş. her boşlukta üstteki sayıları toplamak istiyorum. C4=3 C7=2 C16=8 vermesi gerekiyor yardımcı olabilir misiniz

Teşekkürler
 

systran

Destek Ekibi
Destek Ekibi
Katılım
15 Aralık 2007
Mesajlar
1,574
Excel Vers. ve Dili
2007 [TR], 2013 [TR]
şu kodu boş modül içine kopyalayıp istediğiniz sayfada F5 ile çalıştırınız.
Kod:
Sub aralıktopla()
ss = ActiveSheet.Range("C10000").End(3).Row + 1
aratoplam = 0
For i = 1 To ss
    deger = ActiveSheet.Range("C" & i)
    If deger <> "" Then    'boş değilse
        aratoplam = aratoplam + deger
    Else
        ActiveSheet.Range("C" & i) = aratoplam
        ActiveSheet.Range("C" & i).Interior.Color = vbRed
        aratoplam = 0
    End If
Next

End Sub
 

Ekli dosyalar

systran

Destek Ekibi
Destek Ekibi
Katılım
15 Aralık 2007
Mesajlar
1,574
Excel Vers. ve Dili
2007 [TR], 2013 [TR]
ekte bişey yok zaten resim o indirmenize gerek yok.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba.

Alternatif.

-- Alt taraftan işlem yapılacak sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranının sağ tarafındaki boş alana aşağıdaki kod'u yapıştırın,
-- Sayfaya bir adet düğme/metin kutusu/şekil ekleyin,
-- Sayfaya eklediğiniz bu düğme/metin kutusu/şekile fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- Açılacak küçük ekranda ARATOPLAM'ı seçerek işlemi onaylayın,
-- Bu düğme/metin kutusu/şekile fareyle tıklayarak kod'un çalışmasını sağlayın.
.
Kod:
[B]Sub ARATOPLAM()[/B]
For sat = Cells(Rows.Count, 3).End(3).Row + 1 To 1 Step -1
    Cells(sat, 3) = WorksheetFunction.Sum(Range(Cells(Cells(sat - 1, 3).End(3).Row, 3), Cells(sat - 1, 3)))
    Cells(sat, 3).Interior.ColorIndex = 15:[B][COLOR="Red"] Cells(sat, 3).Font.Bold = True: [/COLOR][/B]sat = Cells(sat - 1, 3).End(3).Row
Next: MsgBox "İşlem tamamlandı..", vbInformation, "...:::... Ö. BARAN ...:::..."
[B]End Sub[/B]
 

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,552
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
Teşekkür ve bir rica

Ömer üstat merhaba ve hayırlı Cuma'lar.


Bir gün işime yarayabilir düşüncesiyle "Arşiv" klasörüne aldım.

Bu arada, toplam alınan hücreyi "kalın bold" yapabilir miyiz?

Emekleriniz için teşekkürler.

Selam ve sevgiler.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Ömer üstat merhaba ve hayırlı Cuma'lar.
Bir gün işime yarayabilir düşüncesiyle "Arşiv" klasörüne aldım.
Bu arada, toplam alınan hücreyi "kalın bold" yapabilir miyiz?
Emekleriniz için teşekkürler.
Selam ve sevgiler.
Merhaba Sayın ŞENÜÇLER. Bilmukabele.

Önceki cevabıma kırmızı renklendirdiğim kısmı ekledim,
sayfayı yenileyerek kontrol edersiniz.
.
 
Üst