Makro SUMIFS-Coketopla Hk.

[ramazankaya89]

Herkese Merhaba,
iki ayrı sayfada aynı numaraların kriterlere göre toplamlarını aldırmak ıcın asagıdakı kodu yazdım fakat sadece ilk buldugunu "SANDALYE" olanın toplamını alıyor halbukı bu numarada masa olarak da tutarlar mevcut yazmıs oldugum kod asagıdakı gıbı olup hata yaptıgım nokta tam olarak neresı acaba desteklerınızı beklıyorum tesekkur ederım.



Sub sumıfs()

For i = 2 To 12


Set Currency_Amount = Worksheets("veri").Cells(i, 14)
Set Currency_Amount_Tr = Worksheets("veri").Cells(i, 16)
Set Department_Code = Worksheets("veri").Cells(i, 29)
Set Tr_Fatura_No = Worksheets("veri").Cells(i, 5)
Set Cost_Invoice_No = Worksheets("sonuç").Cells(i, 1)
Set Result_Update = Worksheets("veri").Cells(i, 30)


Masa_code_1 = "IHR-MASA"
Masa_code_2 = "EXP-MASA"

Sandalye_Code_1 = "IHR-SANDALYE"
Sandalye_Code_2 = "EXP-SANDALYE"


Worksheets("sonuç").Cells(i, 15) = Application.WorksheetFunction.SumIfs(Currency_Amount, Tr_Fatura_No, Cost_Invoice_No, Result_Update, Masa_code_1) _
+ Application.WorksheetFunction.SumIfs(Currency_Amount, Tr_Fatura_No, Cost_Invoice_No, Result_Update, Masa_code_2)

Worksheets("sonuç").Cells(i, 16) = Application.WorksheetFunction.SumIfs(Currency_Amount, Tr_Fatura_No, Cost_Invoice_No, Result_Update, Sandalye_Code_1) _
+ Application.WorksheetFunction.SumIfs(Currency_Amount, Tr_Fatura_No, Cost_Invoice_No, Result_Update, Sandalye_Code_2)



Next i

End Sub

 

[ramazankaya89]

yardımcı olabılecek bırısı varmı dostlar

 

[Korhan Ayhan]

Merhaba,

İşlemi döngü olmadan çözebilirsiniz gibi görünüyor. Bunun için örnek dosya paylaşabilirmisiniz.

Ayrıca ek olarak profilinizde yazan "vba" ifadesi yerine bizlerdeki gibi kullandığınız ofis sürümünü ve dilini yazmanız daha faydalı olacaktır.

 

[ramazankaya89]

hocam merhaba dönguyu kaldırdım fakat yıne olmadı dosya paylasmayı cok bılmıyorum rıca etsem kodu ınceleyıp bana buradan destek olabılırmısınız.
ben sızden aldıgımı tekrar gozden gecırırım nerde hata yaptıgımı ogrenmek ıstıyorum

 

[Korhan Ayhan]

Dosya yükleme sitelerini kullanarak paylaşımda bulunabilirsiniz.

Dosya Yükle - Dosya Upload - Resim Yükle - Hızlı Resim Yükleme Sitesi

Dosyalarınızı ücretsiz yükleyebilir⭐ ve paylaşabilirsiniz. ❤️ Dosya Yükle,✅ Dosya Upload,✅ Resim Yükle Sitesi,✅ dosyaupload, ⭐ hızlı resim paylaş ücretsiz dosya transferi.

dosyam.org

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[ramazankaya89]

dosya bu hocam

https://s2.dosya.tc/server24/93mzoi/ornek_dosya.xlsm.html

 

[Korhan Ayhan]

Ayrıca ek olarak profilinizde yazan "vba" ifadesi yerine bizlerdeki gibi kullandığınız ofis sürümünü ve dilini yazmanız daha faydalı olacaktır.

Üstteki hatırlatmamı dikkate alırsanız sevinirim.

 

[ramazankaya89]

düzelttim hocam afedersınız gozumden kacmıs o dosyayı ınceleme fırsatınız oldu mu acaba

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub VBA_Sumifs()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Table_Code As String, Chair_Code As String
   
    Set S1 = Sheets("sonuç")
    Set S2 = Sheets("veri")
       
    S1.Range("O2:P" & S1.Rows.Count).ClearContents
   
    Table_Code = "{""IHR-MASA"", ""EXP-MASA""}"
    Chair_Code = "{""IHR-SANDALYE"", ""EXP-SANDALYE""}"
   
    With S1.Range("O2:O" & S1.Cells(S1.Rows.Count, 1).End(3).Row)
        .Formula = "=SUM(SUMIFS('" & S2.Name & "'!N:N,'" & S2.Name & "'!E:E,'" & S1.Name & "'!A2,'" & S2.Name & "'!AD:AD," & Table_Code & "))"
        .Value = .Value
    End With

    With S1.Range("P2:P" & S1.Cells(S1.Rows.Count, 1).End(3).Row)
        .Formula = "=SUM(SUMIFS('" & S2.Name & "'!N:N,'" & S2.Name & "'!E:E,'" & S1.Name & "'!A2,'" & S2.Name & "'!AD:AD," & Chair_Code & "))"
        .Value = .Value
    End With
   
    Set S1 = Nothing
    Set S2 = Nothing
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ramazankaya89]

tesekkur ederım

 

[mühendisberke]

ornek_dosya.xlsm dosyasını indir - download

ornek_dosya.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

etoplayla ilgili sütunları yaptım şu an veriyi çekiyor vba kullanmadım

 

[ramazankaya89]

ornek_dosya.xlsm dosyasını indir - download

ornek_dosya.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

etoplayla ilgili sütunları yaptım şu an veriyi çekiyor vba kullanmadım

Benım bu sorunu vba ıle cozmem gerekıyor hocam en hızlı ve basite indirgeyerek formuller ıle yapıyorum ama ınanılmaz kasıyor ve zaman alıyor satır sayım cok fazla