If Statement to paste into another sheet Help

[MurraySMTH]

Hello all,

I have a code that i wrote to note that A2 and B2 are equal on Sheet 4,

If J2 on a another sheet (Template Upload) will match A2 on (Sheet4) then paste B2 of (Sheet 4) to replace J2 sheet (Template Upload)

Sub Sheet4_templateupload()

Worksheets("Sheet4").Range("A2").Value = Worksheets("Sheet4").Range("B2").Value

If Worksheets("Sheet4").Range("A2").Value = Worksheets("Template Upload").Range("J2").Value Then

Worksheets("Sheet4").Range("B2").Copy _
.Paste Destination:=Worksheets("Template Upload").Range("J2")

End If

End Sub

This is Sheet 4


ColumnA ColumnB

Template Upload

In summary, If Column A of Sheet 4 and Column J of the Template Upload Sheet match, then replace with B2 with the match of A2 of sheet 4.

Hope this is clear!

 

[MARK858]

You don't use the .Paste when using Destination:=, just...

Worksheets("Sheet4").Range("B2").Copy _
Destination:=Worksheets("Template Upload").Range("J2")

or

Worksheets("Sheet4").Range("B2").Copy _
Worksheets("Template Upload").Range("J2")

P.S. can you please use code tags when posting code rather than changing the font (especially to a fainter font)

 

[MurraySMTH]

Thank you for the note, The vba is not matching the J2 or pasting it in J2, any tips?

Sub Sheet4_templateupload()

Worksheets("Sheet4").Range("A2").Value = Worksheets("Sheet4").Range("B2").Value

If Worksheets("Sheet4").Range("A2").Value = Worksheets("Template Upload").Range("J2").Value Then

Worksheets("Sheet4").Range("B2").Copy _
Destination:=Worksheets("Template Upload").Range("J2")

End If

End Sub

Testing to see if it pasted the way that you prefer.

 

[MARK858]

Are you sure that the values in the cells exactly match i.e. expand the cells format to 15 decimal places and check

 

[MurraySMTH]

Yes all good there. The only thing that happens is A2 turns into B2's value... but no pasting to the next sheet. very weird.

 

[MARK858]

I have just set up 2 sheets with the names that you have stated and ran

Sub Sheet4_templateupload()

'Worksheets("Sheet4").Range("A2").Value = Worksheets("Sheet4").Range("B2").Value

If Worksheets("Sheet4").Range("A2").Value = Worksheets("Template Upload").Range("J2").Value Then

Worksheets("Sheet4").Range("B2").Copy _
Destination:=Worksheets("Template Upload").Range("J2")

End If

End Sub

Worksheets("Template Upload").Range("J2") populated with the contents of Worksheets("Sheet4").Range("B2") when Worksheets("Template Upload").Range("J2").Value matched Worksheets("Sheet4").Range("A2").Value.

Step through the code with F8, what happens after you reach the If statement?

 

[MurraySMTH]

Ok i took away the statement:

'Worksheets("Sheet4").Range("A2").Value = Worksheets("Sheet4").Range("B2").Value

like you suggested! it worked... Now i will fill in for the rest of the data.

Thanks for your quick help, and the note about posting in the correct forum format.

 

[MARK858]

You're welcome.