Lọc dữ liệu sau đó xóa luôn dữ liệu trong CSDL (1 người xem)

[ninhtindcd]

Sau khi lọc được dữ liệu trong sheet Data thì dữ liệu theo điều kiện lọc "ở đây mình lọc theo điều kiện là DG1". mình lọc được rồi nhưng mình muốn sau khi lọc xong thì dữ liệu trong sheet Data giống với ĐK lọc cũng bị xóa luôn. anh em giúp mình với nhé

 

[phucbugis]

Sau khi lọc ...

chào bạn,
- nếu hướng dẫn mà ko xem kỹ bố cục bên trong, khi xóa nhầm số liệu thì mệt
- bạn hãy gửi file đính kèm lên GPE để mọi người xem thử ?

 

[ninhtindcd]

Em quên gửi file.

chào bạn,
- nếu hướng dẫn mà ko xem kỹ bố cục bên trong, khi xóa nhầm số liệu thì mệt
- bạn hãy gửi file đính kèm lên GPE để mọi người xem thử ?

Bác nào cao thủ giúp em với. em hỏi nhiều người rồi mà vẫn....chán và hơi nản

 

[phucbugis]

Bác nào ...

bạn tải file đính kèm, cho chạy Macro.
tại sheet CSDL, điền mã cần lọc vào ô E3, click Button1 để xem kết quả.

Link: https://www.mediafire.com/?bwjiv51is89l3sa

 

[ninhtindcd]

Cảm ơn Bác Phucbugic nhiều nhé. Thật là trên đời có rất nhiều người tài giỏi và có cả tấm lòng nữa. Cảm ơn bác nhiều nhé. cả tuần nay mất ăn mất ngủ vợ con ko quan tâm chỉ nghĩ cho ra mà ko đc, nay bác khai sáng em rất cảm ơn bác nhiều nhé

 

[ninhtindcd]

Các bác ơi? lại có vấn đề rồi. ở đây bác chỉ cho em copy 2 cột B và C trong sheet CSDL thôi. Nếu số lượng cột nhiều hơn (chẳng hạn dữ liệu có ở 3 cột B,C,D) thì không lọc và copy được cột D sang Sheet KETQUA . Mong bác chỉ giáo giúp em với

 

[phucbugis]

Các bác ơi? lại có vấn đề rồi. ở đây bác chỉ cho em copy 2 cột B và C trong sheet CSDL thôi. Nếu số lượng cột nhiều hơn (chẳng hạn dữ liệu có ở 3 cột B,C,D) thì không lọc và copy được cột D sang Sheet KETQUA . Mong bác chỉ giáo giúp em với

bạn tải tiếp file vidu (loc va xoa) 1_1 về xem tiếp,

(nhớ tham khảo các link mình đã share để biết code đó hoạt động ntn luôn nhé !)

Link: https://www.mediafire.com/?pat8y985nxreier

 

[doremoi]

Anh Phucbugic cho em hoi trong file vd locvaxoa của Anh ,khi tìm ra giá trị thì xóa toàn bộ dòng hàng ngang của giá trị đó .Nhưng em muốn khi xóa chỉ giơi hạn xóa đến 1 cột nào đó (như trong file VD của anh em muốn xóa từ cột B đến cột D ngoài cột D thì không xóa).Anh vui lòng chỉ giúp !!

 

[doremoi]

bạn tải tiếp file<strong> vidu (loc va xoa) 1_1 </strong>về xem tiếp,<br>
<br>
(nhớ tham khảo các link mình đã share để biết code đó hoạt động ntn luôn nhé !)

<br>Anh Phucbugic cho em hoi trong file vd locvaxoa của Anh ,khi tìm ra giá trị thì xóa toàn bộ dòng hàng ngang của giá trị đó .Nhưng em muốn khi xóa chỉ giơi hạn xóa đến 1 cột nào đó (như trong file VD của anh em muốn xóa từ cột B đến cột D ngoài cột D thì không xóa).Anh vui lòng chỉ giúp !!<br><br>
<br>

 

[phucbugis]

