Macro to fill in dates from one sheet to another finding the account line?

[tonywatsonhelp]

Hi Everyone,

I have two sheets.

1 "Raw Data" and holds a list of sales
2 "Sales" and is my official Sales list.
I need to update one column in Sales with the new data from "Raw Data"

so heres what I need.
In "Raw Data" column A has a Ref Number. (that's rows 2 to last row)
In "Sales" the same Ref Numbers are stored in Column A but not the same rows.
so I need a macro that can get the Ref Numbers from "Raw Data" and find them in "Sales" then add the value in Column J of "Raw Data" to the row it found in "Sales" column Z.

I hope that make sense?

Basically I'm trying to move data from Raw Data to Sales data by finding the Row in sales that should hold the info.

please help if you can

Thanks

Tony

 

[DanteAmor]

Try this

Sub Fill_Sales()
  Dim sh1 As Worksheet, sh2 As Worksheet, i As Long, f As Range
  Set sh1 = Sheets("Sales")
  Set sh2 = Sheets("Raw Data")
  For i = 2 To sh2.Range("A" & Rows.Count).End(xlUp).Row
    Set f = sh1.Range("A:A").Find(sh2.Cells(i, "A"), , xlValues, xlWhole)
    If Not f Is Nothing Then
      sh1.Cells(f.Row, "Z").Value = sh1.Cells(f.Row, "Z").Value + sh2.Cells(i, "J")
    End If
  Next
End Sub

 

[tonywatsonhelp]

Great,
thank you worked without any edits brilliant masive help
Tony

 

[DanteAmor]

Great,
thank you worked without any edits brilliant masive help
Tony

I'm glad to help you. Thanks for the feedback.