.findを使って探した値の行を調べたい

Question

お世話になります。
皆様の知見を是非お借りしたく投稿させて頂きました。

Dim row_num As Long

workbooks.Worksheets(1).Activate
workbokks.Worksheets(1).Cells(21, 1).Select
Set row_num = worksheets(1).worksheet(1).Columns("L").Find(What:=ActiveCell.Value).Row

このマクロを動かしたとき、最後の行でエラー(オブジェクトが必要です)が発生してしまいます。
自分なりに調べたところ、.rowの返り値は整数型なので問題ないかと思うのですがエラーが発生してしまいます。

何卒宜しくお願い致します。

Answer 1

Set row_num = worksheets(1).worksheet(1).Columns("L").Find(What:=ActiveCell.Value).Row

行番号はオブジェクトではないのでSetの代わりにLetにしてください。Letは省略可能です。
あと、worksheet(1) は削除してください。。

Let row_num =.worksheets(1).Columns("L").Find(What:=ActiveCell.Value).Row
または、
row_num = worksheets(1).Columns("L").Find(What:=ActiveCell.Value).Row

Comments

[dietter]

hatena19 様

ご回答頂きありがとうございます。

Let row_num =.worksheets(1).Columns("L").Find(What:=ActiveCell.Value).Row
でマクロを動かしたのですが、次は

実行エラー:91
オブジェクト変数またはwithブロック変数が設定されていません。

といったエラーが同じ行で発生してしまいました、、
もし、対処法をご存じでしたら教えて頂きたいです。
お手数をおかけしますが、何卒宜しくお願い致します。

[hatena19]

これも、
workbooks.Worksheets(1).Activate
workbokks.Worksheets(1).Cells(21, 1).Select
下記に修正してください。
ThisWorkbook.Worksheets(1).Activate
ThisWorkbook.Worksheets(1).Cells(1, 1).Select
ただし、対象がマクロのあるブックです。
そうでない場合は、適切なブックを指定してください。

[dietter]

hatena19 様

解決しました！！
本当にありがとうございました！！！