Code cho nút Copy !!!

[quangthanhdu]

Mọi người xem và hoàn thiện giúp mình đoạn code cho nút copy trong file đính kèm...chân thành cảm ơn....

 

[Hai Lúa Miền Tây]

Mọi người xem và hoàn thiện giúp mình đoạn code cho nút copy trong file đính kèm...chân thành cảm ơn....

Copy và dán đi đâu vậy bạn? Nếu copy không thì dùng code sau:

Private Sub CommandButton2_Click()
Range("j7:j" & [o1].Value + 6).copy

End Sub

 

[khoavu87]

Mọi người xem và hoàn thiện giúp mình đoạn code cho nút copy trong file đính kèm...chân thành cảm ơn....

Bạn xem đoạn này thế nào:

Private Sub CommandButton1_Click()
If Range("o1").Value = 1 Then
Range("j7").Copy
ElseIf Range("o1").Value = 10 Then
Range("j7:j16").Copy
Else
End If
End Sub

 

[SA_DQ]

SPAM 1 cái

Private Sub CommandButton1_Click()
 [j7].Resize([o1].Value).Copy Destination:=[r65500].End(xlUp).Offset(1)
End Sub