v強調表示されているセルからの参照

Question

列に強調表示されたセルがいくつかあります。これらのセルの値に従って新しいブックを開きたいとします。私はこれを行うことができますが、ıこれらのセルの値の場所を新しいワークブックに指定する必要があります。 （すなわち、細胞（2,6））。私は細胞を見つけることに成功することができます、私はvlookupを使用します。私はそれが複雑すぎることを知っているが、私はそれを解決しなければならない。 findメソッドを使用しました。

Dim rFound As Range 
          With Sheets("Sheet1") 
          Set rFound = .Cells.Find(What:=ResimNo) 
end with 

Answer 1

Dim GCell As Range 

         Set GCell = ActiveSheet.Cells.Find(ResimNo) 




        'Vlookup 

           With twb.Sheets("Sheet1") 
           GCell.Offset(0, 1).Activate 
           GCell.Offset(0, 1).Value = Application.vLookup(ResimNo, tbl.Range, 2, False) 
           GCell.Offset(0, 3).Value = Application.vLookup(.Cells(p, 2), tbl.Range, 4, False) 
           GCell.Offset(0, 4).Value = Application.vLookup(.Cells(p, 2), tbl.Range, 5, False) 


                ActiveWorkbook.Close True 
           End With