SumIF across sheets vba

[Lauren123]

I have this code, I dont know how to debug it. It always show Invalid procedure call or argument.

Sub Sumif()
Wk = ThisWorkbook.Name
Call Lastrowssub2
Workbooks(Wk).Worksheets("U-Main").Range("G11") = Application.WorksheetFunction.Sumif(Sheets("U-Detail").Range("J11:J" & LastRows), Sheets("U-Detail").Range("Z11:Z" & LastRows), Sheets("Draft").Cells("C2").Value)


End Sub



If someone can help I would be really grateful!

 

[Fluff]

Could you please post the code for your Lastrowssub2?

 

[Lauren123]

Yes sure! Here it is!

Sub Lastrowssub2()


Wk_Name = ThisWorkbook.Name


LastRows = Workbooks(Wk_Name).Worksheets("U-Detail").Cells(Rows.Count, "C").End(xlUp).Row


End Sub

 

[Fluff]

Just noticed it's the formula that's wrong, try

Sub Sumif()
   With ThisWorkbook
      .Worksheets("U-Main").Range("G11").Value = Application.Worksheetfunction.Sumif(.Sheets("U-Detail").Range("Z:Z"), .Sheets("Draft").Range("C2").Value, .Sheets("U-Detail").Range("J:J"))
   End With
End Sub

If you are trying to sum col J, then swap the J & Z ranges round

 

[Lauren123]

Thank you so much!

 

[Fluff]

Glad to help & thanks for the feedback