根据单元格值将数据从一张表复制并粘贴到另一张表

Question

Hey guys I have a question as briefly stated on the title. To be specific, I have orders everyday and I need to put them on different worksheets according to the column "delivery provider" and "channel". image description here

I had created a userform before but I have to divide my data sheet into several sheets according to the del provider and channel, then with the code

lr = sh1.Cells(Rows.Count, 1).End(xlUp).Row

sh1.Range("A2:A" & lr).Copy Destination:=sh2.Range("B2")

to copy and paste all the columns one by one to each sheet.

But actually I have many providers(6 or more) which makes it much time consuming.

So my concern is how can I copy and paste them into the desired worksheets according to the 2 columns.

I came across and idea that I can CONST each column in "data" as source column, and CONST each column in "ems_by_sea" and others as target/destination colunm, then do the FOR/NEXT statement. But I have no idea how to CONST at different worksheets...

const firstrow = 2
const soucol_provider = sh1.cells("E"), soucol_channel = sh1.cells("F")

I tried to do it by this but VBA responds with error

Application.screenupdating = False
For i = firstrow to lr
If Sh1.Cells(i, soucol_provider).Value = "EMS" and Sh1.Cells(i, soucol_channel).Value = "by air" Then 

#copy and paste the data in current row to the sheet"ems_by_air' nex i I have no idea if there is much better way to achieve this...would you guys shed some light on this? FIY: It's not just copy and paste the exact data to the sheets since the column order in each sheet is different.

Answer 1

As part of your scope, you could select a case for your destination spreadsheet, eg:

dim destSheet as worksheet
Select case true
    case deliveryProvider = "X" and channel="Y"
        set destSheet = sheets(1)
    case deliveryProvider = "A" and channel="B"
        set destSheet = sheets(2)
End select
With destSheet
    'use .notation
End with

You can set up conditions as you deem fit, to account for your number of factors/variables.