Snasui Excel Forum

:D ลองดูตัวอย่างตามด้านล่างครับ
Sub FindCell2()
Dim FindString As Date
Dim Rng As Range
FindString = Sheets("copy").Range("C4").Value
If Trim(FindString) <> "" Then
With Sheets("Plan").Range("A1:AF8")
Set Rng = .Find(What:=DateValue(FindString), _
LookIn:=xlFormulas)
If Not Rng Is Nothing ...

ขอถามต่อครับ ช่วยแนะแนวทางปรับ method find ให้ค้นหาข้อมูลชนิดวันที่ด้วยได้ไหมครับ

ตัวโมดูลที่ผมทำก็คือ FindCell2 เป็นการค้นหาข้อมูลใน Sheet Plan ที่ตรงกับเซลล์ C4 ใน Sheet Copy ซึ่งรับค่ามาจากโมดูล Calendar ปัญหาคือเมื่อถึงบรรทัด Set Rng... จะเกิด Error "Invalid Procedure Call..." ครับ

ตามไฟล์ข้างล่างครับ