Có thể thiết lập code cho tình huống này không? (1 người xem)

[NH_DK]

Em có 1 ví dụ nhỏ này, em đưa lên ở nhờ anh chị tham khảo và xem có thể thiết lập code cho nó không? Câu hỏi cụ thể trong file rùi?

 

[viehoai]

Em có 1 ví dụ nhỏ này, em đưa lên ở nhờ anh chị tham khảo và xem có thể thiết lập code cho nó không? Câu hỏi cụ thể trong file rùi?

Phải thế này không Ngọc?

 

[NH_DK]

Phải thế này không Ngọc?

Bác làm đúng ý em luôn. Em cứ nghĩ không thể chứ!!? Hi....hi.....

Chúc bác ngày nghỉ cuối tuần thật nhiều niềm vui!

 

[ndu96081631]

Phải thế này không Ngọc?

Lỡ như người ta không nhập mà copy/paste thì sao? Chẳng hạn copy C66 và paste vào C99

 

[NH_DK]

Lỡ như người ta không nhập mà copy/paste thì sao? Chẳng hạn copy C66 và paste vào C99

Vậy trường hợp này có cách nào khắc phục không sư phụ?

 

[ndu96081631]

Vậy trường hợp này có cách nào khắc phục không sư phụ?

Tạm thời thử vầy xem

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo ExitSub
  If Not Intersect(Range("C6:D16"), Target) Is Nothing Then
    Range("E17").Value = Range("E" & Target(1, 1).Row).Value
  End If
ExitSub:
End Sub

 

[sealand]

Chuyện này anh ấy nhắc nhở kẻo sót mà thôi, còn loại trừ nó thì dựa Event Selection_Change sử lý. Nếu Selection có liên quan Range sử lý thì cho:

Application.CutCopyMode = False

Vậy thì sao mà dán

Nhưng lại đẻ ra vấn đề là khi Fill thì sao?