他のブックのCells.Findメソッドから行番号を返します

Question

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

私は別のブックで探している文字列の行番号を返す必要がありますと私は見ている名前から6列離れて配置します。名前は文字列に少しばらつきがあります。なぜなら、私は012lookupとは対照的にCells.Findを使用することを好みました。

私は公共の範囲として無駄に探している範囲を設定しようとしました。両方のワークブックは開いていますが、Cells.Findメソッドは、検索している範囲のブックがアクティブな場合にのみ機能します。

FYI、listrangeは、アクティブブックの名前の範囲です。 clientlistは、検索中の他のワークブックの名前付き範囲です（開いているがアクティブではありません）。clientlist2は、その名前付き範囲の宣言されたバージョンです。

は、ここでは、コードスニペットです：

Public clientlist2 As Range 

Sub sortout() 

    Dim wkb As Workbook 
    Dim clientwks As Worksheet 
    Dim listrange As Range 

    Set wkb = Workbooks("workbook.xlsm") 
    Set clientwks = wkb.Sheets("Sheet1") 
    Set clientlist2 = clientwks.Range("clientlist") 
    Set listrange = Range("A6", Range("A6").End(xlDown)) 

    For Each a In listrange 

     a.Offset(0, 6).value = clientlist2.Cells.Find(a).Row 

    Next a 

End Sub 

Answer 1

私はエラーを回避するために、そしてそれが簡単にトラブルシューティングするために作るために二段階でのため、文の中の動作を行うためにあなたをお勧めします。

私はセルを見つけてそこから何か（または何らかの性質）をコピーしようとすると、最初にそれを変数に設定しようとしていました。それ以上のもの

あなたの場合、

Dim foundValue As Range 
For Each a In listrange 
    Set foundValue = clientlist2.Cells.Find(a) 
    If Not foundValue Is Nothing Then 
    a.Offset(0, 6).Value = foundValue.Row 
    End If 
Next a 

これにより、トラブルシューティングがより簡単になります。これにより、各段階で異なる変数の値を調べることができます。 Debug.Printまたはメッセージボックス。

また、モジュールの上部にOption Explicitを追加することをお勧めします。これにより、すべての変数を定義（暗く）する必要があり、コードの途中で間違ったスペルミスを防ぐことができます。

Answer 2

ブックを非アクティブにしているときに問題が発生すると思いますので、方法を見つける前にアクティブにしてください。

ワークブック（ "BOOK4.XLS"）。