添字私はそれがこのエラーになります作成したこの小さなマクロを実行しようとすると

Question

を提出異なるエクセルに検索使用して「実行時エラー 『9』：範囲外の添字」

Sub Escala() 

ActiveCell.Value = Workbooks("C:\Users\ASUS\Documents\File test.xlsm").Worksheets("2016").Range("A:AJ").Find("Julho") 

End Sub 

似たようなエラーで他の人をチェックしようとしましたが、理由を理解できませんでした。皆さんが助けてくれることを願っています。事前に

おかげで

Answer 1

検索は閉じたブック上では動作しません。ブックが開いている場合は、ブックの名前を使用してブックのコレクションを参照します。参照しようとする前に、Findメソッドでセルが見つかったかどうかを調べる必要があります。

Sub Escala() 
    Dim Target As range 
    Set Target = Workbooks("File test.xlsm").Worksheets("2016").range("A:AJ").Find("Julho") 

    If Not Target Is Nothing Then 
     ActiveCell.Value = Target.Value 
    End If 

End Sub