將新數據複製到其他工作表中

Question

我有一個工作表叫做mainData，它包含十種產品的所有數據。

當我在mainData中輸入新數據時，我想自動將新數據複製到另一個產品工作表的最後一行。當我在mainData中輸入新數據時，如何識別屬於哪個產品工作表的新數據，從而將新數據複製到產品工作表中？

我被困在複製到另一個工作表，因爲我需要根據產品的類型複製到另外十個工作表。

這就是我所做的mainData：

With Sheets("mainData") 
    LastRow = .Range("B" & .Rows.Count).End(xlUp).Row + 1 

    .Range("B" & LastRow) = ComboBox1.Text 
    .Range("C" & LastRow) = TextBox1.Text 
    .Range("D" & LastRow) = TextBox2.Text 
    .Range("E" & LastRow) = TextBox3.Text 
    .Range("F" & LastRow) = TextBox4.Text 
    .Range("G" & LastRow) = TextBox5.Text 
    .Range("H" & LastRow) = ComboBox2.Text 
    .Range("I" & LastRow) = TextBox6.Text 
    .Range("J" & LastRow) = TextBox7.Text 
    .Range("K" & LastRow) = TextBox8.Text 


    Range("B32:B320").Select 
    ActiveWorkbook.Worksheets("mainData").Sort.SortFields.Clear 
    ActiveWorkbook.Worksheets("mainData").Sort.SortFields.Add Key:=Range("B32:B305") _ 
    , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _ 
    "prod1, prod2, prod3, prod4, prod5, prod6, prod7, prod8, prod9, prod10" _ 
    , DataOption:=xlSortNormal 
With ActiveWorkbook.Worksheets("mainData").Sort 
    .SetRange Range("B32:W305") 
    .Header = xlYes 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With 

這裏就是我mean.when我進入新PROD1數據到mainData工作，我想將自動複製到產品1名的工作表的最後一行。我可能會輸入許多類型的產品，例如prod2，prod4到mainData中，以便如何將這些數據複製到其特定的產品工作表中？

Answer 1

這是你正在嘗試？ （UNTESTED）

另外我還沒有做任何錯誤處理。我相信你會處理的:)護理

Dim prd As String 
Dim ws As Worksheet 
Dim LastRow As Long 

'~~> Extract the number from the combobox 
prd = Trim(Replace(ComboBox1.Text, "prod", "")) 

'~~> Decide which sheet the data needs to be written to 
'~~> Please ensure that sheets have names like "Product 1", "Product 2" etc 
Set ws = ThisWorkbook.Sheets("Product " & prd) 

'~~> Update it to the relevant sheet 
With ws 
    LastRow = .Range("B" & .Rows.Count).End(xlUp).Row + 1 

    .Range("B" & LastRow) = ComboBox1.Value 
    .Range("C" & LastRow) = TextBox1.Text 
    .Range("D" & LastRow) = TextBox2.Text 
    .Range("E" & LastRow) = TextBox3.Text 
    .Range("F" & LastRow) = TextBox4.Text 
    .Range("G" & LastRow) = TextBox5.Text 
    .Range("H" & LastRow) = ComboBox2.Value 
    .Range("I" & LastRow) = TextBox6.Text 
    .Range("J" & LastRow) = TextBox7.Text 
    .Range("K" & LastRow) = TextBox8.Text 

    '~~> Sort the data 
    With .Range("B2:W" & LastRow) 
     .Sort Key1:=ws.Range("B2"), Order1:=xlAscending, Header:=xlYes, _ 
     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
     DataOption1:=xlSortNormal 
    End With 
End With 

'~~> Update it in mainData 
With Sheets("mainData") 
    LastRow = .Range("B" & .Rows.Count).End(xlUp).Row + 1 

    .Range("B" & LastRow) = ComboBox1.Value 
    .Range("C" & LastRow) = TextBox1.Text 
    .Range("D" & LastRow) = TextBox2.Text 
    .Range("E" & LastRow) = TextBox3.Text 
    .Range("F" & LastRow) = TextBox4.Text 
    .Range("G" & LastRow) = TextBox5.Text 
    .Range("H" & LastRow) = ComboBox2.Value 
    .Range("I" & LastRow) = TextBox6.Text 
    .Range("J" & LastRow) = TextBox7.Text 
    .Range("K" & LastRow) = TextBox8.Text 

    '~~> Sort the data 
    With .Range("B2:W" & LastRow) 
     .Sort Key1:=Sheets("mainData").Range("B2"), Order1:=xlAscending, Header:=xlYes, _ 
     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
     DataOption1:=xlSortNormal 
    End With 
End With