Tự động lọc điều kiện, insert dòng và copy dữ liệu từ sheet này sang sheet khác?

[vuacudem]

Chào các bạn!

Mình có file đính kèm bên dưới, mình muốn hỏi là có cách nào tự động lọc theo điều kiện, copy và insert không?
Giả sử thêm 1 người stt: 6, họ & tên: nguyễn văn F, tuổi 19, giới tính: nam. thì tự động copy dòng đó, nếu là giới tính nam thì copy và insert sang sheet nam như ảnh kết quả mong muốn mình đính kèm. Nếu tuổi 18 hoặc 19 thì cũng tương tự như sheet nam, còn nếu là Nữ hoặc tuổi không phải 18 hay 19 thì k copy vào 2 sheet kia.

 

[khuongvietphong]

Bạn nhập tiếp kiểm tra xem ok chưa nha

 

[vuacudem]

Bạn nhập tiếp kiểm tra xem ok chưa nha

- bạn ơi mình nhập nguyễn văn F, 19t mà chưa nhập nam hay nữ (chưa rõ giới tính) thì bên sheet tuổi k hiện lên bạn ạ.

- mình nhập nguyễn văn F, 19t, nam. thì sẽ hiện lên cả 2 sheet nam, tuoi, mình thử chuyển nam thành nữ (phòng khi bị gõ nhập giới tính) thì ở sheet tuoi lại tu dong them 1 người nữa là nguyễn văn F, 19t, nữ, như thế dòng cũ k mất đi bạn ạ lại vênh thêm 1 người.

- lúc copy sang số 6 tự động thành số tt ở biểu đó được không bạn, như là đang có danh sách 3 bạn nam rồi, người tiếp theo sẽ là số 4, tiếp là 5...

thank bạn

 

[khuongvietphong]

- bạn ơi mình nhập nguyễn văn F, 19t mà chưa nhập nam hay nữ (chưa rõ giới tính) thì bên sheet tuổi k hiện lên bạn ạ.

- mình nhập nguyễn văn F, 19t, nam. thì sẽ hiện lên cả 2 sheet nam, tuoi, mình thử chuyển nam thành nữ (phòng khi bị gõ nhập giới tính) thì ở sheet tuoi lại tu dong them 1 người nữa là nguyễn văn F, 19t, nữ, như thế dòng cũ k mất đi bạn ạ lại vênh thêm 1 người.

- lúc copy sang số 6 tự động thành số tt ở biểu đó được không bạn, như là đang có danh sách 3 bạn nam rồi, người tiếp theo sẽ là số 4, tiếp là 5...

thank bạn

Lần này thì ok rồi nha, bạn kiểm tra lại giúp mình xem ok chưa

 

[vuacudem]

Lần này thì ok rồi nha, bạn kiểm tra lại giúp mình xem ok chưa

hay quá mình phải tìm tài liệu về VBA học thôi, nhiều cái hay quá. Cảm ơn bạn nhiều nha

 

[vuacudem]

khuongvietphong bạn ơi xem giúp hộ mình code với, mình có macro mà sử dụng code của bạn, ấn ctrl+Q để chọn sheet xuất báo cáo, mình ấn Cancel thì bị báo lỗi: Run time error '9'....

mình áp dụng code ở file danh sach bên trên để tự động copy họ và tên đầu vụ + ĐL ở cột F và cột G sau đó insert sang sheet W,M nhưng k thành công bạn giúp mình với nhé. (chỉ cần copy 2 cột đó và insert vào cột b,c vào 2 sheet W,M). sheet mtmbn có thể copy những họ tên đầu vụ và điều luật thuộc 2 cột 194, 119 mình chia bảng sẵn k bạn.

bạn xem giúp mình với nha, cảm ơn bạn.

 

[khuongvietphong]

khuongvietphong bạn ơi xem giúp hộ mình code với, mình có macro mà sử dụng code của bạn, ấn ctrl+Q để chọn sheet xuất báo cáo, mình ấn Cancel thì bị báo lỗi: Run time error '9'....



bạn xem giúp mình với nha, cảm ơn bạn.

Bạn sửa lại như vầy:

Sub trich_xuat_bc()
Dim ten As Stringten = InputBox("Chon Sheet mà ban muon báo cáo")
If ten <> "" Then  
  Sheets(ten).Select  
  Sheets(ten).Copy 
  Cells.Select  
  Selection.Copy 
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  :=False, Transpose:=False
End If
End Sub

 

