將數據從幾個用戶表單提交給指定的工作表

當我使用一個用戶表單時，此代碼運行良好。將數據從幾個用戶表單提交給指定的工作表

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

既然我已經創建了第二個用戶窗體，他們已經開始將數據提交給隨機工作表。如何定義我希望數據轉到哪個工作表？

來源

2013-03-09 W. Quin

只需激活您想要的表：

Sheets("Sheet1").Activate

來源

2013-03-09 08:33:43

感謝。那太容易了......許多新秀的錯誤之一來了。 – 2013-03-09 08:40:28

我的榮幸，歡迎來到[好]，祝你好運！ – 2013-03-09 08:47:00

將數據從幾個用戶表單提交給指定的工作表

回答

相關問題