macro to add up and put into the correct columns this weeks data

[tonywatsonhelp]

H ii everyone,
This is a bit complicated,, please help as i'm stuck
everyday I record the sales for that day and need a macro to add them up by product and move them to my yearly sales sheet.

So Sheet "Daily Sales"
Range D4 is the date

Range F15 to last row are the products I've sold today they might be more the one row for the same product
H15 down is the amount I've sold.

Now Sheet "Yearly Sales" is where I want to save this info,
Row 1 has dates
Row 10 down are my list of products.

So I need the sales in "daily sales" added up for each product and the data place in "Yearly Sales" under th right date and product name.

please help if you can

thanks
tony

 

[Fluff]

How about

Sub SalesData()
   Dim Cl As Range, Dt As Range
   Dim Dws As Worksheet, Yws As Worksheet
   
   Set Dws = Sheets("Daily")
   Set Yws = Sheets("Yearly")
   Set Dt = Yws.Range("1:1").find(Dws.Range("D4"), , , xlWhole, , , , , False)
   With CreateObject("scripting.dictionary")
      For Each Cl In Dws.Range("F15", Dws.Range("F" & Rows.Count).End(xlUp))
         .Item(Cl.Value) = .Item(Cl.Value) + Cl.Offset(, 2).Value
      Next Cl
      For Each Cl In Yws.Range("A10", Yws.Range("A" & Rows.Count).End(xlUp))
         Cl.Offset(, Dt.Column - 1).Value = .Item(Cl.Value)
      Next Cl
   End With
End Sub

 

[tonywatsonhelp]

Thanks Fluff,
works perfectly
Tony

 

[Fluff]

Glad to help & thanks for the feedback