Xin chào mọi người
Mình đang có macro thực hiện thao tác:
1- kéo chọn 1 vùng dữ liệu vd chọn F5:F9
2- bấm macro thì sẽ copy selection "F5:F9" rồi chuyển sang 1 bảng khác copy vào
Nhờ anh chị hỗ trợ chèn thêm dòng lênh kiểm tra, nếu trong trường hợp quên không làm bước (1) --->chạy vba tại (2) thì sẽ hiện thông báo " No selection: check again..."
Cám ơn a/c nhiều
Mình đang có macro thực hiện thao tác:
1- kéo chọn 1 vùng dữ liệu vd chọn F5:F9
2- bấm macro thì sẽ copy selection "F5:F9" rồi chuyển sang 1 bảng khác copy vào
Nhờ anh chị hỗ trợ chèn thêm dòng lênh kiểm tra, nếu trong trường hợp quên không làm bước (1) --->chạy vba tại (2) thì sẽ hiện thông báo " No selection: check again..."
Cám ơn a/c nhiều
Bạn cần đăng nhập để thấy hình ảnh
Mã:
Sub Selection_copy()
ActiveSheet.Select
Selection.Copy
Sheets("Quick-note2").Select
Sheets("Quick-note2").Range("C2").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
Range("C4") = "Top 5 Filter"
Range("R2").Select
End Sub
Sửa lần cuối: