Sao chép dữ liệu lần lượt thông qua MsgBox đến hết hàng của cột "E"

[pham ha 94]

Mình có đính kèm file nhờ các bác giúp đỡ VBA để chạy được lệnh như mong muốn. Do mong muốn hơi khó diễn tả nên xin phép mô tả lại quá trình làm như sau:
Trong file cột E có số lượng hàng là không cố định (ví dụ tạm để 3 hàng, file gốc sẽ nhiều hàng hơn)
Khi người dùng bấm vào Button copy thì nội dung ô E1 sẽ được copy và có thể dán dữ liệu ô E1 vào chrome)
Hộp thoại hiện ra : đã copy nội dung E1 và bạn muốn copy ô tiếp theo.
Nếu chọn Yes thì copy tiếp ô E2 và dữ liệu dán vào chrome sẽ là dữ liệu của ô E2
Nếu chọn No thì dừng lại không copy nữa.
Những ô nào được bấm copy rồi thì ô D hàng ngang sẽ hiện "đã copy" (Nếu có thể tô màu (bất kỳ) ở cột E thì sẽ tuyệt vời hơn)
Nếu copy hết các hàng ở cột E (trong ví dụ là 3 hàng) thì hiển thị MsgBox là đã copy hoàn tất. Người dùng bấm Ok để kết thúc.

 

[pham ha 94]

Có bác nào giúp em vấn đề về MsgBox với ạ.
Thử mãi nhưng câu trả lời của msgbox xong không đọc tiếp dữ liệu để copy tiếp được

 

[truongvu317]

answer = MsgBox("Ban muon copy tiep", _
                        vbYesNo + vbQuestion, _
                        "Da copy o E" & i)
            If answer = vbNo Then
                GoTo Tiep_
            End If

Phần code liên quan msgbox thì sẽ kiểu như này.

 

[pham ha 94]

answer = MsgBox("Ban muon copy tiep", _
                        vbYesNo + vbQuestion, _
                        "Da copy o E" & i)
            If answer = vbNo Then
                GoTo Tiep_
            End If

Phần code liên quan msgbox thì sẽ kiểu như nào

Cảm ơn bạn nhiều, mình đã tìm ra lỗi