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

Chia sẻ bởi:hands

★★★★★

‹ Macro lấy dữ liệu lặp lại Tách chuỗi dữ liệu của 1 ô... ›

Quảng cáo

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.

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.

www.giaiphapexcel.com/diendan/threads/sao-ch%C3%A9p-d%E1%BB%AF-li%E1%BB%87u-l%E1%BA%A7n-l%C6%B0%E1%BB%A3t-th%C3%B4ng-qua-msgbox-%C4%91%E1%BA%BFn-h%E1%BA%BFt-h%C3%A0ng-c%E1%BB%A7a-c%E1%BB%99t-e.165092/