Lại Autofilter

[abc12199]

Em có file này nhờ các anh giúp đỡ
Chân thành cảm ơn!

 

[ptm0412]

Record macro thôi mà!
Double click vào cell B4!

 

[abc12199]

em có một macro tong sheet 2
bây giờ em muốn khi ta mở sheet 2 thì macro tự động chạy.
không biết cần thêm đoạn code nào?
nhờ các anh giúp

Nếu em muốn có một button để gọi macro này thì làm thế nào và đoạn code ra sao
em đả làm thử ra được button nhưng không gọi được
mong các anh giúp đỡ

 

[anhtuan1066]

Bạn chú ý file bạn bị nhiểm virus nhé! Con này khá hung dử đây! Các bạn khác cẩn thận khi tải về, lơ tơ mơ là lây luôn vào máy tính đấy nhé! Cẩn thẩn
ANH TUẤN

 

[boong]

File này xài được rồi nè!

 

[anhtuan1066]

Làm Button để gọi macro như thế cũng dc nhưng theo tôi thì ko hay cho lắm... Bạn nên tạo 1 Validation cho cell J2 và sửa lại code 1 tí:

Sub LOC()
Application.DisplayAlerts = False
Range("A1:G1000").Clear
    Sheets("Sheet1").Range("A1:G21").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("J1:J2"), CopyToRange:=Range("A1:G2"), Unique:=False
Application.DisplayAlerts = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$J$2" Then Call LOC
End Sub

Giờ để gọi macro thì hoặc là chọn trong Validaiton, hoặc gỏ trực tiếp vào J2, code sẽ chạy để lọc
ANH TUẤN

 

[abc12199]

Nếu em muốn có một button để gọi macro này thì làm thế nào và đoạn code ra sao
Cái này OK rồi
còn việc này có thực hiện được khômg?

bây giờ em muốn khi ta mở sheet 2 thì macro tự động chạy.
không biết cần thêm đoạn code nào?
nhờ các anh giúp

 

[boong]

Button Macro1 nằm trên Sheet2 đó bạn có thể tạo lại trên các Sheet khác được mà! Không cần phải mở Sheet2 lên mới chạy code đâu! Bạn nhập tất cả thông tin trên Sheet1 thì Sheet2 đã tự chạy rồi cần gì? Bạn xem file sẽ rõ!

 

[abc12199]

không ý em là không cần button mà khi ta mở sheet 2 ra thì Macro tự chạy
mặt khác em gặp vấn đề này tất cả các Macro em lập đều bị Symatec antivirut diệt sạch sẽ không có một dấu vết. em muốn chuyển các file này cho người khác dùng vậy phải làm thế nào?

 

[yeudoi]

Button Macro1 nằm trên Sheet2 đó bạn có thể tạo lại trên các Sheet khác được mà!
Không cần phải mở Sheet2 lên mới chạy code đâu! Bạn nhập tất cả thông tin trên Sheet1 thì Sheet2 đã tự chạy rồi cần gì?
Bạn xem file sẽ rõ!

Bạn phải xóa toàn bộ dữ liệu cũ trước khi lọc dữ liệu mới nếu không dữ liệu mới mà ít hơn dữ liệu cũ thì dọc dưới dữ liệu cũ vẫn còn.

không ý em là không cần button mà khi ta mở sheet 2 ra thì Macro tự chạy
mặt khác em gặp vấn đề này tất cả các Macro em lập đều bị Symatec antivirut diệt sạch sẽ không có một dấu vết. em muốn chuyển các file này cho người khác dùng vậy phải làm thế nào?

Cái này bạn boong đã dùng sự kiện Worksheet_SelectionChange vì vậy khi sheet2 được lựa chọn thì đã chạy macro rồi, còn để dùng cho các máy khác thì bạn phải nén file lại để khi quét virus không bị xóa.