Nhập dữ liệu mới và xoá dữ liệu cũ (1 người xem)

[gakon_Office]

Gửi GPE!
Em có một vấn đề không làm đc.
Nội dung câu hỏi em ghi trong File đính kèm,mọi người xem nhé.
Mong nhận đc sự giúp đỡ!
Xin cảm ơn!

 

[hoangexcell]

Đáp ứng một phần thôi hen. Dùng validation .
Việc xóa dữ liệu cũ tự xóa đi, ai biểu nhập không theo quy định

 

[Ba Tê]

Gửi GPE!
Em có một vấn đề không làm đc.
Nội dung câu hỏi em ghi trong File đính kèm,mọi người xem nhé.
Mong nhận đc sự giúp đỡ!
Xin cảm ơn!

Dùng Macro sự kiện thử xem:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [D6:D21]) Is Nothing Then
    If Target.Rows.Count = 1 Then
        If Target.Value = 1 Then
            [D6:D25].ClearContents
            Target.Value = 1
        Else
            Target = ""
        End If
    End If
End If
Application.EnableEvents = True
End Sub

 

[Lê Duy Thương]

gửi gpe!
Em có một vấn đề không làm đc.
Nội dung câu hỏi em ghi trong file đính kèm,mọi người xem nhé.
Mong nhận đc sự giúp đỡ!
Xin cảm ơn!

dùng thử code này xem CHƯA THỬ TRÊN 2003

Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = False
If Not Intersect(Target, [D6:D211]) Is Nothing Then
 Target = Target.Value
 ActiveSheet.Range("$D$5:$D$211").RemoveDuplicates Columns:=1
     [D6].Copy
    Range("D6:D211").PasteSpecial (4)
    Application.CutCopyMode = False
       End If
      [D211].End(3).Offset(1, 0).Select
Application.EnableEvents = True
End Sub