如何使用VBA宏将数据传输到所需的工作表

Question

使用VBA宏的Excel 2013。 2个名为cmdAddDate和cmdMove的命令按钮。 cmdAddDate允许添加来自ComBoBox1的另一张表。 cmdMove允许我将数据从2个文本框传输到Excel工作表。

我的问题是我不知道该使用什么，以便来自2个文本框的数据将移动到所需的工作表。

目前，我使用静态方式定义使用此代码发送数据的位置：

With Worksheets("June 1").Range("A65536").End(xlUp)

我有截图：

从我基于屏幕截图的示例中，我希望kurt能够进入工作表＆＃34; 6月2日＆＃34; ..请任何建议/帮助将不胜感激。

到目前为止，这是我的代码：

Private Sub cmdAddDate_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = ComboBox1.Value
End Sub


Private Sub cmdMove_Click()
    With Worksheets("June 1").Range("A65536").End(xlUp)
        'With UserForm1.ComboBox1.Value
        .Offset(1, 0) = UserForm1.txtName.Value
        .Offset(1, 1) = UserForm1.txtID.Value 
    End With
End Sub


Private Sub UserForm_Initialize()
    ComboBox1.Clear

    With ComboBox1
        .AddItem "June 1"
        .AddItem "June 2"
        .AddItem "June 3"
        .AddItem "June 4"
        .AddItem "June 5"
    End With
End Sub

Answer 1

根据Value中选择的ComboBox1制作工作表名称，即更改

With Worksheets("June 1").Range("A65536").End(xlUp)

到

With Worksheets(ComboBox1.Value).Range("A65536").End(xlUp)