Replacing data in a row of sheet1 with data in a row of sheet 2 based on a field in both sheets being the same?
HERE IS WHAT I HAVE RIGHT NOW THAT WILL CHANGE THE FIRST ROW OF
APCURRENT TO THE INFORMATION IN CORPCONTACT, but would like it look the
whole sheet and change every instance of the first command being true.
Sub COPYDATA()
Dim APCURRENT As Worksheet
Dim CORPCONTACT As Worksheet
Set APCURRENT = ThisWorkbook.Sheets(1)
Set CORPCONTACT = ThisWorkbook.Sheets(2)
If APCURRENT.Range("B2").Value = CORPCONTACT.Range("A2").Value Then
APCURRENT.Range("C2").Value = CORPCONTACT.Range("B2").Value
APCURRENT.Range("D2").Value = CORPCONTACT.Range("C2").Value
APCURRENT.Range("e2").Value = CORPCONTACT.Range("d2").Value
APCURRENT.Range("f2").Value = CORPCONTACT.Range("e2").Value
APCURRENT.Range("g2).Value = CORPCONTACT.Range("f2").Value
End If
End Sub
|