Câu lệnh kiểm tra trong bảng tính có vùng dữ liệu đang chọn : selection or range check

[eagle12]

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

Bạn cần đăng nhập để thấy hình ảnh

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

 

[Binana]

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..."

Bạn thử với code này xem sao?

Sub Selection_copy()
    ActiveSheet.Select
    If Selection.Rows.Count < 2 Then
        MsgBox "No selection: check again...": Exit Sub
    End If
    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

 

[eagle12]

Dear bác @Binana

Em thử ok rồi, cám ơn bác đã hỗ trợ

Bạn thử với code này xem sao?