Pasting into worksheet from another worksheet's data. Help

[MurraySMTH]

Hello all,

I am having trouble with my code. I am trying to write a code that recognizes that Sheet 4 column A&B match each other though they contain different data.

So if column A on "sheet 4" and column J on sheet "Template upload" match, then paste column B on Sheet 4 to replace column J on Sheet "template upload".

Sheet 4 Sheet "Template Upload"

My code better explains the method i am going for.

 Sub LocationCodes_to_ColumnJ()
  
    a = Worksheets("Sheet4").Cells(Rows.Count, 1).End(xlUp).Row
    
    
    For i = 2 To a
    
    Next
    
    If Worksheets("Sheet4").Cells(i, 1).Value = Worksheets("Sheet4").Cells(i, 2).Value Then
    
    
    Worksheets("Sheet4").Cells(i, 2).Value = Worksheets("Template Upload").Cells(i, 10).Value
  
    Worksheets("Sheet4").Cells(i, 2).Copy
    
 Destination = Worksheets("Template Upload").Cells(i, 10)
 
End If

End Sub

 

[LazyBug]

Try this on a copy of your data.

Sub Codes_to_J()
Dim ShFrom As Worksheet, ShTo As Worksheet, lr As Long, i As Long
    Set ShFrom = ActiveWorkbook.Worksheets("Sheet4")
    Set ShTo = ActiveWorkbook.Worksheets("Template Upload")
    
    lr = ShFrom.Cells(Rows.Count, 1).End(3).Row
    
    With ShFrom
        For i = 2 To lr
            Dim ColACell As String
            ColACell = .Cells(i, 1).Value
            If ColACell <> .Cells(i, 2).Value Then ShTo.Cells(i, 10).Value = ColACell
        Next i
    End With
End Sub

 

[MurraySMTH]

Hi Lazy Bug, This pasted A in Sheet 4 to the J column Template upload Sheet... So basically A = B (Sheet 4) and if J ("Template Upload")= A (Sheet 4) paste the values in B (Sheet 4) to J (Template Upload).

So replace J (Template Upload) with B (Sheet 4) only if B matches with A (Sheet 4).

 

[LazyBug]

So replace J (Template Upload) with B (Sheet 4) only if B matches with A (Sheet 4).

Hello! What about

Sub Codes_to_J()
Dim ShFrom As Worksheet, ShTo As Worksheet, lr As Long, i As Long
    Set ShFrom = ActiveWorkbook.Worksheets("Sheet4")
    Set ShTo = ActiveWorkbook.Worksheets("Template Upload")
    
    lr = ShFrom.Cells(Rows.Count, 1).End(3).Row
    
    With ShFrom
        For i = 2 To lr
            Dim ColBCell As String
            ColBCell = .Cells(i, 2).Value
            If ColBCell = .Cells(i, 1).Value Then ShTo.Cells(i, 10).Value = ColBCell
        Next i
    End With
End Sub

 

[MurraySMTH]

Thank you so much Lazy Bug! You have been such a wonderful help.

 

[LazyBug]

You are welcome, thanks for the feedback.