Findの使い方について教えてください

質問

資材算出のシートのD3の値をこのシートのJ1に貼り付け、J1の値をA5～A1000の間で完全一致で検索し、そのセルをアクティブにしたいのですが、検索がエラーが発生し上手くいきません。
Whatは文字の指定をしなければならなのでしょうか？
最終的には資材算出のD3の値を別のシートのA5～A1000の間で検索をかけたいです。

Private Sub CommandButton3_Click()
worksheets("資材算出").Range("D3") = Range("J1")

Range("A5:A1000").Find(What:=Range("J1") _
, After:=ActiveCell _
, LookIn:=xlValues _
, LookAt:=xlWhole _
, SearchOrder:=xlByColumns _
, SearchDirection:=xlNext _
, MatchCase:=False _
, MatchByte:=False _
, SearchFormat:=False).Activate
End Sub

よろしくお願いいたします。

回答No.1

tom04 · ベストアンサー

こんにちは！

質問通りを丁寧にやると・・・

Private Sub CommandButton3_Click()
Dim c As Range
With Worksheets("資材算出")
Range("J1") = .Range("D3")
Set c = Range("A5:A1000").Find(what:=Range("J1"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Activate
Else
MsgBox "該当データなし"
End If
End With
End Sub

こんな感じではどうでしょうか？

※　万一のためにエラー回避を考慮した方が良いと思います。m（_ _）m

お礼

tom04さん。

直ぐに回答頂いたのにお礼ができなく申し訳ございませんでした。
教えてい頂いたコードで解決出来ました。
毎回ご親切に教えて頂き感謝しています。
また、何かあれば宜しくお願いします。