Các Pro giúp đỡ mình với không biết tại sao mà có lúc mình copy rồi paste thì sự kiện Worksheet_Change lại không bị tác động, đôi lúc lại tác động hjc ko biết bị gì nữa
Đây là code của mình:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
If Target.Column = 13 And Target.Row > 6 Then
If Target.Value <> 0 Then
If Sheet12.Range("$R$42") <> 0 Then
Target.Offset(0, 6) = Sheet12.Range("$R$42")
Else
Target.Offset(0, 6) = Date
End If
Else
Target.Offset(0, 6) = ""
End If
End If
End Sub
Đây là code của mình:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
If Target.Column = 13 And Target.Row > 6 Then
If Target.Value <> 0 Then
If Sheet12.Range("$R$42") <> 0 Then
Target.Offset(0, 6) = Sheet12.Range("$R$42")
Else
Target.Offset(0, 6) = Date
End If
Else
Target.Offset(0, 6) = ""
End If
End If
End Sub
Lần chỉnh sửa cuối: