Code Clear Contens theo điều kiện (1 người xem)

[lhthai]

Chào Các Anh
Em có file như sau tại Sheet Change lấy kết quả dò tìm từ sheet Data dán vào cột E
Nay muốn thêm điều kiện nếu cột E có giá trị thì clear contens từ cột E đến cột M(các dòng em tô màu vàng)
Hoặc Các Anh có code nào khác chỉ thêm miễn sau dò tìm giá trị cột A trong sheet Change trùng với cột A trong sheet Data sau đó clear contens từ cột E đến cột M
Các anh xem file đính kèm.

 

[lhthai]

Em đã tìm được code trên diễn đàn rồi.

Sub TestA()
Dim Arr(), i As Long, Rng As Range, Rng1 As Range, Clls As Range
   With Sheet3
      Arr = .Range("A3", .[A65536].End(3)).Resize(, 5).Formula
   End With
   For i = 1 To UBound(Arr)
      Set Rng = Sheet6.[A:A].Find(Arr(i, 1), , , xlWhole)
      If Not Rng Is Nothing Then
         If Arr(i, 5) = Empty Then
            Arr(i, 5) = Rng.Offset(, 3)
         End If
      End If
   Next
   Sheet3.[A3].Resize(i - 1, 5) = Arr
[COLOR=#ff0000]   Set Rng1 = Range("E3:E5000")[/COLOR]
[COLOR=#ff0000]For Each Clls In Rng1[/COLOR]
[COLOR=#ff0000]    If Clls.Value <> Empty Then[/COLOR]
[COLOR=#ff0000]        Clls.Offset(, -1).Resize(, 10).ClearContents[/COLOR]
[COLOR=#ff0000]    End If[/COLOR]
[COLOR=#ff0000]    Next[/COLOR]
End Sub