xóa dữ liệu theo lệnh copy? (1 người xem)

[haichi1997]

cháu mong cô chú giúp đỡ cháu về việc thực hiện copy ở 1 ô A1 thì đồng thời nó sẽ xóa số thứ tự ở ô C1 và tương tự như thế lệnh sẽ thực hiện khi ấn ctrl + C hoặc chuột phải chọn copy.
Cháu có gửi kèm file ạ

 

[qdtoday]

Cái này ta load lên 1 Form, sau đó thao tác nút bấm trên Form thì được.
Bạn có thể chụp 1 góc nhỏ dữ liệu gốc được không? Để mình hiểu rõ hơn nhu cầu thực tế.
Nếu không được thì mình sẽ code theo file excel phía trên.

 

[qdtoday]

[video=youtube;dWKF4y07t_0]https://www.youtube.com/watch?v=dWKF4y07t_0[/video]

Phải vầy ko bạn?

 

[haichi1997]

[video=youtube;dWKF4y07t_0]https://www.youtube.com/watch?v=dWKF4y07t_0[/video]

Phải vầy ko bạn?

Cảm ơn anh nếu thay vì cho nút lên xuống anh giúp e đánh số đc không ạ
Tức là lấy theem1 textbox nữa và bỏ 2 cmd lên xuống đi khi đánh vào textbox số thứ tự ở cột c thì nó sẽ tự động copy ở cộng A và xóa dòng ở cột C ấy ạ.
e cũng đang có 1 vấn đề nho nhỏ thế này mong bác giúp đỡ luôn file của e xảy ra 1 trường hợp nữa đó là nếu khi kiểm copy mà số lượng còn thiếu thì liệu bác có thể tạo 1 checkbox như trong hình khi tích vào đó nó sẽ k xóa ở ô C và đồng thời sau các lần kiếm tiếp theo mà check nó sẽ vẫn k xóa mỗi lần vào số tt đó thì nó sẽ hiện 1 thông báo ở label tạo thêm là đã kiểm còn thiếu khi nào kiểm đủ thì mình sẽ k check nữa và nó sẽ tự động xóa ở ô C đó đi ạ/
Chân thành cảm ơn anh

 

[qdtoday]

Sao mà lúc "anh" lúc "bác" zậy
Để mai mình xem lại cho. Mai mình báo lại...

 

[qdtoday]

[video=youtube;ymou7qBPZ3k]https://www.youtube.com/watch?v=ymou7qBPZ3k[/video]
Version 2

Ghi chú: chữ "thieu" mình giữ lại, không xóa. Thấy để lại cũng hay mà, coi như ghi chú cho sau này kiểm tra lại.
Hay là bạn muốn xóa luôn?

 

[haichi1997]

quá chuẩn rồi anh ạ. Nhưng có 1 chỗ a chưa hiểu đó là e sẽ nhập stt vào chỗ GO chứ không phải nhâp dòng nhé, như trên vd thì e phải đánh thông tin ở ô C7 và C3 để con chứ k phải là đánh 10 và 7 để tìm ạ. Anh cho e xin phai đc không ạ

 

[qdtoday]

uh, tối về nhà mình xem lại.
Mà dữ liệu copy, bạn sẽ dán ra đâu?

 

[haichi1997]

uh, tối về nhà mình xem lại.
Mà dữ liệu copy, bạn sẽ dán ra đâu?

dạ e sẽ copy sang 1 file khác để in mã vạch ạ
Vì đơn hàng sẽ nằm trong 1 file excel khác

 

[qdtoday]

[video=youtube;r9_xrUz2IQM]https://www.youtube.com/watch?v=r9_xrUz2IQM[/video]
Version 3

Lúc chạy thì bảng tính excel sẽ bị khóa, không thao tác tay được. Nên copy sang Word hay cái j khác thì được, chứ copy sang excel luôn thì mình chưa biết sao.

 

[qdtoday]

Mình mới sửa + thêm vài cái cho hoàn thiện.
Xog, gửi bạn.

Cách dùng: đây là file gốc chứa chương trình (đính kèm bên dưới), chúng ta sẽ thao tác trên file này mãi mãi. Bạn copy dữ liệu từ file excel khác qua, chép vào Sheet1. Làm xong thì xóa, chép cái khác qua tiếp... Nghĩa là nó chỉ hoạt động tại Sheet1 của file này.

Project này mình đã khóa Code lại, bạn có thể chạy chương trình bình thường, nhưng sẽ không nhìn thấy được bất kỳ đoạn code nào.
Thân ái.

File _Final là file hoàn chỉnh.

 

[caothutoanhoc]

Mình nghĩ với request của bạn chỉ cần bắt event Crtl+C thôi là đc rồi (ít ai phải chuột+copy lắm). Mình xin chia sẻ 2 đoạn code ngắn để bạn có thể giải quyết đc vấn đề này
1. Code đoạn code này vào Code của Sheet1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.OnKey "^c", "Doing"
   ' Disable Ctrl+C
   ' Application.OnKey "^c", ""
End Sub

2. Insert 1 module và dán đoạn vào đoạn code sau:

Sub Doing()
    Cells(ActiveCell.Row, 3).Value = ""
    Selection.Copy
    Application.OnKey "^c"
End Sub

^^