• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü grup toplamı

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
233
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
Arkadaşlar amacım ekte dosyamda toplam formülü verdiğim hücreleri otomatik olarak tespit ettirerek toplam aldırmaktadır. Bu birer örnek olduğundan sayıları kısıtlı hücre verdim. Benim asıl dosyamda mesela Ocak2016 ayı 500 satırda olabilmektedir mesela. Birde birkaç ay olmuş ve de 1 defaya mahsus olsa ellede yapacağım ancak veriler çok uzayabildiği ve de grup sayısı çok arttığından dolayı bunu otomatik olarak yaptırmak istiyorum. Bunun için formülmü yoksa macromu önerirsiniz? Ekteki dosyama önerileri ve çözümlerinizi ekleyebilirseniz sevinirim.

Teşekkürler.
 

Ekli dosyalar

  • otomatiktoplam.xlsx
    16.9 KB · Görüntüleme: 10

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,498
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhaba,
Bu kodları kullanabilirsiniz. (y)
PHP:
Sub Emre()
    Dim osma&, toplad#, toplae#
    For osma = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
        toplad = toplad + Cells(osma, "D").Value
        toplae = toplae + Cells(osma, "E").Value
        If Range("A" & osma).Interior.ColorIndex = 6 Then
            Range("D" & osma).Value = toplad
            Range("E" & osma).Value = toplae
            toplad = Empty: toplae = Empty
        End If
    Next osma
    osma = Empty: toplad = Empty: toplae = Empty
End Sub
 

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
233
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
Çok teşekkürler hocam
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt