Lọc dữ liệu 2 sheet khác tương ứng với điều kiện của ô hiện hành

[Loc Uyen]

Em đang cần như sau ạ, khi click vào ô bất kì của cột H Ở sheet Data Capturing, thì ở sheet 21st Nov AIO và sheet 8th Nov AIO Baseline sẽ lọc với điều kiện tương ứng
Theo ví dụ hiện tại của em là click ô H6 thì bên 2 sheet bên trên sẽ lọc tương ứng như em đã lọc thủ công theo file đính kèm ạ.
Tức là 2 sheet bên trên sẽ lọc theo điều kiện là Cột Level sẽ bằng A6 (Ví dụ hiện tại), cột Line sẽ bằng B6 (Ví dụ hiện tại), Cột Efficiency luôn luôn lọc điều kiện <50 ạ.
Em cám ơn.

 

[huonglien1901]

Em đang cần như sau ạ, khi click vào ô bất kì của cột H Ở sheet Data Capturing, thì ở sheet 21st Nov AIO và sheet 8th Nov AIO Baseline sẽ lọc với điều kiện tương ứng
Theo ví dụ hiện tại của em là click ô H6 thì bên 2 sheet bên trên sẽ lọc tương ứng như em đã lọc thủ công theo file đính kèm ạ.
Tức là 2 sheet bên trên sẽ lọc theo điều kiện là Cột Level sẽ bằng A6 (Ví dụ hiện tại), cột Line sẽ bằng B6 (Ví dụ hiện tại), Cột Efficiency luôn luôn lọc điều kiện <50 ạ.
Em cám ơn.

Cho hỏi ngoài lề tí, làm thế nào để chèn chữ trong biểu đồ đó bạn?

 

[Loc Uyen]

Cho hỏi ngoài lề tí, làm thế nào để chèn chữ trong biểu đồ đó bạn?

Ý của @huonglien1901 là chữ nào nhỉ? Quá trời chứ luôn? Hổng biết ý bạn hỏi cái nào? Hihi

 

[huonglien1901]

Ý của @huonglien1901 là chứ nào nhỉ? Quá trời chứ luôn? Hổng biết ý bạn hỏi cái nào? Hihi

Ý mình thấy trong sheet Graph mình thấy biểu đồ bạn mình thấy những số hiển trong biểu đồ, ví dụ mình hỏi là mình muốn chèn số quay ngang thì làm sao?

 

[Loc Uyen]

Ý mình thấy trong sheet Graph mình thấy biểu đồ bạn mình thấy những số hiển trong biểu đồ, ví dụ mình hỏi là mình muốn chèn số quay ngang thì làm sao?

Click vào cột trên biểu đồ, làm theo 2 bước như hình nhé! Chọn Horizon nó sẽ nằm ngang

 

[huonglien1901]

Click vào cột trên biểu đồ, làm theo 2 bước như hình nhé! Chọn Horizon nó sẽ nằm ngang
View attachment 208209

Cảm ơn bạn nhiều nhé!
Chúc bạn một buổi tối vui!

 

[Loc Uyen]

Cảm ơn bạn nhiều nhé!
Chúc bạn một buổi tối vui!

Hihi, cám ơn bạn, bạn cũng vậy nhé!

 

[snow25]

Em đang cần như sau ạ, khi click vào ô bất kì của cột H Ở sheet Data Capturing, thì ở sheet 21st Nov AIO và sheet 8th Nov AIO Baseline sẽ lọc với điều kiện tương ứng
Theo ví dụ hiện tại của em là click ô H6 thì bên 2 sheet bên trên sẽ lọc tương ứng như em đã lọc thủ công theo file đính kèm ạ.
Tức là 2 sheet bên trên sẽ lọc theo điều kiện là Cột Level sẽ bằng A6 (Ví dụ hiện tại), cột Line sẽ bằng B6 (Ví dụ hiện tại), Cột Efficiency luôn luôn lọc điều kiện <50 ạ.
Em cám ơn.

Đây bạn xem.

 

[Loc Uyen]

