ETOPLA FORMÜLÜNÜN MAKROSU

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Ç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.
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Alanları ve atamaları ayarlayınız.
Kod:
sonuc = WorksheetFunction.SumIf(Sheets("Sayfa1").Range("A1:A10"), Sheets("Sayfa1").Range("B1"), Sheets("Sayfa1").Range("C1:C10"))
 

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Alanları ve atamaları ayarlayınız.
Kod:
sonuc = WorksheetFunction.SumIf(Sheets("Sayfa1").Range("A1:A10"), Sheets("Sayfa1").Range("B1"), Sheets("Sayfa1").Range("C1:C10"))
Teşekkür ederim çok işime yaradı
 

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
594
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
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.
 
Katılım
5 Kasım 2006
Mesajlar
571
Excel Vers. ve Dili
TÜRKCE Excel 2021 32bit
Sayın Çıtır Hocam müsait bir vaktinizde Etopla ve Çoketopla ile ilgili makro örneği paylaşabilir misiniz.
Vba WorksheetFunction.SumIf
Vba WorksheetFunction.SumIfs
Olarak Youtubede aratın videolu çıkar tonlarca.
:)
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
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

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,580
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Teşekkür ederim Sayın Çıtır,
Saygılar
 
Üst