3つの条件を使用して1つのシートから別のシートに行をコピーする

Question

VBAを使用して、ワークブック「トランザクションファイル」のシートを検索し、3つの基準に基づくブック「ユーティリティ」のシートにコピーしようとしています。最初の1つは、カラムAが「PV」の場合、第2の基準は、カラムMが「ユーティリティー水」「ユーティリティーエレクトリック」または「ユーティリティガス」のいずれかであり、第3のものはカラムAEが3つすべてが満たされている場合は、行をコピーして貼り付けます。

私は、このテンプレートを見つけましたが、私の基準にプラグインする場所がわからない：

Sub copyRow() 
Dim ws1 As Worksheet, ws2 As Worksheet 
Dim lastrowDest As Long, currowSrc As Long, currowDest As Long, lastrowSrc 
As Long 
Dim critvalue1 As String 

Set ws1 = Sheets("Sheet2") 
Set ws2 = Sheets("Sheet1") 

lastrowSrc = ws2.Range("AE" & Rows.Count).End(xlUp).Offset(1).Row - 1 
lastrowDest = ws1.Range("AE" & Rows.Count).End(xlUp).Row 

For currowSrc = 2 To lastrowSrc 
critvalue1 = ws2.Range("E" & currowSrc).Value 
ws2.Cells(6, 5).Value = critvalue1 
For currowDest = 2 To lastrowDest 
    If ws1.Range("E" & currowDest).Value = critvalue1 Then 
     ws2.Rows(currowSrc).Copy Destination:=ws1.Range("A" & currowDest) 
    End If 
Next currowDest 
Next currowSrc 

End Sub 

感謝を！

Answer 1

あなたが与えたコード例は、シートごとにあります。 別のワークブック内の1枚のシート、別のワークブック内の別のシートをチェックしたいとします。

だから、あなたはそのブックを開く必要があります。私は私が入力されたかを示すために私の最初の投稿を編集してきましたが、エラーを取得しています

Dim trx as workbook ' the other workbook (i.e. the other excel file). 
' trx is a vba variable that will hold the contents of the transactions excel file 
' a workbook has sheets in it. 
dim sheet1 as worksheet, sheet2 as worksheet 
' these are two vba variables holding the two sheets we'll work on. 
dim criteria1 as boolean, criteria2 as boolean, criteria3 as boolean 
' boolean variables can have the value of True or False only. 

' just for reading 
dim columnAindex as integer, columnMindex as integer, columnAEindex as integer 

columnAindex = 1 
columnMindex = Range("1M").column ' 13 
columnAEindex = Range("AE").column ' yup, that number 
set trx = Workbooks.open("trx.xlsx") 
set sheet2 = trx.Sheets(1) ' or whatever sheet by index or name. 

For Each myrow in Rows 
    criteria1 = (myrow.cells(1,columnAindex) = "PV') ' .cells(1,1) is columnA of current row 
    m = myrow.cells(1, columnMindex) ' value in cell of this current row, at column M 
    criteria2 = ((m = this) or (m = that) or (m = theother)) 
    ' if the value in AE is unique for each row, this will work: 
    ' I got that from another question on stack overflow 
    ae = myrow.cells(1, columnAEindex) ' value in our row at column AE 
    set trxAEcolumnRange = sheet2.Range("AE:AE") 
    criteria3 = IsError(Application.Match(ae, trxAEcolumnRange, 0)) ' true if could not find a match to the value in our row's ae. 


    if criteria1 and criteria2 and criteria3 then copypasterow(myrow) 
next 
trx.close() 
end sub 

sub CopyPasteRow(aRow) 
    aRow.copy 
    sheet2.range.end.paste ' no need for xlup because this is the next empty row after the data 
end sub