xem giúp dùm em code này bị sai chỗ nào ah (em lọc dữ liệu từ sheet

Thầy ơi, Thầy xem giúp dùm em code này bị sai chỗ nào ah (em lọc dữ liệu từ sheet 7 theo điều kiện và copy sang cột a2:b của sheet 2)

Sub IMPORT()

Dim WS2 As Worksheet 'khai bao bien cua worksheet

Dim WS7 As Worksheet 'khai bao bien cua worksheet

Dim lr7 As Long 'khai bao bien tim dong cuoi

Set WS2 = Sheet2 'Gan ws2 cho sheet2

Set WS7 = Sheet7 'Gan ws7 cho sheet7

lr7 = WS7.Range("A" & Rows.Count).End(xlUp).Row 'cau lenh tim dong cuoi lrl

ws7.columns("a:q"&lr7).advancedfilter action:=xlfiletercopy,criteriarange:=range("ws2!g2:g5"),copytorange:=range("w2!a2:b),unique:=false

1 câu trả lời

343 lượt xem

vỗ tay

Nguyễn Thị Thanh Thuy 16:07 - Jul 16, 2021

Chào bạn sheets của bạn để tiếng việt không dấu và thử lại giúp gitiho nhé.

vỗ tay