Sao điều kiện 3 lại không đúng nhỉ: ĐK 1: Tên ANH; ĐK 2 Số cuối của SĐT là 1; ĐK 3 Từ đầu của địa chỉ là HÀ. Bạn thử kiểm tra xem lọc 2 ĐK TÊN và Số cuối Của ĐT ra được những ai và kiểm tra xem những người nào có thêm điều kiện thứ ba là tên đầu của địa chỉ là HÀ.
xem file (đã sửa đổi đôi chút-Thêm yêu cầu khi nhập vào các ô A1-C1 thì tự động nhảy)
anh ơi em cần điều kiện như này là đủ , anh giúp em khi nhập vào các ô A1-C1 thì tự động nhảy, và em muốn làm cho ra dữ liệu sheets mới , anh giúp em với, thank anh
Option Explicit
Sub LOC1DK()
Dim i&, j&, Lr&, t&, k&, R&
Dim Arr(), KQ()
Dim Sh As Worksheet
Dim Sh2 As Worksheet
Dim Ten As String, SDT As String, DChi As String
Set Sh = Sheet1
Set Sh2 = Sheet2
Lr = Sh.Cells(Rows.Count, 1).End(xlUp).Row
Arr = Sh.Range("A3:C" & Lr).Value
R = UBound(Arr)
Ten = UCase(Sh2.Cells(1, 1)): DChi = UCase(Sh2.Cells(1, 3)): SDT = Sh2.Cells(1, 2)
ReDim KQ(1 To R, 1 To 3)
For i = 1 To R
If UCase(Arr(i, 1)) Like "*" & Ten & "*" And UCase(Arr(i, 2)) Like "*" & SDT & "*" And UCase(Arr(i, 3)) Like "*" & DChi & "*" Then
t = t + 1
For j = 1 To 3
KQ(t, j) = Arr(i, j)
Next j
End If
Next i
If t Then
Sh2.Cells(2, 1).Resize(R, 3).ClearContents
Sh2.Cells(2, 1).Resize(t, 3) = KQ
Else
MsgBox " Không có"
End If
End Sub
