.FindとOffsetを使用してVBAコードをデバッグする方法は？

Question

私はVBAを練習しています。私は自分のコードにいくつかの助けと訂正が必要です。 この作業では、コンボボックスから選択した値のワークシートを検索する検索ツールを作成しています。それぞれの結果が最初のページに表示されます。

問題：私は範囲rFoundに.Find方法を定義されたコードで

1. 。各ワークシートで、検索された値は列Dにあります。列BからEに行をコピーしたいと思います。私はどのようにオフセットを使ってその範囲を選択しようとしたのですが、エラーが発生するかどうか試してみました。なぜ、どのように修正するのですか？

2. 結果を貼り付ける（リストする）ときは、最初のページの3行目の列Kから開始します。コードを実行すると、正しいターゲットが選択されますが、何も貼り付けられません。これを修正するには？

私はまた、各検索結果の後にドキュメントヘッダーをコピーするには、いくつかの試みを作ったが、私はそれらをコメントアウト、getOwnerで行を無視してください。

Dim ws As Worksheet, OutputWs As Worksheet, wsLists As Worksheet 
Dim rFound As Range ', getOwner As Range 
Dim strName As String 
Dim count As Long, LastRow As Long 
Dim IsValueFound As Boolean 
'Dim cboSelectName As ComboBox 
Dim a As String 


IsValueFound = False 
Set OutputWs = Worksheets("Teszt") '---->change the sheet name as required 
LastRow = OutputWs.Cells(Rows.count, "A").End(xlUp).Row 
Set wsLists = Worksheets("Lists") 

a = ComboBox1.Value 

On Error Resume Next 
strName = a 
If strName = "" Then Exit Sub 
For Each ws In Worksheets 
    If ws.Name <> "Output" Then 
     With ws.UsedRange 
      Set rFound = .Find(What:=strName, After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole) 
      If Not rFound Is Nothing Then 
       Application.Goto rFound, True 
       IsValueFound = True 
       'MsgBox rFound.Row 
       rFound.EntireRow.Copy 
       'Rfound keres - rFound.Range(rFound(Offset(-2,")),rFound.Offset(1,"")).Copy ' ---> This is a suggestion 
       OutputWs.Cells(LastRow + 2, 11).PasteSpecial xlPasteAll 
       'getOwner.Range(K2, R2).Copy  ' attempt to copy the header for each search result 
       'getOwner.Cells(LastRow + 1, 6).Paste 
       Application.CutCopyMode = False 
       LastRow = LastRow + 1 
      End If 
     End With 
    End If 
Next ws 
On Error GoTo 0 
If IsValueFound Then 
    OutputWs.Select 
    MsgBox "Search Complete!" 
Else 
    MsgBox "Value not found" 
End If 

Answer 1

あなたは選択行全体ですが、あなたは、行全体をコピーする場合、あなたはそれが機能しない理由の列Aにそれをのみコピーすることができ、列K.にそれを貼り付けています。だから私はあなたがオフセット部分で作業することをお勧めします。 オフセットでは、最初の部分は行で、2番目の部分は列です。 あなたは、

Dim sth as Range 
set sth = .range(.rfound.offset(0,-2),.rfound.offset(0,1)).copy 

をそのような何かを行うことができますしかし、私はそれを確認していません。それほど良くはありません。