[vuacudem]

Bạn sửa lại như vầy:

Sub trich_xuat_bc()
Dim ten As Stringten = InputBox("Chon Sheet mà ban muon báo cáo")
If ten <> "" Then  
  Sheets(ten).Select  
  Sheets(ten).Copy 
  Cells.Select  
  Selection.Copy 
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  :=False, Transpose:=False
End If
End Sub

ban oi no bao loi nay.


mình áp dụng code ở file danh sach bên trên để tự động copy họ và tên đầu vụ + ĐL ở cột F và cột G sau đó insert sang sheet W,M nhưng k thành công bạn giúp mình với nhé. (chỉ cần copy 2 cột đó và insert vào cột b,c vào 2 sheet W,M). sheet mtmbn có thể copy những họ tên đầu vụ và điều luật thuộc 2 cột 194, 119 mình chia bảng sẵn k bạn.

 

[khuongvietphong]

ban oi no bao loi nay.
mình áp dụng code ở file danh sach bên trên để tự động copy họ và tên đầu vụ + ĐL ở cột F và cột G sau đó insert sang sheet W,M nhưng k thành công bạn giúp mình với nhé. (chỉ cần copy 2 cột đó và insert vào cột b,c vào 2 sheet W,M). sheet mtmbn có thể copy những họ tên đầu vụ và điều luật thuộc 2 cột 194, 119 mình chia bảng sẵn k bạn.

Xin lỗi bạn nha bạn sửa lại thành:

