En Son Satıra Toplama

[ahmed_ummu]

Merhaba arkadaşlar.

Örnek resimde belirttiğim gibi son dolu satırın iki satır altına verileri toplatmak istiyorum. Daha önceki örneklerden denedim ama yapamadım. Sadece bir satırını toplatabiliyorum. Resimde ne yapmak istediğimi anlattım. Dosyam büyük olduğu için sadece işlemi yapmak istediğim sayfanın resmini gönderdim. Yardımcı olabilirseniz çok sevinirim.

 

[Korhan Ayhan]

Renkler elle verilmişse aşağıdaki linkteki konular işinize yarayabilir.

https://www.excel.web.tr/threads/renkli-zemin-ve-font-oezelliklerine-goere-uygulamalar.17627/

https://www.excel.web.tr/threads/ktf-renkli-huecreleri-toplama-ve-sayma.34042/

Bunlarda koşullu biçimlendirme ile renklenmiş hücreler için kaynak linkler.. (Arama yaparsanız daha fazlasına da ulaşabilirsiniz.)

Koşullu biçimlendirmeye göre saydırma

Merhaba arkadaşlar yaptığım bir excel de koşullu biçimlendirme kullanıyorum. Biçimlendirme hücrede yazdığım kelimenin sonunda örnek seri numarası "ggsc3x2" diyelim sonunda 3x2 varsa kırmızıya boyuyor. Başında ise " vbm" varsa yeşile. Düzgün şekilde çalışıyor. Bazen seri numarası vbm3x2 denk...

www.excel.web.tr

Soru - Renklere göre toplam aldırma sorunu

renklere göre topla makrosu ile renkli olanları topluyorum ancak biçimlendirme yapılmış sütundakileri toplama yapmıyor. makroda nasıl bir değişiklik yapmam gerekiyor.

www.excel.web.tr

 

[uzmanamele]

Merhaba

Bunu deneyiniz.



Sub BordroTopla()
Dim vt As Double
ssat = Range("J1048576").End(3).Row
For k = 1 To 4
For i = 3 To 10
For j = k + 1 To ssat Step 5
vt = vt + Cells(j, i)
Next
Cells(ssat + 1 + k, i) = vt
vt = 0
Next
Next
End Sub



 

[ahmedummu]

Merhaba

Bunu deneyiniz.



Sub BordroTopla()
Dim vt As Double
ssat = Range("J1048576").End(3).Row
For k = 1 To 4
For i = 3 To 10
For j = k + 1 To ssat Step 5
vt = vt + Cells(j, i)
Next
Cells(ssat + 1 + k, i) = vt
vt = 0
Next
Next
End Sub



Teşekkürler arkadaşlar ilginize.

Kırmızı renkli satırda "type mismatch" hatası veriyor. Yalnız kodları ben bir Comandbutton un içine yapıştırdım.

Dim vt As Double
ssat = Range("J1048576").End(3).Row
For k = 1 To 4
For i = 3 To 10
For j = k + 1 To ssat Step 5
vt = vt + Cells(j, i)
Next
Cells(ssat + 1 + k, i) = vt
vt = 0
Next
Next

 

[ahmed_ummu]

Renkler elle verilmişse aşağıdaki linkteki konular işinize yarayabilir.

https://www.excel.web.tr/threads/renkli-zemin-ve-font-oezelliklerine-goere-uygulamalar.17627/

https://www.excel.web.tr/threads/ktf-renkli-huecreleri-toplama-ve-sayma.34042/

Bunlarda koşullu biçimlendirme ile renklenmiş hücreler için kaynak linkler.. (Arama yaparsanız daha fazlasına da ulaşabilirsiniz.)

Koşullu biçimlendirmeye göre saydırma

Merhaba arkadaşlar yaptığım bir excel de koşullu biçimlendirme kullanıyorum. Biçimlendirme hücrede yazdığım kelimenin sonunda örnek seri numarası "ggsc3x2" diyelim sonunda 3x2 varsa kırmızıya boyuyor. Başında ise " vbm" varsa yeşile. Düzgün şekilde çalışıyor. Bazen seri numarası vbm3x2 denk...

www.excel.web.tr

Soru - Renklere göre toplam aldırma sorunu

renklere göre topla makrosu ile renkli olanları topluyorum ancak biçimlendirme yapılmış sütundakileri toplama yapmıyor. makroda nasıl bir değişiklik yapmam gerekiyor.

www.excel.web.tr

Korhan bey satırlarda renk yok sadece aynı renkteki satırların toplanacağını belirtmek için renklendirdim.

 

[uzmanamele]

Merhaba

Bu mudur?

 

[ahmed_ummu]

Merhaba

