Lội tự động rút trích (2 người xem)

[lamdathoa]

Hi mọi người,

Lúc trước có 1 anh giúp em tạo macro tự động lọc đơn theo tháng vào tên sheet tương ứng.

Nhưng bây giờ em muốn thêm 1 sheet có tên là summary thì nó báo lỗi. Vì nó chỉ cho phép đặt tên sheet khớp với hàm lọc.

Mọi người giúp em thêm 1 hay nhiều sheet nữa mà ko có báo lỗi đc ko?

Mọi người xem file đính kèm bên dưới.

http://adnet.ovo.bg/Draft_Order_List-1-.xls [749 KB] [Direct Link]

P/S. Ko biết tại sao diễn đàn cứ báo lỗi upload error nên em mới upload lên host khác.

Thân

 

[Quang_Hải]

Nhìn code sao thấy quen quen. Lỗi là phải rồi, VBA không cho phép sửa code lại theo cách của bạn đâu.

 

[lamdathoa]

vậy anh giúp em nha. Em muốn thêm vào nhiều sheet nữa lắm!!! nhưng ko thêm đc.

 

[Quang_Hải]

vậy anh giúp em nha. Em muốn thêm vào nhiều sheet nữa lắm!!! nhưng ko thêm đc.

Giúp kiểu gì. Cấu trúc các sheet ra làm sao? Có thấy gì đâu mà code chứ!

 

[lamdathoa]

Option Explicit

Sub loc()
If ActiveSheet.Name <> "Total" Then
   With ActiveSheet
      .[Y1].Value = .[y3]
      .[Y2].Value = .Name
   End With
   With Sheets("Total")
      .[A3:Y65000].AdvancedFilter 2, [Y1:Y2], [A3:Y3]
   End With
End If
End Sub

Đó cái là cái code.

Em gởi lại anh file đính kèm. File kia bị em dọc hư rồi. Code này lọc theo cột Y. Nếu là 1-2013 thì nó sẽ tự động chuyển đơn sang sheet 1-2013.

Bây giờ em muốn thêm vào cái Summary trước sheet total nữa.

http://adnet.ovo.bg/Draft_Order_List_2.xls

Thanks anh!

 

[phucbugis]

Option Explicit

Sub loc()
...

Thanks anh![/QUOTE]

Tốt hơn bạn nên [COLOR=#ff0000]Thanks [/COLOR]bằng nút này [ATTACH]115459.vB[/ATTACH] --=0

 

[Quang_Hải]

Option Explicit

Sub loc()
If ActiveSheet.Name <> "Total" Then
   With ActiveSheet
      .[Y1].Value = .[y3]
      .[Y2].Value = .Name
   End With
   With Sheets("Total")
      .[A3:Y65000].AdvancedFilter 2, [Y1:Y2], [A3:Y3]
   End With
End If
End Sub

Đó cái là cái code.

Em gởi lại anh file đính kèm. File kia bị em dọc hư rồi. Code này lọc theo cột Y. Nếu là 1-2013 thì nó sẽ tự động chuyển đơn sang sheet 1-2013.

Bây giờ em muốn thêm vào cái Summary trước sheet total nữa.

http://adnet.ovo.bg/Draft_Order_List_2.xls

Thanks anh!

Có 2 giải pháp
Thứ nhất là sửa lại code

Sub loc()
If ActiveSheet.Name <> "Total" Then
   If ActiveSheet.Name <> "Order list summary" Then
      With ActiveSheet
         .[Y1].Value = .[y3]
         .[Y2].Value = .Name
      End With
      With Sheets("Total")
         .[A3:Y65000].AdvancedFilter 2, [Y1:Y2], [A3:Y3]
      End With
   End If
End If
End Sub

Thứ hai là:
Chỉ cần 1 sheet lấy dữ liệu thôi, không cần nhiều sheet như thế

 

[lamdathoa]

Có 2 giải pháp
Thứ nhất là sửa lại code

Sub loc()
If ActiveSheet.Name <> "Total" Then
   If ActiveSheet.Name <> "Order list summary" Then
      With ActiveSheet
         .[Y1].Value = .[y3]
         .[Y2].Value = .Name
      End With
      With Sheets("Total")
         .[A3:Y65000].AdvancedFilter 2, [Y1:Y2], [A3:Y3]
      End With
   End If
End If
End Sub

Thứ hai là:
Chỉ cần 1 sheet lấy dữ liệu thôi, không cần nhiều sheet như thế

Em chọn giải pháp thứ 1.

Và

Nếu như em muốn thêm 2 hay 3 sheet nữa thì phải làm sao? Chỉ việc thêm code

If ActiveSheet.Name <> "Tên sheet" Then

là đc phải ko anh?

Thank you again!

 

[Quang_Hải]

Em chọn giải pháp thứ 1.

Và

Nếu như em muốn thêm 2 hay 3 sheet nữa thì phải làm sao? Chỉ việc thêm code

If ActiveSheet.Name <> "Tên sheet" Then

là đc phải ko anh?

Thank you again!

Ai biết đâu. Thử mới biết chứ.

 

[lamdathoa]

Hi anh,

Em thử thêm vô và OK...còn có lỗi gì nữa ko thì ko thấy.

Many thanks for your support. Teacher!