Cần giúp về VBA

[vovanthanh2602]

Em có 1 file excel . em muốn ví dụ 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 . và khi em copy sheet 1 sang thành nhiều sheet khác( sheet 2 , sheet 3...... mà vẫn áp dụng tương tự như sheet 1 ạ. em muốn dùng VBA ạ. mong mọi người giúp đỡ . thanks.

 

[phulien1902]

Em có 1 file excel . em muốn ví dụ 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 . và khi em copy sheet 1 sang thành nhiều sheet khác( sheet 2 , sheet 3...... mà vẫn áp dụng tương tự như sheet 1 ạ. em muốn dùng VBA ạ. mong mọi người giúp đỡ . thanks.

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        If Target <> Empty Then
            Target.Offset(, -2).Resize(, 2) = "NOK"
        Else
            Target.Offset(, -2).Resize(, 2) = Empty
        End If: End If
End Sub