1 mã VBA dùng chung cho nhiều sheet tên khác nhau

[thanducha]

Em dùng record macro để lọc dữ liệu, nhưng mà chỉ dùng được cho 1 sheet, do dữ liệu ở các sheet khác có cấu trúc giống nhau. Có đoạn mã nào để thay chỗ này ActiveWorkbook.Worksheets("PACKING") thành dùng chung cho nhiều sheet được không ạ?


Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
Range("A11").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("PACKING").AutoFilter.So rt.SortFields.Clear
ActiveWorkbook.Worksheets("PACKING").AutoFilter.So rt.SortFields.Add Key:= _
Range("D1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("PACKING").AutoFilter.So rt
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.AutoFilter
Range("F12").Select
End Sub



Mong các cao thủ trợ giúp với![IMG]images/smilies/a41.gif[/IMG]

View more random threads:

• Copy dữ liệu từ file excel paste sang outlook gặp vấn đề
• Bẻ khóa file excel
• Cần các cao thủ excel trợ giúp cho hoàn thiện
• Nhờ các bro chỉ dẫn hàm phù hợp để lọc dữ liệu thỏa mãn điều kiện ban đầu
• Giải Thích dùm em đoạn code VBA màu xanh
• anh chi giúp em tạo code vba
• [Help} file excel in nhãn
• Trợ giúp em với
• Tìm kiếm và list ngày tháng
• Mẹo hay khi dùng hàm SUMIF

[nmhquoc]

thử thay ActiveWorkbook.Worksheets("PACKING") thành

ActiveSheet

bạn nhé