Lọc dữ liệu trong bảng (1 người xem)

[milan061084]

Nhờ các bác giúp cho em một việc thế này:
Em có một bảng dữ liệu gồm 2 cột: số và chữ (sheet 2)
Bây giờ em muốn viết một macro sao cho:
Khi ở trong sheet 1, nếu em chọn số 1 thì tất cả chữ cái tương ứng với số 1 sẽ được load ra. (chỉ chữ cái tương ứng với số 1 nhé). Tương tự khi chọn các số khác cũng vây.
Em có upload file ví dụ. Mong các bác chỉ giúp. Em viết macro nó chỉ load được dòng đầu tiên.
Cám ơn các bác nhiều ạ.

 

[tam8678]

Nhờ các bác giúp cho em một việc thế này:
Em có một bảng dữ liệu gồm 2 cột: số và chữ (sheet 2)
Bây giờ em muốn viết một macro sao cho:
Khi ở trong sheet 1, nếu em chọn số 1 thì tất cả chữ cái tương ứng với số 1 sẽ được load ra. (chỉ chữ cái tương ứng với số 1 nhé). Tương tự khi chọn các số khác cũng vây.
Em có upload file ví dụ. Mong các bác chỉ giúp. Em viết macro nó chỉ load được dòng đầu tiên.
Cám ơn các bác nhiều ạ.

------------
Bạn thử dùng Autofilter xem, có theo đúng ý bạn không ?

 

[milan061084]

Dạ, đúng là Autofilter sẽ có được giá trị dữ liệu như ý. Nhưng vấn đề là em muốn nó hiện ơ sheet khác và dùng macro cho tiện ạ. Có bác nào giúp em với ạ!

 

[SA_DQ]

Xài macro sự kiện tại sheet1 như dưới đây

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A2:A9")) Is Nothing Then
   Dim Rng As Range, sRng As Range, Sh As Worksheet
   Dim MyAdd As String
      
   Set Sh = Sheets("Sheet2"):             Set Rng = Sh.Range(Sh.[a1], Sh.[A65500].End(xlUp))
   [B2].Resize(Rng.Count).ClearContents:  [B1] = "KetQua"
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      Target.Offset(, 1).Value = "Khong Co Tri Tuong Ung"
   Else
      MyAdd = sRng.Address
      Do
         [b65500].End(xlUp).Offset(1).Value = sRng.Offset(, 1)
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   End If
 End If
End Sub

 

[tam8678]

Dạ, đúng là Autofilter sẽ có được giá trị dữ liệu như ý. Nhưng vấn đề là em muốn nó hiện ơ sheet khác và dùng macro cho tiện ạ. Có bác nào giúp em với ạ!

-----------
Bạn vào tìm các bài viết của NDU về trích lọc, mong có thể giúp được bạn rất nhiều .
Chúc vui

 

[moviemail]

Em cũng gặp một vấn đề tương tự trên (chỉ khác là khi chọn 1 số thì các giá trị số liên quan sẽ được load lên) Em xin hỏi thêm là có thể sử dụng các hàm LOOKUP như lookup, index, match, ... để thực hiện các yêu cầu trên không ạ. Em đã thử nhưng không được như ý. Em xin cảm ơn trước

 

[volga]

Em cũng gặp một vấn đề tương tự trên (chỉ khác là khi chọn 1 số thì các giá trị số liên quan sẽ được load lên) Em xin hỏi thêm là có thể sử dụng các hàm LOOKUP như lookup, index, match, ... để thực hiện các yêu cầu trên không ạ. Em đã thử nhưng không được như ý. Em xin cảm ơn trước

Bạn đưa dử liệu lên đi
Ví dụ như File đính kèm ,bạn chọn số hợp đồng thử xem ?