Nhờ sửa lỗi code VBA tính sumifs từ 1 file dữ liệu khác (1 người xem)

[tinydragon]

Dear các anh/chị,
Em có viết 1 đoạn code VBA trong file W154_macro để tính dữ liệu từ file Data input như bên dưới.
Tuy nhiên nó chưa tính ra được kết quả. Em nghĩ lỗi ở chỗ em set wb = Workbooks.Open(Filename).
Rất mong được các anh, chị hỗ trợ. Em cảm ơn nhiều ạ!
"Sub sumif_Loop_W154()
Dim Filename As Variant
Dim i As Integer
Dim wb As Workbook
Dim sh As Worksheet
Dim Total As Long
Filename = Application.GetOpenFilename(filefilter:="Excel Files, *.xl*")
If Not IsArray(Filename) Then Exit Sub
Application.ScreenUpdating = False
Set wb = Workbooks.Open(Filename)
Set sh = ThisWorkbook.Worksheets("CBD_Loan")
For i = 5 To 18
sh.Cells(i, 5).Select
Total = WorksheetFunction.SumIfs(wb.Worksheets("Excel").Range("Q:Q"), wb.Worksheets("Excel").Range("J:J"), "C", wb.Worksheets("Excel").Range("B:B"), sh.Cells(i, 1).Value, _
wb.Worksheets("Excel").Range("G:G"), "USD", wb.Worksheets("Excel").Range("H:H"), "<>GLFU", _
wb.Worksheets("Excel").Range("H:H"), "<>GLFV")
ActiveCell.Value = Total

Next
wb.Close
Application.ScreenUpdating = True

End Sub"

 

[minhdang_9]

If Not IsArray(Filename) Then Exit Sub

Lỗi nằm ở đây!

 

[tinydragon]

Lỗi nằm ở đây!

Dear bạn, mình bỏ đoạn code đó ra thì nó báo lỗi ở dòng sh.cells(i,5).select
Tại sao bạn nhỉ?
Cảm ơn bạn!

 

[befaint]

Tại sao

Thêm

sh.select

trước dòng đó.

 

[tinydragon]

Thêm

sh.select

trước dòng đó.

Vẫn báo lỗi bạn ạ!

 

[minhdang_9]

Dear bạn, mình bỏ đoạn code đó ra thì nó báo lỗi ở dòng sh.cells(i,5).select
Tại sao bạn nhỉ?
Cảm ơn bạn!

Lỗi là do bạn mở file Data input mà không active windows W154
Sub sumif_Loop_W154()
Dim Filename As Variant
Dim wb As Workbook
Dim sh As Worksheet
Dim Total As Long
Filename = Application.GetOpenFilename(filefilter:="Excel Files, *.xl*")
' If Not IsArray(Filename) Then Exit Sub
Application.ScreenUpdating = False
Set wb = Workbooks.Open(Filename)
Set sh = ThisWorkbook.Worksheets("CBD_Loan")
Windows("W154_macro.xlsm").Activate
For i = 5 To 18
sh.Select
sh.Cells(i, 5).Select
Total = WorksheetFunction.SumIfs(wb.Worksheets("Excel").Range("Q:Q"), wb.Worksheets("Excel").Range("J:J"), "C", wb.Worksheets("Excel").Range("B:B"), sh.Cells(i, 1).Value, _
wb.Worksheets("Excel").Range("G:G"), "USD", wb.Worksheets("Excel").Range("H:H"), "<>GLFU", _
wb.Worksheets("Excel").Range("H:H"), "<>GLFV")
ActiveCell.Value = Total

Next i
wb.Close
Application.ScreenUpdating = True

End Sub

 

[befaint]

Lỗi là do bạn

 

[minhdang_9]

View attachment 217245

Mình tham gia diễn đàn đã lâu nhưng dạo này mới bắt đầu viết bài nên còn nhiều sơ sót. Thanks bạn Befaint

 

[tinydragon]

Cảm ơn bạn nhiều nhé! Mình sửa được rồi!