ETOPLA FORMÜLÜNÜN MAKROSU

[seddur]

Ç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.

 

[FERAZ]

WorksheetFunction.SumIf

 

[çıtır]

Alanları ve atamaları ayarlayınız.

sonuc = WorksheetFunction.SumIf(Sheets("Sayfa1").Range("A1:A10"), Sheets("Sayfa1").Range("B1"), Sheets("Sayfa1").Range("C1:C10"))

 

[seddur]

Alanları ve atamaları ayarlayınız.

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ı

 

[çıtır]

Teşekkür ederim çok işime yaradı

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[gicimi]

Alanları ve atamaları ayarlayınız.

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.

 

[FERAZ]

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.

 

[çıtır]

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

 

[gicimi]

Sn. @çıtır Hocam çok teşekkür ederim.

 

[çıtır]

Sn. @çıtır Hocam çok teşekkür ederim.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[Tevfik_Kursun]

Teşekkür ederim Sayın Çıtır,
Saygılar

 

[çıtır]

Teşekkür ederim Sayın Çıtır,
Saygılar

Rica ederim.Bilmukabele