Giúp em với: Macro - click button - tìm ngày trong range (1 người xem)

[timhieu02]

Chào các ace,

Mình có report, em có attached.

Yêu câu của report như sau:

- Nhập ngày vào: J2
- Button "Find Date": để tìm ngày trong J2
- Có trong: N2 -> YA

-> Nếu tìm thấy thì di chuyển con trỏ chuột vào cell đó.
-> Nếu không tìm thấy thì hiển thị meeage: "Nothing found"

Mong các ace nhín chút thời gian viết giúp em macro ạ.

Cám ơn nhiều

 

[Hoang2013]

Bạn chạy thử macro sau:

Sub Button350_Click()
 Dim Rng As Range, sRng As Range
 Dim MyFormat As String
 
 Set Rng = Range([N2], [N2].End(xlToRight))
 MyFormat = Rng.NumberFormat
 Rng.NumberFormat = "mm/dd/yyyy"
 Set sRng = Rng.Find(Format$([j2].Value, "mm/dd/yyyy"), , xlValues, xlWhole)
 If sRng Is Nothing Then
    MsgBox "Nothing"
 Else
    sRng.Select
 End If
 Rng.NumberFormat = [j2].NumberFormat
End Sub

 

[timhieu02]

Cám ơn bạn.

1 số ngày thì chạy được. Mình test ngày "4/28/2017" thì không chạy ra mặc dù ngày này có trong cell XZ2 (mình đã copy nguyên cell XZ2 và paste vào J2 - nhưng vẫn không tìm thấy)

Bạn giúp mình tí xíu nữa nhé

Thanks,

 

[Hoang2013]

Vậy là file bạn đã có/bị ma ám rồi thì phải!

 

[ndu96081631]

Cám ơn bạn.

1 số ngày thì chạy được. Mình test ngày "4/28/2017" thì không chạy ra mặc dù ngày này có trong cell XZ2 (mình đã copy nguyên cell XZ2 và paste vào J2 - nhưng vẫn không tìm thấy)

Bạn giúp mình tí xíu nữa nhé

Thanks,

Sửa code bài 2 thành vầy xem:

Sub Button350_Click()
 Dim Rng As Range, sRng As Range
 Dim MyFormat As String
 Set Rng = Range([N2], [N2].End(xlToRight))
 MyFormat = Rng.NumberFormat
 Set sRng = Rng.Find(Format([j2].Value, MyFormat), , xlValues, xlWhole)
 If sRng Is Nothing Then
    MsgBox "Nothing"
 Else
    sRng.Select
 End If
End Sub

 

[timhieu02]

Dạ. Cám ơn anh nhiều. Tìm được rồi ạ.

Chúc anh cùng các thành viên ngày mới vui vẽ