Hỏi lệnh copy phân vùng theo hộp thoại (1 người xem)

[tueyennhi]

Chào anh chị.

Cho em hỏi, em có file đính kèm như trong bài. Có cách nào tại sheet hiện hành em chỉ cần chạy code nó sẽ hiện thông báo tên sheet cần copy, (giả sử em chọn sheet 1) thì giữ liệu vùng bảng tính từ F3 đến K16 của sheet 1 sẽ copy vào địa chỉ tương ứng tại sheet hiện hành. (Giữ nguyên toàn bộ định dạng, số liệu của vùng copy).

Em cảm ơn!

 

[quanluu]

Chào anh chị.

Cho em hỏi, em có file đính kèm như trong bài. Có cách nào tại sheet hiện hành em chỉ cần chạy code nó sẽ hiện thông báo tên sheet cần copy, (giả sử em chọn sheet 1) thì giữ liệu vùng bảng tính từ F3 đến K16 của sheet 1 sẽ copy vào địa chỉ tương ứng tại sheet hiện hành. (Giữ nguyên toàn bộ định dạng, số liệu của vùng copy).

Em cảm ơn!

Code thế này thui bạn

Sub copy()
    Dim sheetname As String
    sheetname = InputBox("Nhap ten sheet copy")
    Sheets(sheetname).Range("F3:K16").copy Range("F3")
End Sub

 

[tueyennhi]

Cảm ơn bạn nhé ...! Chúc bạn nghỉ lễ vui vẻ

 

[tueyennhi]

Cho mình hỏi thêm ở đây có gì sai

Sub Suppercopy()
Dim sheetname As String
sheetname = InputBox("Nhap ten sheet copy")
Rangename = InputBox("Nhap vung dia chi can copy cho em a")
Sheets(sheetname).Range(Rangename).copy Range = InputBox("Nguoi nhan")
End Sub

 

[quanluu]

Cho mình hỏi thêm ở đây có gì sai

Sub Suppercopy()
Dim sheetname As String
sheetname = InputBox("Nhap ten sheet copy")
Rangename = InputBox("Nhap vung dia chi can copy cho em a")
Sheets(sheetname).Range(Rangename).copy Range = InputBox("Nguoi nhan")
End Sub

ván đề của bạn ở chỗ này
Range = InputBox("Nguoi nhan")
Rangename cũng nên khai báo

 

[tueyennhi]

Ừm, mình tưởng khi xuất hiện thông báo mình chỉ cần điển địa chỉ ô bất kỳ mình muốn nhưng không được. Bạn chỉ giúp mình với.

 

[tueyennhi]

Mình làm được rồi, cảm ơn bạn lần nữa nhé