Sửa hàm Copy khi dùng Ctrl (1 người xem)

[doibuonhokem]

Mình muốn nhấn button nó tự bôi đen và copy vùng có dữ liệu cột A,B và bấm giữ ctrl để copy thêm cột F từ hàng thứ 2 đến hàng có dữ liệu cuối cùng. Hàng có dữ liệu cuối cùng mình có biến đếm là A.
Sửa giúp mình với, cám ơn.

 

[huuthang_bd]

Mình muốn nhấn button nó tự bôi đen và copy vùng có dữ liệu cột A,B và bấm giữ ctrl để copy thêm cột F từ hàng thứ 2 đến hàng có dữ liệu cuối cùng. Hàng có dữ liệu cuối cùng mình có biến đếm là A.
Sửa giúp mình với, cám ơn.

Muốn vậy thì bạn dùng ActiveX Button cho đơn giản. Code như sau:

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then CopyR Shift = 2
End Sub
Sub CopyR(ByVal F As Boolean)
Dim A As Long
    A = Cells(&H100000, 1).End(xlUp).Row
    If F Then
        Range("A2:B" & A & ",F2:F" & A).Copy
    Else
        Range("A2:B" & A).Copy
    End If
End Sub