VBA：一致条件に基づいて別のワークシートに値を投稿

Question

編集：私はあまりにも複雑にしていたと思います。以下のコードは私が望むことをしますが、object'_Global 'のメソッド' Range 'がエラーに失敗しました。どのようにそれを修正するための任意のアイデア？

Sub Test() 

Dim var1 As String 
Dim var3 As Variant 
Dim var4 As Integer 

var1 = Worksheets("wage run").Range("D1") 
var3 = Worksheets("with Changes").Range("A1:A138") 

var4 = Application.WorksheetFunction.Match(var1, var3, 0) 



Select Case Range("b7").HasFormula 
Case Is = False 
    Sheets("wage run").Select 
    Range("B7").Copy 
    Sheets("With Changes").Select 
    ***Range(Cells(var4, 5)).Select*** 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
End Select 

End Sub 

Answer 1

私は別の投稿から回答を得ました。あなたのご意見ありがとうございました！

Sub tgr() 

Dim rngFound As Range 
Dim strFirst As String 
Dim strID As String 

strID = Worksheets("wage run").Range("D1") 

Set rngFound = Worksheets("with changes").Columns("A").Find(strID, Worksheets("with changes").Cells(Rows.Count, "A"), xlValues, xlWhole) 
If Not rngFound Is Nothing Then 
    strFirst = rngFound.Address 
     End If 

Select Case Range("b7").HasFormula 
Case Is = False 
    Sheets("wage run").Select 
    Range("B7").Copy 
    Sheets("With Changes").Select 
    Cells(rngFound.Row, 5).Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
    Sheets("wage run").Select 
End Select 


Set rngFound = Columns("A").Find(strID, rngFound, xlValues, xlWhole) 

Set rngFound = Nothing 

End Sub