複数のシートから1枚のマスターシートに特定のデータを転送

Question

私はVBAの初心者です。ご協力をお願いします。 オーダーのデータを含む新しいシートを追加し続けるデータベースがあります。 シートを追加するたびに、リストのシート名とそのセルの特定のセルが自動リフレッシュされたマスターシートを作成したいとします。 ありがとうございます。

Answer 1

私は、（シート1は、マスターシートことになっている）、これを試してみたし、期待どおりに動作している：

Sub foo() 
i = 0 
For Each Ws In ThisWorkbook.Worksheets 
    If Ws.Name <> "Sheet1" Then 'Do not include the Master Sheet 
     Sheet1.Cells(i, 1).Value = Ws.Name 
     x = i 
     Ws.UsedRange.copy Destination:=Sheet1.Range("B" & i) 
     i = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row 
     For y = x To i 
      Sheet1.Cells(y, 1).Value = Sheet1.Cells(x, 1).Value 
     Next y 
    End If 
i = i + 1 
Next 
End Sub 

新しいシートが追加されたときにコードをトリガするために：

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
    'put the code here 
End Sub