Lọc có điều kiện VBA

[Dongka_81]

Chả là em muốn lọc dữ liệu từ Data qua Locdulieu với 2 điều kiện ở C1&C2 mà làm hoài không được
Làm chung 1 sheet thì làm ok rồi nhưng qua 1 sheet khác lỗi hoài
Nhờ các cao nhân giúp đỡ với ạ
Cảm ơn nhiều ạ

 

[SA_DQ]

Bạn đang bị lỗi phần 'Tiêu đề'; Nếu được sửa lại đi bạn

 

[VetMini]

Có cháy nhà đâu mà phải la làng vậy?

Tiêu đề thế này là phạm quy diễn đàn

 

[Dongka_81]

Có cháy nhà đâu mà phải la làng vậy?

Tiêu đề thế này là phạm quy diễn đàn

View attachment 297125

Hi mình sửa rồi bạn
Có gì bạn giúp mình code này với

Bài đã được tự động gộp: 28/11/23

Bạn đang bị lỗi phần 'Tiêu đề'; Nếu được sửa lại đi bạn

Mình có sửa lại rồi bạn

 

[bebo021999]

Xài đỡ cái này.
Lưu ý: bạn không yêu cầu nhưng có lẽ bạn sẽ cần: 2 ô C1 và C2 có thể để trống. Nếu trống nghĩa là chọn tất cả.

Option Explicit
Sub locdulieu()
Dim lr&, i&, k&, rng, res(1 To 10000, 1 To 5), dk1 As String, dk2 As String
With Sheets("Data")
    lr = .Cells(Rows.Count, "B").End(xlUp).Row
    rng = .Range("B3:E" & lr).Value
End With
Sheets("Locdulieu").Activate
dk1 = IIf(Range("C1").Value = "", "*", Range("C1").Value)
dk2 = IIf(Range("C2").Value = "", "*", Range("C2").Value)
For i = 1 To UBound(rng)
    If rng(i, 2) Like dk1 And rng(i, 3) Like dk2 Then
        k = k + 1: res(k, 1) = k: res(k, 2) = rng(i, 1)
        res(k, 3) = rng(i, 2): res(k, 4) = rng(i, 3): res(k, 5) = rng(i, 4)
    End If
Next
Range("A4:E10000").ClearContents
Range("A4").Resize(k, 5).Value = res
End Sub

 

[Dongka_81]

Xài đỡ cái này.
Lưu ý: bạn không yêu cầu nhưng có lẽ bạn sẽ cần: 2 ô C1 và C2 có thể để trống. Nếu trống nghĩa là chọn tất cả.

Option Explicit
Sub locdulieu()
Dim lr&, i&, k&, rng, res(1 To 10000, 1 To 5), dk1 As String, dk2 As String
With Sheets("Data")
    lr = .Cells(Rows.Count, "B").End(xlUp).Row
    rng = .Range("B3:E" & lr).Value
End With
Sheets("Locdulieu").Activate
dk1 = IIf(Range("C1").Value = "", "*", Range("C1").Value)
dk2 = IIf(Range("C2").Value = "", "*", Range("C2").Value)
For i = 1 To UBound(rng)
    If rng(i, 2) Like dk1 And rng(i, 3) Like dk2 Then
        k = k + 1: res(k, 1) = k: res(k, 2) = rng(i, 1)
        res(k, 3) = rng(i, 2): res(k, 4) = rng(i, 3): res(k, 5) = rng(i, 4)
    End If
Next
Range("A4:E10000").ClearContents
Range("A4").Resize(k, 5).Value = res
End Sub

Đúng ý mình luôn rồi
Tks bạn nhiều nhiều !