Đây bạn xem.

Làm sao để thêm điều kiện cột Line và Efficiency <50 ạ. Em thử thêm mà nó không ra. kaka

 

[huonglien1901]

Làm sao để thêm điều kiện cột Line và Efficiency <50 ạ. Em thử thêm mà nó không ra. kaka

Tại trong code Anh viết chỉ có cột Level thôi. Còn thiếu cột efficiency giá trị <50)

 

[Loc Uyen]

Tại trong code Anh viết chỉ có cột Level thôi. Còn thiếu cột efficiency giá trị <50)

Đúng rồi đang còn thiếu Line và efficiency nữa, mình thử thêm vào nhưng nó không chạy, kaka, cót két thì chịu

 

[Loc Uyen]

Đây bạn xem.

Em không biết code em bắt chước thêm điều kiện mà nó không chạy. Giúp em thêm điệu kiện Line (theo sheet Data Capturing) và Efficiency mặc định <50 với ạ.

 

[snow25]

Làm sao để thêm điều kiện cột Line và Efficiency <50 ạ. Em thử thêm mà nó không ra. kaka

Đây bạn xem.
Do cột Line dạng text nên mình chỉnh thành dạng số bạn nhé.

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, -7)
             Sheets("21st Nov AIO").Range("$A$1:L" & Rows.Count).AutoFilter Field:=6, Criteria1:=s
             Sheets("21st Nov AIO").Range("$A$1:L" & Rows.Count).AutoFilter Field:=12, Criteria1:="<=50"
             Sheets("21st Nov AIO").Range("$A$1:L" & Rows.Count).AutoFilter Field:=7, Criteria1:="<=50"
             Sheets("8th Nov AIO Baseline").Range("$A$1:L" & Rows.Count).AutoFilter Field:=11, Criteria1:=s
             Sheets("8th Nov AIO Baseline").Range("$A$1:L" & Rows.Count).AutoFilter Field:=12, Criteria1:="<=50"
             Sheets("8th Nov AIO Baseline").Range("$A$1:L" & Rows.Count).AutoFilter Field:=10, Criteria1:="<=50"
          End If
End Sub

 

[Loc Uyen]

Đây bạn xem.
Do cột Line dạng text nên mình chỉnh thành dạng số bạn nhé.

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, -7)
             Sheets("21st Nov AIO").Range("$A$1:L" & Rows.Count).AutoFilter Field:=6, Criteria1:=s
             Sheets("21st Nov AIO").Range("$A$1:L" & Rows.Count).AutoFilter Field:=12, Criteria1:="<=50"
             Sheets("21st Nov AIO").Range("$A$1:L" & Rows.Count).AutoFilter Field:=7, Criteria1:="<=50"
             Sheets("8th Nov AIO Baseline").Range("$A$1:L" & Rows.Count).AutoFilter Field:=11, Criteria1:=s
             Sheets("8th Nov AIO Baseline").Range("$A$1:L" & Rows.Count).AutoFilter Field:=12, Criteria1:="<=50"
             Sheets("8th Nov AIO Baseline").Range("$A$1:L" & Rows.Count).AutoFilter Field:=10, Criteria1:="<=50"
          End If
End Sub

Em giải thích không rõ, nên chắc @snow25 hiểu sai ý em, cột line không phải <50 mà là sẽ lấy theo cột 2 của sheet Data Capturing ạ. Em thêm mà nó báo vàng, hihi.

 

[snow25]

Em giải thích không rõ, nên chắc @snow25 hiểu sai ý em, cột line không phải <50 mà là sẽ lấy theo cột 2 của sheet Data Capturing ạ. Em thêm mà nó báo vàng, hihi.
View attachment 208245

Bạn phải khai báo m vào mới được chứ.
Dim m as string.

 

[Loc Uyen]

Bạn phải khai báo m vào mới được chứ.
Dim m as string.

Em mới phát hiện, kaka, dạ cám ơn @snow25 nhiều lắm ạ.
Chúc @snow25 cuối tuần vui ạ.