Toplama işlemi

[mertkaymak]

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]

şu kodu boş modül içine kopyalayıp istediğiniz sayfada F5 ile çalıştırınız.

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

 

[mertkaymak]

Çok teşekkür ederim çözüldü emeğine sağlık

 

[systran]

ekte bişey yok zaten resim o indirmenize gerek yok.

 

[Ömer BARAN]

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.
.

[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]

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]

Ö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.
.