[COLOR=#0000BB][FONT=monospace]Sub trich_xuat_bc[/FONT][/COLOR][COLOR=#007700][FONT=monospace]()
[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Dim ten [/FONT][/COLOR][COLOR=#007700][FONT=monospace]As [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]String
ten [/FONT][/COLOR][COLOR=#007700][FONT=monospace]= [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]InputBox[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#DD0000][FONT=monospace]"Chon Sheet mà ban muon báo cáo"[/FONT][/COLOR][COLOR=#007700][FONT=monospace])
If [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]ten [/FONT][/COLOR][COLOR=#007700][FONT=monospace]<> [/FONT][/COLOR][COLOR=#DD0000][FONT=monospace]"" [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Then  
  Sheets[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]ten[/FONT][/COLOR][COLOR=#007700][FONT=monospace]).[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Select  
  Sheets[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]ten[/FONT][/COLOR][COLOR=#007700][FONT=monospace]).[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Copy 
  Cells[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Select  
  Selection[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Copy 
  Selection[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]PasteSpecial Paste[/FONT][/COLOR][COLOR=#007700][FONT=monospace]:=[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]xlPasteValues[/FONT][/COLOR][COLOR=#007700][FONT=monospace], [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Operation[/FONT][/COLOR][COLOR=#007700][FONT=monospace]:=[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]xlNone[/FONT][/COLOR][COLOR=#007700][FONT=monospace], [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]SkipBlanks _  [/FONT][/COLOR][COLOR=#007700][FONT=monospace]:=[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]False[/FONT][/COLOR][COLOR=#007700][FONT=monospace], [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Transpose[/FONT][/COLOR][COLOR=#007700][FONT=monospace]:=[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]False
End [/FONT][/COLOR][COLOR=#007700][FONT=monospace]If
[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]End Sub  
[/FONT][/COLOR]

mình áp dụng code ở file danh sach bên trên để tự động copy họ và tên đầu vụ + ĐL ở cột F và cột G sau đó insert sang sheet W,M nhưng k thành công bạn giúp mình với nhé. (chỉ cần copy 2 cột đó và insert vào cột b,c vào 2 sheet W,M). sheet mtmbn có thể copy những họ tên đầu vụ và điều luật thuộc 2 cột 194, 119 mình chia bảng sẵn k bạn.

Tức là bạn muốn Copy toàn bộ dữ liệu ở cột F và G của Sheet VKS rồi dán sang cột B và C của 2 Sheet M, W hả. Nhưng mà dán dòng thứ mấy của cột B và C đây

 

[vuacudem]

Xin lỗi bạn nha bạn sửa lại thành:

[COLOR=#0000BB][FONT=monospace]Sub trich_xuat_bc[/FONT][/COLOR][COLOR=#007700][FONT=monospace]()
[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Dim ten [/FONT][/COLOR][COLOR=#007700][FONT=monospace]As [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]String
ten [/FONT][/COLOR][COLOR=#007700][FONT=monospace]= [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]InputBox[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#DD0000][FONT=monospace]"Chon Sheet mà ban muon báo cáo"[/FONT][/COLOR][COLOR=#007700][FONT=monospace])
If [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]ten [/FONT][/COLOR][COLOR=#007700][FONT=monospace]<> [/FONT][/COLOR][COLOR=#DD0000][FONT=monospace]"" [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Then  
  Sheets[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]ten[/FONT][/COLOR][COLOR=#007700][FONT=monospace]).[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Select  
  Sheets[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]ten[/FONT][/COLOR][COLOR=#007700][FONT=monospace]).[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Copy 
  Cells[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Select  
  Selection[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Copy 
  Selection[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]PasteSpecial Paste[/FONT][/COLOR][COLOR=#007700][FONT=monospace]:=[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]xlPasteValues[/FONT][/COLOR][COLOR=#007700][FONT=monospace], [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Operation[/FONT][/COLOR][COLOR=#007700][FONT=monospace]:=[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]xlNone[/FONT][/COLOR][COLOR=#007700][FONT=monospace], [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]SkipBlanks _  [/FONT][/COLOR][COLOR=#007700][FONT=monospace]:=[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]False[/FONT][/COLOR][COLOR=#007700][FONT=monospace], [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Transpose[/FONT][/COLOR][COLOR=#007700][FONT=monospace]:=[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]False
End [/FONT][/COLOR][COLOR=#007700][FONT=monospace]If
[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]End Sub  
[/FONT][/COLOR]

Báo lỗi mới bạn ơi

 

[khuongvietphong]

Báo lỗi mới bạn ơi

View attachment 154351

Hiểu rồi, tất cả chỉ tại cái PHP chết tiệt nên code cứ bị sai cú pháp tùm la tùm lum cả ,mình gửi File luôn, bạn kiểm tra lại nhé

Còn ý thứ 2 nữa, bạn cần giải thích rõ hơn thì mình mới có thể giúp bạn được

 

[giaiphap]

Báo lỗi mới bạn ơi

View attachment 154351

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

[vuacudem]

Báo lỗi mới bạn ơi

View attachment 154351

mình sửa được hết lỗi rồi. bạn xem giúp mình phần copy insert với

 

[vuacudem]

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

thank bạn mình sửa được lỗi đó rồi, còn phần copy và insert tự động khó quá, k bắt chiếc sửa đc, vì mình k hiểu j về VBA ^^ cứ mò mò

 

[giaiphap]

thank bạn mình sửa được lỗi đó rồi, còn phần copy và insert tự động khó quá, k bắt chiếc sửa đc, vì mình k hiểu j về VBA ^^ cứ mò mò

Thật ra bạn muốn giúp gì thì nêu cụ thể trên file đó luôn, nếu cần thiết cho VD mẫu và điều mình cần đạt được trong file luôn, chứ tôi đọc yêu cầu của bạn cũng chưa rõ nửa.
Còn code ở trên là của khuongvietphong tôi cũng không có sửa gì? nhưng nhìn lại thấy hình như bạn ấy quay macro nên nó hơi dài.

 

[vuacudem]

Hiểu rồi, tất cả chỉ tại cái PHP chết tiệt nên code cứ bị sai cú pháp tùm la tùm lum cả ,mình gửi File luôn, bạn kiểm tra lại nhé

Còn ý thứ 2 nữa, bạn cần giải thích rõ hơn thì mình mới có thể giúp bạn được

mình định nhờ bạn giúp ý thứ 2 nhưng thấy nó nhiều điều kiện quá, bị can thỉnh thoảng lại thêm vài người thành ra mình sợ khó.
Cảm ơn bạn nhiều nhé!

 

[vuacudem]

Thật ra bạn muốn giúp gì thì nêu cụ thể trên file đó luôn, nếu cần thiết cho VD mẫu và điều mình cần đạt được trong file luôn, chứ tôi đọc yêu cầu của bạn cũng chưa rõ nửa.
Còn code ở trên là của khuongvietphong tôi cũng không có sửa gì? nhưng nhìn lại thấy hình như bạn ấy quay macro nên nó hơi dài.

uh mình mò mò = cách quay macro để nhìn code xem sửa đc không, mình không sửa đc vì k hiểu j về VBA nên mới hỏi vậy, mọi người thông cảm nhé