tuanlpa91
Thành viên mới
- Tham gia
- 11/7/20
- Bài viết
- 8
- Được thích
- 0
Em đang làm quản lý kho tới bước hàm if gắn công thức vào không được nếu để dấu cách thì không báo lỗi code của em, ai giúp em với..báo lỗi ngay dòng đó
Dim ws As Worksheet
Dim lastRow As Double
Set ws = ThisWorkbook.Sheets("Kho")
ws.Cells.Clear
ThisWorkbook.Sheets("SP").Range("B:B").Copy ws.Range("A1")
lastRow = Excel.WorksheetFunction.CountA(ws.Range("A:A"))
ws.Range("B1") = "Tong Mua"
ws.Range("C1") = "Tong Ban"
ws.Range("D1") = "Con Trong kho"
ws.Range("E1") = "Tong Kho"
If lastRow > 1 Then
ws.Range("B2") = "=SUMIFS(Mua_Ban!D
;Mua_Ban!B:B;Kho!A2;Mua_Ban!C:C;""Mua"")"
ws.Range("C2") = "=SUMIFS(Mua_Ban!D;Mua_Ban!B:B;Kho!A2;Mua_Ban!C:C;""Ban"")"
ws.Range("D2") = "=B2-C2"
ws.Range("E2") = "=D2*VLOOKUP(A2;SP!B;3;0)"
If lastRow > 2 Then
ws.Range("B2:E" & lastRow).FillDown
End If
ws.Calculate
End If
ws.UsedRange.Copy
ws.UsedRange.PasteSpecial xlPasteValues
Dim ws As Worksheet
Dim lastRow As Double
Set ws = ThisWorkbook.Sheets("Kho")
ws.Cells.Clear
ThisWorkbook.Sheets("SP").Range("B:B").Copy ws.Range("A1")
lastRow = Excel.WorksheetFunction.CountA(ws.Range("A:A"))
ws.Range("B1") = "Tong Mua"
ws.Range("C1") = "Tong Ban"
ws.Range("D1") = "Con Trong kho"
ws.Range("E1") = "Tong Kho"
If lastRow > 1 Then
ws.Range("B2") = "=SUMIFS(Mua_Ban!D
;Mua_Ban!B:B;Kho!A2;Mua_Ban!C:C;""Mua"")"ws.Range("C2") = "=SUMIFS(Mua_Ban!D
;Mua_Ban!B:B;Kho!A2;Mua_Ban!C:C;""Ban"")"ws.Range("D2") = "=B2-C2"
ws.Range("E2") = "=D2*VLOOKUP(A2;SP!B
;3;0)"If lastRow > 2 Then
ws.Range("B2:E" & lastRow).FillDown
End If
ws.Calculate
End If
ws.UsedRange.Copy
ws.UsedRange.PasteSpecial xlPasteValues
