Tạo Advance Fillter!

[truonghg]

Bác nào tạo cho em cái Advance fillter với. Em có đọc qua bài tạo advance filter rồi nhưng em làm nó toàn bị báo lỗi. Em cần tạo 1 Button Lọc và 1 vùng điều kiện. Kết quả đưa ra 1 sheet Lọc.
Em xin cảm ơn.

 

[anhtuan1066]

Cái này do bạn copy của người khác về mà ko sửa cho đúng với thực tế file mình...
Tôi xem sơ qua thì thấy sai mấy chổ: Sai tên Sheet, chưa có vùng điều kiện... he... he...
Code này đoán ko lầm là của bạn Tigertiger... vậy bạn hảy liên lạc với bạn ấy nhờ sửa nhé!
Cách tốt nhất đễ giải quyết yêu cầu là: Bạn tự làm lấy bằng tay, dùng Advaced Filter... Nếu bạn có thể thao tác thủ công thành công thì hảy từ đó record lấy macro là xong chứ gì
ANH TUẤN

 

[truonghg]

Đúng là tôi có áp dụng code của bạn tiger, tôi đã có sửa nhưng vẫn không được, Chính vì vậy mà cần có cao thủ giúp đỡ.

 

[tigertiger]

Đúng là tôi có áp dụng code của bạn tiger, tôi đã có sửa nhưng vẫn không được, Chính vì vậy mà cần có cao thủ giúp đỡ.

oh, vậy ah, nhưng tôi chưa rõ bạn lọc theo điều kiện nào, bạn nên tạo ra vùng điều kiện thì ng giúp mới hình dung được

mún sửa code bạn phải xem kỹ file cũ xem sao,

thế nhé

 

[truonghg]

oh, vậy ah, nhưng tôi chưa rõ bạn lọc theo điều kiện nào, bạn nên tạo ra vùng điều kiện thì ng giúp mới hình dung được

mún sửa code bạn phải xem kỹ file cũ xem sao,

thế nhé

ah, hay quá, gặp đc bác tiger đây rồi. Em muốn tìm kiếm theo tất cả các tip trên.
VD : em tìm theo số hợp đồng thì chỉ việc điền vào vùng điều kiện là Số HĐ và điều kiện tìm kiếm, tương tự với những cái khác bác àh. Chính vì vậy mà em làm theo mẫu của bác nhưng không được. Rất mong bác ra tay giúp đỡ cho em. Ngoài ra em muốn tìm 1 lúc nhiều thông tin được luôn (SỐ HĐ, mã, nhân viên....)

 

[tigertiger]

ah, hay quá, gặp đc bác tiger đây rồi. Em muốn tìm kiếm theo tất cả các tip trên.
VD : em tìm theo số hợp đồng thì chỉ việc điền vào vùng điều kiện là Số HĐ và điều kiện tìm kiếm, tương tự với những cái khác bác àh. Chính vì vậy mà em làm theo mẫu của bác nhưng không được. Rất mong bác ra tay giúp đỡ cho em. Ngoài ra em muốn tìm 1 lúc nhiều thông tin được luôn (SỐ HĐ, mã, nhân viên....)

Đã làm giúp bạn (File gửi kèm)

+ xem vùng điều kiện tại Sheet Dieukien nhé

+ bạn có thể thêm vào vùng đ/k các thông số cột khác nữa (vùng đ/k tự mở rộng thu hẹp theo dữ liệu có)

chúc thành công

 

[truonghg]

Đã làm giúp bạn (File gửi kèm)

+ xem vùng điều kiện tại Sheet Dieukien nhé

+ bạn có thể thêm vào vùng đ/k các thông số cột khác nữa (vùng đ/k tự mở rộng thu hẹp theo dữ liệu có)

chúc thành công

