将多个用户表单中的数据提交到指定的工作表

Question

当我只使用一个用户表单时，此代码运行良好。

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

现在我已经创建了第二个Userform，他们已经开始向随机工作表提交数据了。如何定义我希望数据转到哪个工作表？

Answer 1

只需激活您想要的工作表：

Sheets("Sheet1").Activate