Em đã Test thử, rất OK. Chỉ có một vấn đề nhỏ là khi em mở Form lên thì lại mất cột Số phụ tùng trong ListBox.
Nhưng khi lọc thì Số phụ tùng lại hiện ra và điều này không làm ảnh hưởng đến việc gán dữ liệu xuống sheet.
Tìm hiểu nãy giờ thì ra là ta không chép cột STT khi chép dữ liệu qua sheet tạm. Em đã thử sửa lại code như sau và thấy tạm ổn:
----------------------------
Sub Aut
pen()
Dim wksTmp As Worksheet, wkb As Workbook, Target As Range
Dim FileName As String, SheetName As String, RangeAddress As String
On Error GoTo ExitSub
Set wkb = ThisWorkbook
sTmpName = "Temporary"
If WksExist(sTmpName) = False Then
With wkb
.Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = sTmpName
End With
End If
Set wksTmp = wkb.Sheets(sTmpName)
Set Target = wksTmp.Range("
B1")
FileName = wkb.Path & "\PriceList.xlsx"
SheetName = "BangGia"
RangeAddress = "A1:G200000"
GetData FileName, SheetName, RangeAddress, Target, True, True
wksTmp.Range("S1:T1").Value = wksTmp.Range("
B1:C1").Value
wksTmp.Visible = xlSheetVeryHidden
MsgBox "Du lieu da cap nhat!"
Exit Sub
ExitSub:
MsgBox "Cap nhat bang gía that bai"
End Sub
---------------------------------------
Rất cảm ơn anh
ndu96081631 đã nhiệt tình giúp đỡ.
