Hỏi về cách delete row filtered trong 1 sheet hidden mà không show source sheet ra ?? (1 người xem)

[luanon]

Dear a.c.e diễn đàn.
Mình đang gặp một issue rất nan giải khôg biết giải quyết như thế nào, hôm nay mạo muội nhờ a.c.e giúp giùm:
Nộidung:
Mình có 1 sheet data total= source sheet
sau đó, mình filter theo điều kiện trên 1 cột trong source sheet.
sau đó delete các rows này

Tất cả action này đều cần action một cách thầm lặng, không visible Source Sheet ra.

A.C.E giúp giùm nhé, thanks in advance !

 

[nghiaphuc]

Dear a.c.e diễn đàn.
Mình đang gặp một issue rất nan giải khôg biết giải quyết như thế nào, hôm nay mạo muội nhờ a.c.e giúp giùm:
Nộidung:
Mình có 1 sheet data total= source sheet
sau đó, mình filter theo điều kiện trên 1 cột trong source sheet.
sau đó delete các rows này

Tất cả action này đều cần action một cách thầm lặng, không visible Source Sheet ra.

A.C.E giúp giùm nhé, thanks in advance !

Mọi chuyện đều có thể giải quyết được nếu bạn đưa file lên đây, mô tả chi tiết cần lọc cái gì, xóa cái gì. Vấn đề của bạn không khó với VBA, nhưng phải có file Excel mới giải quyết vấn đề được. Mỗi bài toán cụ thể sẽ có những giải pháp tương ứng.

Mà bạn này, xin được góp ý chân thành nhé: Nếu trong tiếng Việt có những từ tương ứng thì tốt nhất là hãy sử dụng tiếng Việt bạn ạ, cứ nửa Việt nửa Anh thế này khó đọc lắm. Chẳng thà bạn hỏi tất cả bằng tiếng Anh, sẽ có người trả lời cho bạn, và cũng bằng tiếng Anh.

 

[luanon]

Thông tin đã rất cụ thể rồi mà bạn !!!!

 

[ndu96081631]

Thông tin đã rất cụ thể rồi mà bạn !!!!

Ví dụ như giờ tôi muốn viết code giúp bạn, vậy tôi lấy dữ liệu ở đâu để thí nghiệm? Bạn đừng nói là tôi phải tự giả lập dữ liệu nha ---> Miễn đi

 

[luanon]

@ndu96081631 : thậtsự thì mình chỉ định hỏi về ý tưởng. Nhưng nếu thật sự được help nhiệttình vậythì quá tốt. Bởi vì ý tưởng mới quan trọng )
Mình gửi file lên đây:
- Sheet SourceSheet sẽ bị veryhidden
- Khi click vao button sẽ delete những record trong cột 4 mà giá trị show = No
Mọi chuyện cần giải quyết mà không cho hiện SourceSheet lên đỡ làm bối rối user !
PS: cac user của GPE này hot "thiệt"
Viết xong không thấy nut upload lên ở đâu.. bó tay, chắc GPE sent gì đó ở trong mail để dzô coi lại. Gửi lên trước, rồi send file attach lên sau

 

[Hong.Van]

@ndu96081631 : thậtsự thì mình chỉ định hỏi về ý tưởng. Nhưng nếu thật sự được help nhiệttình vậythì quá tốt. Bởi vì ý tưởng mới quan trọng )
Mình gửi file lên đây:
- Sheet SourceSheet sẽ bị veryhidden
- Khi click vao button sẽ delete những record trong cột 4 mà giá trị show = No
Mọi chuyện cần giải quyết mà không cho hiện SourceSheet lên đỡ làm bối rối user !
PS: cac user của GPE này hot "thiệt"
Viết xong không thấy nut upload lên ở đâu.. bó tay, chắc GPE sent gì đó ở trong mail để dzô coi lại. Gửi lên trước, rồi send file attach lên sau

Bấm nút "Chuyển sang khung lớn" sẽ thấy

 

[luanon]

Cảm ơn bạn Hong.Van
@, mình gửi file đính kèm nhé :

 

[nghiaphuc]

Cảm ơn bạn Hong.Van
@, mình gửi file đính kèm nhé :

Bạn khéo đùa thiệt, file đính kèm đâu có nội dung gì đâu mà giúp (file nặng có 22 Bytes thì có thể chứa được cái gì trong đó?!).
Bạn kiểm tra lại nhé.

 

[luanon]

Tự sướng luôn :
Lúc đầu mình làm mấy dòng này, nhưng lại thiếu mất cáichữ màu đỏ, thế là nó không chịu xóa---> thêm vàothì nó chạy tốt
Debug lại mớithấy ! Chắc tạihoa mắt hôm nay, hic

Sub Button1_Click()
Dim tosheet As String
tosheet = "Sourcesheet"
Sheets("" & tosheet & "").Visible = 2
'If pwdprotect = True Then Sheets("" & tosheet & "").Unprotect ("" & pwd & "")
Sheets("" & tosheet & "").Range("A38").AutoFilter Field:=4, Criteria1:= _
"<>*Yes*", Operator:=xlAnd
Sheets("" & tosheet & "").Range("A38").Offset(1).SpecialCells(xlCellTypeVisible).Delete xlUp
Sheets("" & tosheet & "").Range("A38").AutoFilter Field:=4

End Sub