日付を検索してヒットしたセルを選択したい

Question

find関数をしようして検索を試みてますが
Nothingになってしまいます。

書き方が誤っているのか、そもそも日付検索で選定すべき関数が誤っているのか判断がつかない状況です。

そして検索出来た次のステップとして見つかったセルをアクティブにしたいのですが書き方がわからないです。

Sub 検索()

    Dim lastYear As String
    Dim lastDay As String
    Dim FoundCell As Range 
    lastYear = Sheets("設定").Range("B24").Value
    lastDay = Sheets("設定").Range("B22").Value
    
    Workbooks.Open "売上状況.xlsx"
    Sheets(lastYear).Select
    
    Set FoundCell = Sheets(lastYear).Range("A2:A1050").Find(What:=lastDay, LookIn:=xlValues)
    
	'検索してヒットしたセルを選択する処理

End Sub

lastYearやlastDayは設定シートのそれぞれのセルにワークシート関数で表示させているので
売上状況.xlsxに一致する値を入れています。

日付検索がなかなか難しく、
ご相談いただけたら幸いです。

Answer 1

以下でいかがでしょうか？
lastDay = Format(Sheets("設定").Range("B22").Value, "m月d日")

Comments

[suukun]

ありがとうございます。
?FoundCell
2020/09/12
で検索できました。

[suukun]

検索してヒットしたセルをアクティブにする方法はございますでしょうか？

[hex309]

FoundCell.Activate

ではダメですか？

[suukun]

ありがとうございます。
すみません。出来ました。
お恥ずかしい限りです。

Answer 2

Excelファイルの補足をさせていただきます。
【設定シートの値】

【検索対象の内容】

Comments

[hex309]

補足情報ありがとうございます。
ただ、質問の補足については、「回答」ではなく、質問に追記ができると思うので、そちらの機能をご利用されたほうがよろしいかと思います。

[suukun]

すみません。
助言ありがとうございます。
不足点があれば質問に追記で対応させていただきます。

Answer 3

日付の検索は、検索対象のセルがどの様になっているかで結構複雑です。

以下のURLに、様々ケースを想定した記述があるので、参考にしてみてください。
https://www.moug.net/tech/exvba/0050163.html

あと、「lastYearやlastDayは設定シートのそれぞれのセルにワークシート関数で表示させている」とのことですが、具体的にはどのようにされていますか？

私の環境で、以下のようにしたところ検索はできました。
・lastYearのデータ型をDate型にし変更
・lastYearのもとのセルの日付はTODAY関数で入力
・設定シート、検索対象、いずれもセルの書式は特に変更せず

Comments

[suukun]

ありがとうございます。
念の為、補足でワークシートの画像を張らせていただきました。