他のシートを参照して、値を探す方法

sh2のcell(n,1)の値と一致するものをsh1のL列から探して、13列右に移動したセルの値をsh2のcell(n,8)に入力したく、
以下のようなマクロを組みました。

sh1 = workbooks(1).worksheets(1)
sh2 = workbooks(2).worksheets(1)


    For n = 21 To 50
        sh1.Columns("L").Find(What:=sh2.Cells(n, 1)).Activate
        ActiveCell.Offset(0, 13).Activate
        sh2.Cells(n, 8).Value = ActiveCell.Value
    Next

しかし、
エラー:1004
rangeクラスのactiveメッソドが失敗しました。
のようなエラーが出てきてしまい実行することが出来ませんでした。

解決方法や、何か他の方法があれば皆様のお知恵を借りたいです。
よろしくお願いいたします。

do loopを使ってactivecell.value=""になるまで(21-50までの最後まで値が入っていない場合があるため)上記の動作を繰り返すことが出来ると大変助かります。

行動規範の内容に同意します

回答1件

ベストアンサー

アクティブでないシートのセルを選択しようとしているエラーでしょう。
事前にシートをアクティブにしておけばエラーはでなくなると思います。

vba
1    For n = 21 To 50
2        sh1.Activate
3        sh1.Columns("L").Find(What:=sh2.Cells(n, 1)).Activate
4        ActiveCell.Offset(0, 13).Activate
5        sh2.Cells(n, 8).Value = ActiveCell.Value
6    Next

そもそもValueに代入するだけならアクティブにする必要はないです。
また、一致するデータがなかった場合はエラーになりますので、
これらを考慮すると下記のようなコードになります。

vba
1    Dim Findcell As Range
2    For n = 21 To 50
3        Set Findcell = sh1.Columns("L").Find(What:=sh2.Cells(n, 1))
4        If Not  Findcell Is Nothing Then '一致するセルが見つかったら
5            sh2.Cells(n, 8).Value = Findcell.Offset(0, 13).Value
6        End If
7    Next