excel - 複数のユーザーフォームから指定されたワークシートにデータを送信する

Question

1つのユーザーフォームのみで作業していたとき、このコードはうまく機能しました。

Private Sub CommandButtonSubmitSalesEntry_Click()

Dim nextrow As String
'find next empty row

nextrow = Application.WorksheetFunction.CountA(Range("a:a")) + 1    
Cells(nextrow, 1) = TextBoxDate.Text    
Cells(nextrow, 2) = EmployeeNames.Text    
Cells(nextrow, 3) = ComboBoxStationNames.Text    
Cells(nextrow, 4) = ComboBoxSalesRates.Text  

Unload Me
UserFormSales.Show

2番目のユーザーフォームを作成したので、彼らはランダムなワークシートにデータを送信し始めました。データを移動するワークシートを定義するにはどうすればよいですか？

Answer 1

必要なシートをアクティブ化するだけです。

Sheets("Sheet1").Activate