XÓA DỮ LIỆU VÙNG CHỈ ĐỊNH KHI GÕ VÀO (1 người xem)

[hoangyen69]

Cho mình xin một đoạn code xóa dữ liệu vùng khi người dùng gõ vào vùng đó, mình gửi file đính kèm, bạn nào biết chỉ giúp

Cảm ơn !

 

[phulien1902]

Cho mình xin một đoạn code xóa dữ liệu vùng khi người dùng gõ vào vùng đó, mình gửi file đính kèm, bạn nào biết chỉ giúp

Cảm ơn !

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Not Intersect(Target, Range("A2:B6500")) Or Not Intersect(Target, Range("F2:G6500")) Is Nothing Then
        Range("A2:B6500,F2:G6500").ClearContents
    End If
End Sub

 

[hoangyen69]

Bạn cho mình hỏi thêm, trường hợp đối với dòng thì mình làm thế nào, mình gửi file cho bạn xem giúp, cảm ơn bạn

 

[phulien1902]

Bạn cho mình hỏi thêm, trường hợp đối với dòng thì mình làm thế nào, mình gửi file cho bạn xem giúp, cảm ơn bạn

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Count > 1 Then Exit Sub
        If .Row >= 1 And .Row <= 2 Then
            Application.EnableEvents = False
          Rows("1:2").ClearContents
            Application.EnableEvents = True
        End If
         If .Row >= 5 And .Row <= 6 Then
            Application.EnableEvents = False
          Rows("5:6").ClearContents
            Application.EnableEvents = True
        End If
     End With
End Sub
p]

 

[hoangyen69]

Cảm ơn bạn !