Cho hỏi về mã code này

[tuan206791]

Mình có một số code khi để nguyên ở file gốc thì chạy ok, Nhưng khi mở 1 file excel mới và paste code vào thì chạy không được và báo lỗi
Vidu code này


Sub XoaDM()
Dim Cl As Range, Cl1 As Range
Set Cl1 = Sheet1.[a1]
Sheet1.Columns(1).Clear
For Each Cl In Range(Sheet2.[a1], Sheet2.[a65536].End(3))
If InStr(1, ".MP3;.WMA;.WAV;.JPG;.LNK;.DB;.INI", UCase(Right(Cl, 4))) > 0 And Trim(Cl) <> "" Then
Cl1.Value = Cl.Value
Set Cl1 = Cl1.Offset(1)
End If
Next
End Sub
Sub xoaKQ()
Sheet1.Columns(1).Clear
End Sub

 

[sealand]

Sub XoaDM()
Dim Cl As Range, Cl1 As Range
Set Cl1 = Sheet1.[a1]
Sheet1.Columns(1).Clear
For Each Cl In Range(Sheet2.[a1], Sheet2.[a65536].End(3))
If InStr(1, ".MP3;.WMA;.WAV;.JPG;.LNK;.DB;.INI", UCase(Right(Cl, 4))) > 0 And Trim(Cl) <> "" Then
Cl1.Value = Cl.Value
Set Cl1 = Cl1.Offset(1)
End If
Next
End Sub
Sub xoaKQ()
Sheet1.Columns(1).Clear
End Sub


Bạn phải lưu ý: Sheet màu đỏ là sheet đích, Sheet màu xanh là sheet nguồn. Khi bạn chép vào 1 file mới bạn phải để ý điều chỉnh tên sheet cho phù hợp
Tên này là CodeName chứ không phải là sheetName, tên này có thể hoàn toàn khác tên ở ngoài sheet.
Ban phải vào Edit Code rồi tham khảo CodeName (Phần ngoài ngoăc) và sheetName (Phần trong ngoặc).
Bạn xem trong hình (Không hiểu sao hôm nay không nhúng từ FotoBooket

 

[tuan206791]

Cám ơn anh đã nhiệt tình giúp đỡ. Em đang muốn tìm hiểu về ngôn ngữ lập trình VBA. Nhưng chắc là không bao giờ biết được nhiều như anh. Thấy hay thì muốn tìm hiểu vậy thôi