Hỏi về Copy sau khi lọc

[thanhvien1802]

Xin hỏi lệnh copy sau khi lọc dữ liệu :
Gia su, sau khi bấm lọc người thứ 3 " 3 : là thứ tự của danh sách "
Lọc xong người nào thì cần copy thông tin của người đó để paste ra bên ngoài chương trình khác.

File mẫu : http://www.mediafire.com/download.php?kza2uw2nn1thttp://www.mediafire.com/download.php?kza2uw2nn1t
MÌnh xin cảm ơn .

 

[Po_Pikachu]

Sory, lúc nãy nhằm do đã mở protect trước nên đã nhầm. Không cần protect làm gì, copy luôn là được! Bạn dùng hai code này sẽ thực hiện được lệnh copy.

Private Sub CommandButton1_Click() Call TCopy End Sub

Sub TCopy() k = Range("C" & Range("C6000").End(xlUp).Row).Value + 1 Range("C" & k & ":K" & k).Select Selection.Copy End Sub

Sory. Thân.

 

[thanhvien1802]

Cảm ơn bạn Po_Pikachu

nhiều.
Bạn hiểu nhầm ý mình 1 xíu rồi.
giả sử : sau khi lọc theo STT : như lọc thứ tự người thứ 3 :
thì mình cần tạo 3 command để copy riêng cho từng thông tin, 1 comand chỉ copy : TEN, 1 command chỉ copy : MKH, một command copy : PHONG.
File mẫu :http://www.mediafire.com/download.php?gmzzuv2yhoe
Mình xin cảm ơn.

 

[Po_Pikachu]

Copy-MKH:

Private Sub CommandButton2_Click() k = Range("C" & Range("C6000").End(xlUp).Row).Value + 2 Range("E" & k).Copy End Sub

Copy-PHONG:

Private Sub CommandButton3_Click() k = Range("C" & Range("C6000").End(xlUp).Row).Value + 2 Range("F" & k).Copy End Sub

Copy-TEN:

Private Sub CommandButton4_Click() k = Range("C" & Range("C6000").End(xlUp).Row).Value + 2 Range("D" & k).Copy End Sub

Thân.

 

[thanhvien1802]

Mình đã sữa lại chạy được rồi. Thanhs

Private Sub CommandButton2_Click()
k = Range("C" & Range("C125").End(xlUp).Row).Value + 1
Range("E" & k + 1).Select
Selection.Copy
End Sub
Private Sub CommandButton3_Click()
k = Range("C" & Range("C125").End(xlUp).Row).Value + 1
Range("F" & k + 1).Select
Selection.Copy
End Sub
Private Sub CommandButton4_Click()
k = Range("C" & Range("C125").End(xlUp).Row).Value + 1
Range("D" & k + 1).Select
Selection.Copy
End Sub