Cần giúp về VBA

[vovanthanh2602]

Em có 1 file excel .nội dung trong file là em muốn trong sheet 1 khi cột C có data bất kì hay gọi là khác rỗng thì cột A và B sẽ hiển thị nội dung là NOK . Nhưng khi em bôi đen rồi xóa cùng lúc nhiều dòng cột C thì nó báo lỗi. giúp em với ạ. thanks

 

[snow25]

Em có 1 file excel .nội dung trong file là em muốn trong sheet 1 khi cột C có data bất kì hay gọi là khác rỗng thì cột A và B sẽ hiển thị nội dung là NOK . Nhưng khi em bôi đen rồi xóa cùng lúc nhiều dòng cột C thì nó báo lỗi. giúp em với ạ. thanks
View attachment 246317

Sửa như vậy xem sao.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim T
    If Target.Column = 3 Then
        For Each T In Target
        If T <> Empty Then
            T.Offset(, -2).Resize(, 2) = "NOK"
        Else
            T.Offset(, -2).Resize(, 2) = Empty
        End If
        Next
    End If
End Sub

 

[vovanthanh2602]

cam on

Sửa như vậy xem sao.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim T
    If Target.Column = 3 Then
        For Each T In Target
        If T <> Empty Then
            T.Offset(, -2).Resize(, 2) = "NOK"
        Else
            T.Offset(, -2).Resize(, 2) = Empty
        End If
        Next
    End If
End Sub

cảm ơn sư huynh nhiều ạ