Nhờ sửa lỗi file Nhập Xuất Tồn

[iloveit]

Chào anh, chị và các bạn!

Tôi có sưu tầm được 1 file Nhập Xuất Tồn trên mạng, nhưng không hiểu sao trong sheet TONG HOP, sub baocao không chạy đúng. Tôi có hỏi người khác sử dụng file này họ bảo chạy bình thường.

Tôi có gửi file đính kèm nhờ anh, chị và các bạn khắc phục giúp.
Chân thành cảm ơn!

 

[hungnguyen1090]

file của mình mới bị lỗi như thế này , bạn nào biết giúp mình với . Cảm ơn nhiều !

 

[iloveit]

file của mình mới bị lỗi như thế này , bạn nào biết giúp mình với . Cảm ơn nhiều !

bạn nên tạo chủ để mới sẽ tốt hơn nhé!

 

[SA_DQ]

Tôi có . . .1 file Nhập Xuất Tồn trên mạng, nhưng không hiểu sao trong sheet TONG HOP, sub baocao không chạy đúng. Tôi có hỏi người khác sử dụng file này họ bảo chạy bình thường.

Mình kiểm tra các mã hàng nhập xuất hiện của bạn vẫn đúng

 

[iloveit]

Mình kiểm tra các mã hàng nhập xuất hiện của bạn vẫn đúng

Dạ, chú check giúp con trong Sheet TONG HOP, các sản phẩm nhập xuất từ ngày (ô I1) đến ngày (ô M1) có đúng không chú, con bấm vô là nó không hiện số liệu nữa.

 

[truongvu317]

Sub baocao()
'=IF(B4="","",SUMIFS(SoLuong_Xuat,MH_Xuat,B4,Ngay_Xuat,">="&$I$1,Ngay_Xuat,"<="&$M$1))
'=IF(B4="","",SUMIFS(HaoHut,MH_Xuat,B4,Ngay_Xuat,">="&$I$1,Ngay_Xuat,"<="&$M$1))

'=IF(B4="","",SUMIFS(T_GiaNhap,MH_Nhap,B4,Ngay_Nhap,">="&$I$1,Ngay_Nhap,"<="&$M$1))
'=SUMIFS(DoanhThu,MH_Xuat,B4,Ngay_Xuat,">="&$I$1,Ngay_Xuat,"<="&$M$1)
'=IF(B25="","",G25+H25-I25-J25)



Dim strNgayMin  As String, strNgayMax As String


strNgayMin = ">=" & VBA.CLng(Sheet3.Range("i1"))
strNgayMax = "<=" & VBA.CLng(Range("M1"))


Dim i, j As Long
j = WorksheetFunction.CountA(Range("MHTH")) + 2
For i = 4 To j
Sheet3.Range("H" & i) = WorksheetFunction.SumIfs(Range("soluong_nhap"), Range("mh_nhap"), Sheet3.Range("B" & i) _
, Range("ngay_nhap"), strNgayMin, Range("ngay_nhap"), strNgayMax)

Next i


End Sub

Mình sửa cột H, cũng chưa test kỹ, thấy nó ra kết quả khác 0 nên nghĩ là đúng.