Hỏi về lọc du liệu vba (1 người xem)

[tuandat106]

mình có file excel và có đoạn code như sau

Option Explicit

Private Sub worksheets_change(ByVal target As Range)
If Not Intersect(target, Range("a9:a15")) Is Nothing Then
Dim vung As Range
Set vung = Sheet1.Range("dulieu1").Find(target.Value, xlFormulas, xlWhole)
If Not vung Is Nothing Then
target.Offset(, 1).Resize(, 2).Value = vung.Offset(, 1).Resize(, 2).Value
target.Offset(, 1).Resize(, 3).Value = vung.Offset(, 1).Resize(, 3).Value
target.Offset(, 1).Resize(, 4).Value = vung.Offset(, 1).Resize(, 4).Value
End If

End Sub

không biết code sai chỗ nào mà khi chọn giá trị tại vùng a9:a15 sheet hoadon không hoạt động. nhờ GPE chỉ giúp. thanks

 

[SA_DQ]

Bạn đối chiếu với macro của bạn xem sao:

Option Explicit
 Private Sub worksheet_change(ByVal Target As Range)  '*'
1 If Not Intersect(Target, Range("a9:a15")) Is Nothing Then
    Dim Vung As Range
3    Set Vung = Sheet1.Range("dulieu1").Find(Target.Value, , xlFormulas, xlWhole)
    If Not Vung Is Nothing Then
5        Target.Offset(, 1).Resize(, 3).Value = Vung.Offset(, 1).Resize(, 3).Value
    Else
        MsgBox "Nothing"
    End If
 End If
End Sub

Hãy viết ra những gì bạn fát hiện là sai biệt hay gây sai trong macro.

Thân ái!