Bu mudur?

Çok teşekkürler sayın Uzman bey. Evet böyle bişey. Kendi dosyama uyarlamaya çalışacağım. Elinize sağlık.

 

[ahmed_ummu]

Uzman bey yine aynı satırda aynı hatayı verdi. Bir de ara toplam olmayacak. Örnek resimde anlatmaya çalıştım. Formül ile örnek olarak topladım. Zahmet olacak ama bi bakabilir misiniz. Çalıştığım sayfayı göndereceğim ama sayfayı dosyadan ayıramıyorum. Sayfayı yeni kitap olarak kopyalamak istediğimde dosyam kapanıyor ve sayfayı ayıramıyorum.

 

[Korhan Ayhan]

Renk olmadığını belirtmediğiniz için bunu bilmem mümkün değil.

C44;

=TOPLA.ÇARPIM((MOD(SATIR(C$13:C$42)-13;5)+1=SATIR($A1))*(C$13:C$42))

 

[uzmanamele]

Uzman bey yine aynı satırda aynı hatayı verdi. Bir de ara toplam olmayacak. Örnek resimde anlatmaya çalıştım. Formül ile örnek olarak topladım. Zahmet olacak ama bi bakabilir misiniz. Çalıştığım sayfayı göndereceğim ama sayfayı dosyadan ayıramıyorum. Sayfayı yeni kitap olarak kopyalamak istediğimde dosyam kapanıyor ve sayfayı ayıramıyorum.

Merhaba
Kod hata verdiyse bu satırı silin.
Dim vt As Double

Ara toplam olmayacaksa o satırları silin, makro ara toplam almıyor ki?

 

[ahmed_ummu]

Renk olmadığını belirtmediğiniz için bunu bilmem mümkün değil.

C44;

=TOPLA.ÇARPIM((MOD(SATIR(C$13:C$42)-12;5)=SATIR($A1))*(C$13:C$42))

Korhan bey resmini gönderdiğim sayfadaki veriler kod ile oluyor. Onun için bu toplama işlemi de kod ile olması gerekiyor.

 

[Korhan Ayhan]

Formülü kullanmak isteye olabilir diye küçük bir revize yaptım.

Makro olarak aşağıdaki kodu kendi dosyanıza uyarlarsınız.

Paylaştığınız görsele göre kurgulanmıştır.

Option Explicit

Sub Genel_Toplam()
    Dim Son As Long
    
    Son = Cells(Rows.Count, 1).End(3).Row
    
    If Son > 13 Then
        With Range("C" & Son + 2).Resize(5, 8)
            .Formula = "=SUMPRODUCT((MOD(ROW(C$13:C$" & Son & ")-13,5)+1=ROW($A1))*(C$13:C$" & Son & "))"
            .Value = .Value
            .Offset(, -1).Cells(1, 1) = "GENEL TOPLAM"
            .Offset(, -1).Cells(1, 1).Resize(5).Merge
            .Offset(, -1).Cells(1, 1).Resize(5, 9).Font.Bold = True
        End With
        MsgBox "Genel toplamlar alınmıştır.", vbInformation
    End If
End Sub

 

[ahmed_ummu]

Merhaba
Kod hata verdiyse bu satırı silin.
Dim vt As Double

Ara toplam olmayacaksa o satırları silin, makro ara toplam almıyor ki?

Merhaba Uzman bey. Dediğiniz satırı sildim ama yine aynı satırda aynı hatayı verdi. Dosyamı göndersem bakabilir misiniz.

 

[ahmed_ummu]

Formülü kullanmak isteye olabilir diye küçük bir revize yaptım.

Makro olarak aşağıdaki kodu kendi dosyanıza uyarlarsınız.

Paylaştığınız görsele göre kurgulanmıştır.

Option Explicit

Sub Genel_Toplam()
    Dim Son As Long
   
    Son = Cells(Rows.Count, 1).End(3).Row
   
    If Son > 13 Then
        With Range("C" & Son + 2).Resize(5, 8)
            .Formula = "=SUMPRODUCT((MOD(ROW(C$13:C$" & Son & ")-13,5)+1=ROW($A1))*(C$13:C$" & Son & "))"
            .Value = .Value
            .Offset(, -1).Cells(1, 1) = "GENEL TOPLAM"
            .Offset(, -1).Cells(1, 1).Resize(5).Merge
            .Offset(, -1).Cells(1, 1).Resize(5, 9).Font.Bold = True
        End With
        MsgBox "Genel toplamlar alınmıştır.", vbInformation
    End If
End Sub

Teşekkürler Korhan bey çözüldü.

 

[ahmed_ummu]

Arkadaşlar yardımlarınız için çok teşekkür ederim.