Anh Phucbugic cho em hoi trong file vd locvaxoa của Anh ,khi tìm ra giá trị thì xóa toàn bộ dòng hàng ngang của giá trị đó .Nhưng em muốn khi xóa chỉ giơi hạn xóa đến 1 cột nào đó (như trong file VD của anh em muốn xóa từ cột B đến cột D ngoài cột D thì không xóa).Anh vui lòng chỉ giúp !!

tại Sub LocvaXoa()
bạn tìm đến dòng

Cll.EntireRow.Delete 'Xoa dong` tim duoc.

thay thế bằng

Cll.Resize(, 3).Delete Shift:=xlUp

trong file đó số liệu từ cột B->D.
Cll là 1 Range sau khi dùng phương thức Find tìm được Mã tại cột B.
Cll.Resize(, 1) <=> cột B
Cll.Resize(, 2) <=> từ cột B --> cột C
Cll.Resize(, 3) <=> từ cột B --> cột D
...
thuộc tính Resize có dạng: .Resize(RowSize, ColumnSize)

 

[doremoi]

tại Sub LocvaXoa()
bạn tìm đến dòng

Cll.EntireRow.Delete 'Xoa dong` tim duoc.

thay thế bằng

Cll.Resize(, 3).Delete Shift:=xlUp

Anh Phucbugic xem giúp em
http://www.fshare.vn/file/TK81JND8HT/
như file của em ở trên theo hướng dẫn của anh em đã làm được nhưng nó chỉ xóa từ cột A đến cột G hoặc từ cột G đến cột H .Yêu cầu là xóa từ cột A đến cột H (giá trị tìm kiếm là cột G) nhờ Anh chỉ giúp Thank!!!

 

[phucbugis]

mình chỉ thay code của bạn bằng dòng sau:

Range("A" & Cll.Row).Resize(, 8).Delete Shift:=xlUp

ví dụ mã tìm được là ô G7 thì:
--> Cll.Row = 7
--> Range("A" & Cll.Row)=Range("A7")
--> Range("A" & Cll.Row).Resize(, 8)=Range("A7:H7")

lệnh .Delete Shift:=xlUp <=> khi bạn Right click - Delete... - Shift cells up (cái này bạn dùng Record Macro cũng ra)

Link: https://www.mediafire.com/?74rbhn1g38gv8y5

 

[doremoi]

Cảm ơn Anh Phucbugis giúp em các câu hỏi trước.Em còn 1 chỗ chưa làm được trên file ds(1).xlsm (ở bài #12 anh đã sửa cho em) trong sự kiện Worksheet_Change có một đoạn code sort dữ liệu nhưng em không biết cách giới hạn cho Range của vùng sort. Yêu cầu:tự động sort sau khi nhập dữ liệu từ cột B đến cột H cột sort dữ liệu là cột G vùng sort từ cột B đến cột H ngoài vùng này thì dữ liệu không bị tác động khi sort (cụ thể là cột A và cột I trở đi dữ liệu được giữ nguyên ) em rất tệ về excel nên có hỏi hơi nhiều 1 tí. Nếu không phiền nhờ anh sửa giúp dùm em code trên. Thank so much !!

 

[phucbugis]

Cảm ơn Anh Phucbugis giúp em các câu hỏi trước.Em còn 1 chỗ chưa làm được trên file ds(1).xlsm (ở bài #12 anh đã sửa cho em) trong sự kiện Worksheet_Change có một đoạn code sort dữ liệu nhưng em không biết cách giới hạn cho Range của vùng sort. Yêu cầu:tự động sort sau khi nhập dữ liệu từ cột B đến cột H cột sort dữ liệu là cột G vùng sort từ cột B đến cột H ngoài vùng này thì dữ liệu không bị tác động khi sort (cụ thể là cột A và cột I trở đi dữ liệu được giữ nguyên ) em rất tệ về excel nên có hỏi hơi nhiều 1 tí. Nếu không phiền nhờ anh sửa giúp dùm em code trên. Thank so much !!

- mình đề nghị bạn ko nên Sort trực tiếp tại sự kiện Worksheet_Change, mà hãy tách nó thành 1 nút riêng.
- cột STT bạn ko cần phải dùng vòng lặp để thay đổi mà có thể cài công thức trực tiếp + kết hợp sự kiện WS_change để cho nó tự động (mỗi khi tên hàng được nhập vào).
---> bạn tải lại file của #12 nhé !