canburak
Altın Üye
- Katılım
- 30 Kasım 2011
- Mesajlar
- 205
- Excel Vers. ve Dili
- Ofis 2016 Tr 64 Bit , Turkce
- Altın Üyelik Bitiş Tarihi
- 12-09-2025
Bu arada Assagidaki yaptigim sekilde bir makrom var bu sekilde calisiyor yanliz Mizan Sayfasinda " L2" (ilk tarih) Hucresine ve "M2" (son tarih) hucresine ek kosul eklemek istiyorum "Liste" Sayfasindaki "C:C" sutundaki (Tarih) deger Mizan sayfasindaki "L2" hucresinden Buyuk ve "M2:" Hucresinden kucukse diye ama ekledigim zaman (makro degerleri "Sifir" Getiriyor, Yardimci ola bilirmisiniz , bu arada bu makromda cok kasiyor daha hizli olan yapila bilirmi?
Calisan Makro;
{ Sub Toplamlar()
Set Data = Sheets("liste")
Set MizanRapor = Sheets("Mizan")
sonA = Data.Cells(Rows.Count, "H").End(3).Row
SonB = Data.Cells(Rows.Count, "C").End(3).Row
For satir = 2 To SonB
MizanRapor.Cells(satir, "D") = WorksheetFunction.SumIfs(Data.Range("J2:J" & sonA), Data.Range("G2:G" & sonA), _
MizanRapor.Cells(satir, "B"), Data.Range("H2:H" & sonA), MizanRapor.Cells(satir, "C"))
MizanRapor.Cells(satir, "E") = WorksheetFunction.SumIfs(Data.Range("K2:K" & sonA), Data.Range("G2:G" & sonA), _
MizanRapor.Cells(satir, "B"), Data.Range("H2:H" & sonA), MizanRapor.Cells(satir, "C"))
MizanRapor.Cells(satir, "G") = WorksheetFunction.SumIfs(Data.Range("N2:N" & sonA), Data.Range("G2:G" & sonA), _
MizanRapor.Cells(satir, "B"), Data.Range("H2:H" & sonA), MizanRapor.Cells(satir, "C"), Data.Range("N2:N" & sonA), ">" & "0")
MizanRapor.Cells(satir, "H") = WorksheetFunction.SumIfs(Data.Range("N2:N" & sonA), Data.Range("G2:G" & sonA), _
MizanRapor.Cells(satir, "B"), Data.Range("H2:H" & sonA), MizanRapor.Cells(satir, "C"), Data.Range("N2:N" & sonA), "<" & "0")
Next satir
End Sub }
ve usteki calisan makronun sonundaki (MizanRapor.Cells(satir, "C") ) SON Parantezi silip assagidakini ekliyorum ;
Data.Range("C2:C" & sonA), ">" & MizanRapor.Cells(2,12)) yani
1 ci kosulla ekledigim sekil bu sekilde = (MizanRapor.Cells(satir, "D") = WorksheetFunction.SumIfs(Data.Range("J2:J" & sonA), Data.Range("G2:G" & sonA), _
MizanRapor.Cells(satir, "B"), Data.Range("H2:H" & sonA), MizanRapor.Cells(satir, "C"),Data.Range("C2:C" & sonA), ">" & MizanRapor.Cells(2,12))
Yardim edebilirmisiniz,
Simdiden tesekkurler
Calisan Makro;
{ Sub Toplamlar()
Set Data = Sheets("liste")
Set MizanRapor = Sheets("Mizan")
sonA = Data.Cells(Rows.Count, "H").End(3).Row
SonB = Data.Cells(Rows.Count, "C").End(3).Row
For satir = 2 To SonB
MizanRapor.Cells(satir, "D") = WorksheetFunction.SumIfs(Data.Range("J2:J" & sonA), Data.Range("G2:G" & sonA), _
MizanRapor.Cells(satir, "B"), Data.Range("H2:H" & sonA), MizanRapor.Cells(satir, "C"))
MizanRapor.Cells(satir, "E") = WorksheetFunction.SumIfs(Data.Range("K2:K" & sonA), Data.Range("G2:G" & sonA), _
MizanRapor.Cells(satir, "B"), Data.Range("H2:H" & sonA), MizanRapor.Cells(satir, "C"))
MizanRapor.Cells(satir, "G") = WorksheetFunction.SumIfs(Data.Range("N2:N" & sonA), Data.Range("G2:G" & sonA), _
MizanRapor.Cells(satir, "B"), Data.Range("H2:H" & sonA), MizanRapor.Cells(satir, "C"), Data.Range("N2:N" & sonA), ">" & "0")
MizanRapor.Cells(satir, "H") = WorksheetFunction.SumIfs(Data.Range("N2:N" & sonA), Data.Range("G2:G" & sonA), _
MizanRapor.Cells(satir, "B"), Data.Range("H2:H" & sonA), MizanRapor.Cells(satir, "C"), Data.Range("N2:N" & sonA), "<" & "0")
Next satir
End Sub }
ve usteki calisan makronun sonundaki (MizanRapor.Cells(satir, "C") ) SON Parantezi silip assagidakini ekliyorum ;
Data.Range("C2:C" & sonA), ">" & MizanRapor.Cells(2,12)) yani
1 ci kosulla ekledigim sekil bu sekilde = (MizanRapor.Cells(satir, "D") = WorksheetFunction.SumIfs(Data.Range("J2:J" & sonA), Data.Range("G2:G" & sonA), _
MizanRapor.Cells(satir, "B"), Data.Range("H2:H" & sonA), MizanRapor.Cells(satir, "C"),Data.Range("C2:C" & sonA), ">" & MizanRapor.Cells(2,12))
Yardim edebilirmisiniz,
Simdiden tesekkurler