Tạo code lọc dữ liệu có điều kiện (1 người xem)

[yome]

Chào anh/chị GPE!
Em có 1 file (file đính kèm và câu hỏi).Em muốn nhờ an/chị tạo dùm em code lọc vùn dừ liệu có đều kiện.

 

[viehoai]

Chào anh/chị GPE!
Em có 1 file (file đính kèm và câu hỏi).Em muốn nhờ an/chị tạo dùm em code lọc vùn dừ liệu có đều kiện.

Vấn đề này Bạn dùng Record được mà (sử dụng Autofilter). Thân

 

[ChanhTQ@]

Bạn dùng thử macro sự kiện tại [K1], như sau

Tại thanh SheetName, bạn fải chuột vô Sheet2 & chọn hàng cuối của menu đỗ xuống & chép toàn bộ macro này vô CS VBA:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [k1]) Is Nothing Then
   Dim Rng As Range, sRng As Range, Sh As Worksheet
   Dim Jj As Integer, MyAdd As String, SoNg As Integer
   
   Set Sh = Sheet1
   Set Rng = Sh.Range(Sh.[A9], Sh.[A65500].End(xlUp))
   [a10].Resize(Rng.Rows.Count, 9).ClearContents
   SoNg = [k1].Value - [j1].Value
   For Jj = 0 To SoNg
      Set sRng = Rng.Find(Jj + [j1].Value, , xlFormulas, xlWhole)
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            With [A65500].End(xlUp).Offset(1)
               .Resize(, 9).Value = sRng.Resize(, 9).Value
            End With
            Set sRng = Rng.FindNext(sRng)
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
   Next Jj
 End If
End Sub

Những mong là khỏi fải gởi file kèm lên.
Chúc thành công, bạn nha!

 

[yome]

Bạn viethoa! Bạn làm cho mình nhé! Minh không dành về cái này lắm. Thanks!

 

[viehoai]

Bạn viethoa! Bạn làm cho mình nhé! Minh không dành về cái này lắm. Thanks!

Anh ChanhTQ@ đã giúp bạn chưa được à?
Đây là đoạn mình record, bạn thêm bớt theo ý mình thử nhé.

 

[MinhCong]

Chào anh/chị GPE!
Em có 1 file (file đính kèm và câu hỏi).Em muốn nhờ an/chị tạo dùm em code lọc vùn dừ liệu có đều kiện.

Bài này Bạn chỉ cần thêm 1 cột phụ bên sheet1 và dùng hàm VLOOKUP là được.