検索欄、見つかったペーストの行は、私がしますVBAマクロ作成しようとしています

Question

別のシートに置き換えた場合：

1. は（特定の値の列を検索し、そのセルへのユーザーの種類/ダイアログボックス）
2. 見つかった場合は、別のシートに転記した行（特定の列から開始）を貼り付けます。

私の問題は/問題です。私のルックアップ値のインスタンスが複数ある場合は、上記のように最初のインスタンスを見つけて貼り付け、最初のペーストに隣接するルックアップ値の2番目のインスタンスの行を繰り返して貼り付ける必要があります値のすべてのインスタンス。

それがループFOR簡単なはずのようにこれは思えるが、私はあなたが2枚と、ブックがある場合は困難

Answer 1

を持っています：範囲B1でのSheet1、Sheet2の及びセル/ダイアログボックスを使用すると、以下のサブを試すことができますあなたがこれまでに試してみました何

コード

Option Explicit 


Public Sub find_move() 

Dim i As Integer 

Dim i1 As Integer 

Dim start As Integer 

Dim count_ As Long 

Dim col As Range 

Set col = Sheet1.Range("A1") 

start = 1 

count_ = Sheet1.Range("A1").CurrentRegion.Rows.Count 

For i = start To count_ 

If Sheet1.Cells(i, 1) = Sheet1.Range("B1") Then 

i1 = i 


Sheet1.Activate 

Sheet1.Range(Cells(i1, 1), Cells(count_, 1)).Select 

Selection.Copy 

Sheet2.Activate 

Sheet2.Paste 




start = i 

ActiveCell.Offset(0, 1).Activate 

End If 



Next 



End Sub