ETOPLA FORMÜLÜNÜN MAKROSU

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
29
Beğeniler
0
Excel Vers. ve Dili
libreoffice calc.
#1
Çok işlevsel olduğunu düşündüğüm ama bir türlü yazılışını bulamadığım etopla formülüne karşılık gelen kodu bilen bir arkadaş varsa yardımlarını bekliyorum.
 

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
4,616
Beğeniler
729
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#3
Alanları ve atamaları ayarlayınız.
Kod:
sonuc = WorksheetFunction.SumIf(Sheets("Sayfa1").Range("A1:A10"), Sheets("Sayfa1").Range("B1"), Sheets("Sayfa1").Range("C1:C10"))
 

gicimi

Altın Üye
Altın Üye
Katılım
3 Şubat 2008
Mesajlar
520
Beğeniler
32
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
#6
Alanları ve atamaları ayarlayınız.
Kod:
sonuc = WorksheetFunction.SumIf(Sheets("Sayfa1").Range("A1:A10"), Sheets("Sayfa1").Range("B1"), Sheets("Sayfa1").Range("C1:C10"))
Sayın Çıtır Hocam müsait bir vaktinizde Etopla ve Çoketopla ile ilgili makro örneği paylaşabilir misiniz.
 

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
4,616
Beğeniler
729
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#8
Kod:
Sub etopla()
Dim s1 As Worksheet: Dim s2 As Worksheet: Dim s3 As Worksheet: Dim i As Integer
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2"): Set s3 = Sheets("Sayfa3")
Set wf = WorksheetFunction
son1 = s1.Cells(s1.Rows.Count, "A").End(3).Row
son2 = s2.Cells(s2.Rows.Count, "A").End(3).Row
son3 = s3.Cells(s3.Rows.Count, "A").End(3).Row
For i = 2 To son2
s2.Range("B" & i) = wf.SumIf(s1.Range("A2:A" & son1), s2.Range("A" & i), s1.Range("D2:D" & son1))
Next i
For i = 2 To son3
s3.Range("C" & i) = wf.SumIfs(s1.Range("D2:D" & son1), s1.Range("A2:A" & son1), s3.Range("A" & i), s1.Range("B2:B" & son1), s3.Range("B" & i))
Next i
MsgBox "İşlem tamamlandı", vbInformation, "BİLGİ"
End Sub
 

Ekli dosyalar

Üst