How to add new items from list A to list B

UK Excel

New Member
Joined
Aug 26, 2013
Messages
11
Office Version
  1. 365
Platform
  1. MacOS
Hi.

I have a sheet where I am working out product sales.

In Sheet1 Column A I have all my SKUs.

Each week when I product a report I want to store the current sales into Sheet2 so I can look back over time.

The problem is, as we add new products, the list of SKUs in Sheet1 will grow.

So I need to run through the SKUs on Sheet1 and if I found a matching SKU on Sheet2 then I will simply add the sales for that SKU.
If I do not find that SKU on Sheet2 then I need to add that SKU to the end of the list.

In short I need to compare two lists, then anything in list A that is not in list B, add it to list B, the rest of the copying data I can manage.
I cannot rearrange list B though since it has sales data in other columns. I can only ADD to list B.

I need to do this with a macro as I need to pass off this sheet to a colleague who does not understand Excel too much.

Thanks
 

Excel Facts

Can Excel fill bagel flavors?
You can teach Excel a new custom list. Type the list in cells, File, Options, Advanced, Edit Custom Lists, Import, OK
Let's start with this.
Read the sku in sheet1, in column A, and look for them in sheet2 in the column. If you can not find it, add the sku to the end of column A on sheet2.


Code:
Sub add_new_items()
    Dim sh1 As Worksheet, sh2 As Worksheet, c As Range, f As Range
    
    Set sh1 = Sheets("Sheet1")
    Set sh2 = Sheets("Sheet2")
    For Each c In sh1.Range("A2", sh1.Range("A" & Rows.Count).End(xlUp))
        Set f = sh2.Range("A:A").Find(c, LookIn:=xlValues, lookat:=xlWhole)
        If f Is Nothing Then
            sh2.Range("A" & Rows.Count).End(xlUp)(2) = c.Value
        End If
    Next
End Sub
 
Upvote 0

Forum statistics

Threads
1,214,431
Messages
6,119,462
Members
448,899
Latest member
maplemeadows

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top