Phương thức Find theo 02 điều kiện

[letienmai]

xin chào mọi người
Mình đang cố gắng tìm số dòng đầu tiên tìm thấy theo 02 điều kiện là ngày và ca.
Mình sử dụng phương thức Find tuy nhiên chỉ tìm được dòng đầu tiên theo ngày, còn điều kiện theo ca thì mình không biết phải viết code như thế nào.
Anh/ chị nào có kinh nghiệm rất mong giúp đỡ.
Chúc mọi người ngày mới vui vẻ...

 

[snow25]

xin chào mọi người
Mình đang cố gắng tìm số dòng đầu tiên tìm thấy theo 02 điều kiện là ngày và ca.
Mình sử dụng phương thức Find tuy nhiên chỉ tìm được dòng đầu tiên theo ngày, còn điều kiện theo ca thì mình không biết phải viết code như thế nào.
Anh/ chị nào có kinh nghiệm rất mong giúp đỡ.
Chúc mọi người ngày mới vui vẻ...

Bạn tìm để làm gì vậy.Ứng dụng của nó.Mình không dùng find nhé.

 

[letienmai]

Bạn tìm để làm gì vậy.Ứng dụng của nó.Mình không dùng find nhé.

Mình cám ơn bạn nhiều nhé.
Nó thật sự rất hữu ích và đúng với mong muốn của mình, do mình chưa biết cách dùng mảng nên kiến thức còn giới hạn, chúc bạn nhiều sức khỏe.

 

[SA_DQ]

Fải là vầy cho tường minh:

Option Explicit
Sub VD()
 Dim MyAdd As String, MyFormat As String:               Dim Rws As Long
 Dim Rng As Range, sRng As Range
  With Sheet1
    Rws = .[B3].CurrentRegion.Rows.Count
    Set Rng = .[B3].Resize(Rws):                                .[J2].Value = "GPE.COM"
    MyFormat = Rng.Offset(1).NumberFormat
    Rng.NumberFormat = "MM/DD/yyyy"
    Set sRng = Rng.Find(Format(.[H2].Value, "MM/DD/yyyy"), , xlValues, xlWhole)
    If sRng Is Nothing Then
        MsgBox "Nothing", , "GPE.COM Xin Chào!"
    Else
        MyAdd = sRng.Address
        Do
            If sRng.Offset(, 1).Value = .[i2].Value Then
                .[J2].Value = sRng.Row:                             Exit Do
            End If
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    End If
    Rng.Offset(1).NumberFormat = MyFormat
    .Range("B3").NumberFormat = "0"
  End With
End Sub