aşağıdaki alanlara gore cok etopla yaptırmak ıcın kodumu yazdım fakat atıyorum hem IHR-101 hem de IHR-Fren dısk paketleme montaj olmasına ragmen sadece bırısının toplamını alıyor dıgerını almıyor sızce nerede hata yapıyorum da sadece bırısını alıyor donguden kaynaklı olabılır mı?
Kriter ıcın asagıdakılerı baz alabılırız.
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"
Kodum :
Kod: Tümünü seç
Sub sumıfs()
For i = 2 To 12
Set Currency_Amount = Worksheets("DATA").Cells(i, 14)
Set Currency_Amount_Tr = Worksheets("DATA").Cells(i, 16)
Set Department_Code = Worksheets("DATA").Cells(i, 29)
Set Ssp_Tr_Invoice_No = Worksheets("DATA").Cells(i, 5)
Set Cost_Tr_Invoice_No = Worksheets("RESULT").Cells(i, 1)
Set Result_Update = Worksheets("DATA").Cells(i, 30)
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").Cells(i, 15) = 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").Cells(i, 16) = 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").Cells(i, 17) = 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").Cells(i, 18) = 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").Cells(i, 19) = 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").Cells(i, 14) = Application.WorksheetFunction.SumIfs(Currency_Amount_Tr, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Department_Code, Cost_Code)
Worksheets("RESULT").Cells(i, 13) = Application.WorksheetFunction.SumIfs(Currency_Amount, Ssp_Tr_Invoice_No, Cost_Tr_Invoice_No, Department_Code, Cost_Code)
Worksheets("RESULT").Cells(i, 12) = 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)
Next i
End Sub