Thanks bác, nhưng file trong zip không có phần mở rộng, không thể mở đc, chuyển sang xls thì bị lỗi lằng nhằng, không xem được. Bác zip lại rùi send cho em với.
Àh em hỏi thêm 1 chút, với cái hàm Advanced fillter ấy, khi bấm vào button Loc mà mình cancel thì bị báo lỗi dòng
Set RgnDk = Application.InputBox("Chon vung dieu kien loc", "Chon vung", RgnDk.Address, Type:=8)
vậy phải thêm gì để khi em chọn Lọc nhưng cancel không bị Debug đoạn này hả bác ?

 

[tigertiger]

Thanks bác, nhưng file trong zip không có phần mở rộng, không thể mở đc, chuyển sang xls thì bị lỗi lằng nhằng, không xem được. Bác zip lại rùi send cho em với.
Àh em hỏi thêm 1 chút, với cái hàm Advanced fillter ấy, khi bấm vào button Loc mà mình cancel thì bị báo lỗi dòng
Set RgnDk = Application.InputBox("Chon vung dieu kien loc", "Chon vung", RgnDk.Address, Type:=8)
vậy phải thêm gì để khi em chọn Lọc nhưng cancel không bị Debug đoạn này hả bác ?

oh, tôi thử down lại chính file đó rùi, và xả ra có soa đâu, bạn xem lại đi nhé

ah, trogn file mới tôi bỏ lệnh (mà bạn cần cancel) đó đi rùi

down lại xem nhé (nhớ là đợi download hết mới mở)

 

[anhtuan1066]

Tigertiger gửi lại bằng file RAR đi... file ZIP dạo này bị lổi nhiều lắm... ko hiểu tại sao
ANH TUẤN

 

[truonghg]

Em đã làm được rồi, và các form mẫu khác em cũng đã làm được. Cảm ơn anh Tiger. Nhưng với cái form vùng điều kiện ý, em giờ cần nó để nhiều khi em không cần phải là vùng điều kiện đó, mà em có thể chọn vùng điều kiện khác trong sheets. Nhưng các form mẫu của em làm đc được nhưng mắc mỗi cái nút Cancel là bị báo ra Debug thôi. Em cần bác cho em biết thêm chi tiết gì vào câu lệnh nữa để cho nó mượt ko ?
Set RgnDk = Application.InputBox("Chon vung dieu kien loc", "Chon vung", RgnDk.Address, Type:=8)

 

[boong]

File trong zip có phần mở rộng là ZIP bạn thử lại xem.

 

[anhtuan1066]

Em đã làm được rồi, và các form mẫu khác em cũng đã làm được. Cảm ơn anh Tiger. Nhưng với cái form vùng điều kiện ý, em giờ cần nó để nhiều khi em không cần phải là vùng điều kiện đó, mà em có thể chọn vùng điều kiện khác trong sheets. Nhưng các form mẫu của em làm đc được nhưng mắc mỗi cái nút Cancel là bị báo ra Debug thôi. Em cần bác cho em biết thêm chi tiết gì vào câu lệnh nữa để cho nó mượt ko ?
Set RgnDk = Application.InputBox("Chon vung dieu kien loc", "Chon vung", RgnDk.Address, Type:=8)

Thêm thằng em:
On Error Resume Next
vào đầu đoạn code là xong

 

[truonghg]

Thêm thằng em:
On Error Resume Next
vào đầu đoạn code là xong

Em đã làm được rồi, Thanks các anh nhiều (Lời nói vẫn phải đi đôi với click, em sẽ click mỗi bác 1 phát )

 

[salam]

Em đã làm được rồi, Thanks các anh nhiều (Lời nói vẫn phải đi đôi với click, em sẽ click mỗi bác 1 phát )

Spam chút nhé.
Sao lại nhấp mỗi Bác một phát thế he he ...

 

[truonghg]

Spam chút nhé.
Sao lại nhấp mỗi Bác một phát thế he he ...

Mỗi bác 1 phát Click to Thanks ý mừ. Thui, xì pam vậy thui, các bác giải quyết giùm em vụ này nữa nhá
http://www.giaiphapexcel.com/forum/showthread.php?t=8766
Em đã tìm hiểu rất nhiều tài liệu mà chưa làm được.