MAKRO SUMIFS

[Kullanıcı Silindi 75]

merhaba ıyı bayramlar dılıyorum cok etopla ıcın bu kodu yazdım ama nerde hata yapıyorum yardım edebılecek bırııs varmı
formul olarak yapamam cok satır oldugu ıcın makro ıle cozmem gerekıyor sorunu desteklerınız ıcın tesekkurler.



Sub sumıfs()

Dim Currency_Amount, Currency_Amount_Tr, Department_Code, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No As Range
Dim Result_Update As Variant


Set Currency_Amount = Worksheets("DATA").Range("N2:N100000")
Set Currency_Amount_Tr = Worksheets("DATA").Range("P2:P100000")
Set Department_Code = Worksheets("DATA").Range("AC2:AC100000")
Set Ssp_Tr_Invoice_No = Worksheets("DATA").Range("E2:E100000")
Set Cost_Tr_Invoice_No = Worksheets("RESULT").Range("A2:A100000")
Set Result_Update = Worksheets("DATA").Range("AD2:AD100000")


Binek_code_1 = "IHR-101"
Binek_code_2 = "EXP-101"

Brake_Disc_Code_1 = "IHR-FREN DISK PAKETLEME MONTAJ"
Brake_Disc_Code_2 = "EXP-FREN DISK PAKETLEME MONTAJ"

Brake_Pad_Code_1 = "IHR-FREN BALATA"
Brake_Pad_Code_2 = "EXP-FREN BALATA"

Brake_Drum_Code_1 = "IHR-KAMPANA"
Brake_Drum_Code_2 = "EXP-KAMPANA"

Brake_Spray_Code_1 = "IHR-FREN BALATA SPREYI"
Brake_Spray_Code_2 = "EXP-FREN BALATA SPREYI"

Cost_Code = "$"



Worksheets("RESULT").Range("O2").End(xlDown).Row = Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Result_Update, Binek_code_1) _
+ Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Result_Update, Binek_code_2)


Worksheets("RESULT").Range("P2").End(xlDown).Row = Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Result_Update, Brake_Disc_Code_1) _
+ Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Result_Update, Brake_Disc_Code_2)


Worksheets("RESULT").Range("Q2").End(xlDown).Row = Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Result_Update, Brake_Pad_Code_1) _
+ Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Result_Update, Brake_Pad_Code_2)


Worksheets("RESULT").Range("R2").End(xlDown).Row = Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Result_Update, Brake_Drum_Code_1) _
+ Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Result_Update, Brake_Drum_Code_2)


Worksheets("RESULT").Range("S2").End(xlDown).Row = Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Result_Update, Brake_Spray_Code_1) _
+ Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Result_Update, Brake_Spray_Code_2)


Worksheets("RESULT").Range("N2").End(xlDown).Row = Application.WorksheetFunction.SumIfs(Currency_Amount_Tr, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Department_Code, Cost_Code)


Worksheets("RESULT").Range("M2").End(xlDown).Row = Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Department_Code, Cost_Code)


Worksheets("RESULT").Range("L2").End(xlDown).Row = Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No) _
- Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Department_Code, Cost_Code)




Set Currency_Amount = Nothing
Set Currency_Amount_Tr = Nothing
Set Department_Code = Nothing
Set Ssp_Tr_Invoice_No = Nothing
Set Cost_Tr_Invoice_No = Nothing
Set Result_Update = Nothing



End Sub