Loc Uyen
Thành viên thường trực
- Tham gia
- 9/6/14
- Bài viết
- 334
- Được thích
- 301
Cả nhà ơi, hiện tại em có cái code như vầy,
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s As String
If Not Intersect(Target, Range("H6:H" & Rows.Count)) Is Nothing Then
s = Target.Offset(0, -6)
Sheets(6).Range("$A$1:J" & Rows.Count).AutoFilter Field:=6, Criteria1:=s
Sheets(6).Range("$A$1:J" & Rows.Count).AutoFilter Field:=10, Criteria1:="<50"
Sheets(6).Select
End If
End Sub.
Cũng do anh chị trong diễn đàn viết giúp để em dùng. hihi.
Code này đang ở các sheet Level 3, Level 4, Level 5, Level 6.
Hiện tại em muốn thay đổi chút xíu là khi cột ngày lớn nhất có dữ liệu (trong 4 sheet trên), Khi click vào các ô của cột đó thì dữ liệu sẽ lọc với sheet mang tên ngày tương ứng với điều kiện như Code hiện tại ạ.
Em gửi kèm file ạ,
Cám ơn cả nhà.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s As String
If Not Intersect(Target, Range("H6:H" & Rows.Count)) Is Nothing Then
s = Target.Offset(0, -6)
Sheets(6).Range("$A$1:J" & Rows.Count).AutoFilter Field:=6, Criteria1:=s
Sheets(6).Range("$A$1:J" & Rows.Count).AutoFilter Field:=10, Criteria1:="<50"
Sheets(6).Select
End If
End Sub.
Cũng do anh chị trong diễn đàn viết giúp để em dùng. hihi.
Code này đang ở các sheet Level 3, Level 4, Level 5, Level 6.
Hiện tại em muốn thay đổi chút xíu là khi cột ngày lớn nhất có dữ liệu (trong 4 sheet trên), Khi click vào các ô của cột đó thì dữ liệu sẽ lọc với sheet mang tên ngày tương ứng với điều kiện như Code hiện tại ạ.
Em gửi kèm file ạ,
Cám ơn cả nhà.
