các đạn code này đoạn này mục đích là lọc giá trị từ sheet Nhap Xuat cho

các thầy cho em hỏi đạn code này với ạ đoạn này mục đích là lọc giá trị từ sheet Nhap Xuat cho vào sheet Hien thi, sau đó thì hiển thị ra phần listbox

Khi chạy nó báo lỗi ở phần rowsouce

thông báo là "could not set the rowsource property. invalid property value"

Sub HIEN_THI()
Dim WS As Worksheet
Dim WSD As Worksheet
Set WS = ThisWorkbook.Sheets("NHAP XUAT")
Set WSD = ThisWorkbook.Sheets("HIEN THI")
WSD.Cells.Clear
WS.AutoFilterMode = False


'' THEM O LIEU
WS.UsedRange.AutoFilter 4, ">=" & Me.TXT_TUNGAY.Value, xlAnd, "<=" & Me.TXT_DENNGAY.Value
If op_NHAP = True Then
WS.UsedRange.AutoFilter 3, "Nhap"
End If
If op_XUAT = True Then
WS.UsedRange.AutoFilter 3, "Xuat"
End If
WSD.UsedRange.Clear
WS.UsedRange.Copy
WSD.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
WS.AutoFilterMode = False


'''''''' hien thi
Dim lst As Double
lst = Excel.WorksheetFunction.CountA(WSD.Range("A:A"))
With Me.LSB_HD
.ColumnCount = 8
.ColumnHeads = True
.ColumnWidths = "0,50,50,50,50,50,50,50"
.RowSource = WSD.Name & "!A2:H" & lst
End With
End Sub

1 bình luận

Thích

Bình luận

Chia sẻ

1 câu trả lời

224 lượt xem

vỗ tay

Nguyễn Duy Khánh 17:03 - Mar 07, 2021

Chào bạn bạn có thể đẩy file lên được không?

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

các đạn code này đoạn này mục đích là lọc giá trị từ sheet Nhap Xuat cho

Câu hỏi liên quan