文字列を検索して特定の列の別のワークシートにコピーして貼り付けます

Question

私は比較的VBAを初めて使っていて、ゆっくりと学習しています。

私は私の最初のワークシート上の列Cに単語PASSを探し、その後もPASS呼ばれる二次ワークシートに行全体をコピーする非常に基本的なマクロを持っています。

列A:Eからその行のデータのみをコピーして貼り付けようとしています。以下は私の現在のコードです。私は.range("A:E")を追加しようとしましたが、何もしません。

この特定の行の列A-Eの情報のみをコピーする方法については、ご了承ください。

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim C As Range 

    If Intersect(Target, Me.Range("C:C")) Is Nothing Then Exit Sub 
    For Each C In Intersect(Target, Me.Range("C:C")).Cells 
    If C.Text = "PASS" Then 
     C.EntireRow.Copy Worksheets("PASS").Cells(Rows.Count, "C").End(xlUp).Offset(1).EntireRow 
    End If 
    Next 
End Sub 

Answer 1

私はあなたのコードを適応して、次のように変更しました。この

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim C As Range 

    If Intersect(Target, Me.Range("C:C")) Is Nothing Then Exit Sub 
    For Each C In Intersect(Target, Me.Range("C:C")).Cells 
    If C.Text = "PASS" Then 
     cells(C.Row,1).resize(,5).Copy Worksheets("PASS").Cells(Rows.Count, "C").End(xlUp).Offset(1).EntireRow 
    End If 
    Next 
End Sub 

Answer 2

をお試しください：

• 変更がでた場合
• コードに簡単に維持するために、いくつかのRangeの変数を定義しました列Cの場合、Targetセルは行を返します
• 最後の行を取得することによりPASSシート上のターゲット行を見つける+ 1
• はE
• にTargetの列が、列Aを使用してコピーされるデータは、定義対象範囲の最初のセルを取得し、次に行いますここでは、コードです

コピー：

Private Sub Worksheet_Change(ByVal Target As Range) 

    Dim rngSource As Range 
    Dim lngTargetRow As Long 
    Dim rngTarget As Range 

    'was change in column C ? 
    If Intersect(Target, Me.Range("C:C")) Is Nothing Then 
     Exit Sub 
    End If 

    'change was in column C - was PASS entered 
    If Target.Text = "PASS" Then 
     'get row to copy to on PASS sheet 
     lngTargetRow = Worksheets("PASS").Cells(Rows.Count, "C").End(xlUp).Row + 1 
     'get source range 
     Set rngSource = Me.Range("A" & Target.Row & ":E" & Target.Row) 
     'set target range 
     Set rngTarget = Worksheets("PASS").Cells(lngTargetRow, 1) 
     'do the copy 
     rngSource.Copy Destination:=rngTarget 
    End If 

End Sub