Sub CokeToplaa()
Dim son As Long, i As Long
Dim syf As Worksheet
Set syf = ThisWorkbook.Sheets("Sayfa2")
Const satir_bas As Byte = 2
With ThisWorkbook.Sheets("Sayfa1")
son = syf.Range("A:A").Find("GENEL TOPLAM", , , 1).Row - 1
syf.Range("B" & satir_bas & "" & son + 1).Value = ""
If son < satir_bas Then Exit Sub
If son = satir_bas Then son = satir_bas
For i = satir_bas To son
syf.Cells(i, 2).Value = WorksheetFunction.SumIfs(.Range("D"), _
.Range("A:A"), syf.Cells(i, 1).Value, _
.Range("B:B"), .Cells(6, "M").Value)
syf.Cells(i, 3).Value = WorksheetFunction.SumIfs(.Range("i:i"), _
.Range("F:F"), syf.Cells(i, 1).Value, _
.Range("G:G"), .Cells(6, "M").Value)
syf.Cells(i, 4).Value = syf.Cells(i, 2).Value - syf.Cells(i, 3).Value
Next
son = syf.Range("A:A").Find("GENEL TOPLAM", , , 1).Row
syf.Range("B" & son).Value = WorksheetFunction.Sum(syf.Range("B" & satir_bas & ":B" & son - 1))
syf.Range("C" & son).Value = WorksheetFunction.Sum(syf.Range("C" & satir_bas & ":C" & son - 1))
syf.Cells(son, 4).Value = syf.Cells(son, 2).Value - syf.Cells(son, 3).Value
End With
Set syf = Nothing
MsgBox "Biiti"
End Sub
Tarihe Göre Toplam Almak
Bu Konudaki Yorumlar |
Tarihe Göre Toplam Almak - Yazar: m_demir - 21/05/2021, 12:32
Re: Tarihe Göre Toplam Almak - Yazar: m_demir - 21/05/2021, 22:37
RE: Tarihe Göre Toplam Almak - Yazar: feraz - 21/05/2021, 23:43
RE: Tarihe Göre Toplam Almak - Yazar: feraz - 22/05/2021, 00:34
RE: Tarihe Göre Toplam Almak - Yazar: feraz - 22/05/2021, 00:55
Re: Tarihe Göre Toplam Almak - Yazar: m_demir - 22/05/2021, 01:22
RE: Tarihe Göre Toplam Almak - Yazar: feraz - 22/05/2021, 04:09
Re: Tarihe Göre Toplam Almak - Yazar: feraz - 22/05/2021, 12:56
RE: Tarihe Göre Toplam Almak - Yazar: m_demir - 22/05/2021, 13:11
RE: Tarihe Göre Toplam Almak - Yazar: feraz - 22/05/2021, 13:58
|
Konuyu Okuyanlar: 1 Ziyaretçi