Moi nguoi kiem tra giup cau truc ham vba sau co gi sai? (1 người xem)

[virginia1989]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Cancel = 1
With Sheets("Data")
enR = .[b65536].End(3).Row
.[c4].Resize(1000).ClearContents
If Not Intersect(Target, [c3:c10000]) Is Nothing Then
For Each cls In Sheets("Data").[b4].Resize(enR)
tmp = cls.Find(Target, , , 2, 2, , , 0).Address
.Range(tmp).Copy .[c65536].End(3)(2)
tmp = ""
Next
End If
End With
End Sub

 

[VetMini]

cấu trúc code phải biết bạn muón làm cái gỉ mới biết có sai hay không
cấu trúc câu hỏi thì sai chắc chắn: tiêu đề tiếng Việt không có dấu