Cách dùng lệnh Find để tìm kiếm? (1 người xem)

[Tu Anh]

1. Tôi đang muốn dùng lệnh Find để tìm kiếm một chuỗi ký tự giống chuỗi ký tự trong ô hiện hành. Tìm trong worksheet cùng trong workbook thì được rồi nhưng bây giờ tôi muốn tìm trong một worksheet trong một workbook khác, không biết làm thế nào?
2. Có câu lệnh nào khác câu lệnh Find để tìm kiếm không? (Cấu trúc câu lệnh gọn, dễ hiểu hơn thì tốt)
Đoạn mã tôi đã viết và được bạn PhamDuyLong sửa như sau:

Public Sub TraDM()
a = Left(ActiveCell.Value, 6)
Sheet2.Select
On Error Resume Next
Cells.Find(a, ActiveCell, xlValues, xlPart, xlByRows, xlNext, False, False).Activate
If Err.Number > 0 Then
  Err.Number = 0
  b = Left(a, 5)
  Cells.Find(b, ActiveCell, xlValues, xlPart, xlByRows, xlNext, False, False).Activate
  If Err.Number > 0 Then MsgBox "Khong tim thay"
Else
  Exit Sub
End If
End Sub