Question

我目前有一个用户表单，它将数据添加到工作表中，这只是查看第一列，并在此列的底部添加一个新条目。

然而，在另一个选项卡上，我有构建图表的数据，但是如果将新数据添加到表格的底部，图表将不会选取新条目，即使我展开了图表的数据标签。但是，如果我在表中插入一个新行，它会工作。

所以我尝试编写一些首先插入新行的代码，然后在下一个空单元格中添加来自userform的数据，但它只是在底部添加数据。

我在下面添加了我的代码。如果有人能提供帮助那就太棒了。

Private Sub CommandButton1_Click()

 Dim NextRow As Long
 Dim NextRow2 As Long


 NextRow = Application.WorksheetFunction. _
    CountA(Worksheets("Tracker Sheet").Range("A:A")) + 1
 NextRow2 = Application.WorksheetFunction. _
    CountA(Worksheets("Sheet1").Range("A:A")) + 1


  If ProjectManager.Text = "Helena Healy" Then
  Worksheets("Sheet1").Row("3:3").Insert
  End If

   Worksheets("Tracker Sheet").Cells(NextRow, 1) = projectid.Text
   Worksheets("Tracker Sheet").Cells(NextRow, 2) = WBScode.Text
   Worksheets("Tracker Sheet").Cells(NextRow, 3) = ProjectDes.Text
   Worksheets("Tracker Sheet").Cells(NextRow, 5) = ProjectManager.Text
   Worksheets("Tracker Sheet").Cells(NextRow, 4) = Building.Text
   Worksheets("Tracker Sheet").Cells(NextRow, 7) = ProjectSponsor.Text

   Worksheets("Sheet1").Cells(NextRow2, 1) = projectid.Text

 End Sub

Before

-

After Good

不幸的是，我只能添加两张图片，所以我把它当前的内容和它应该看起来的样子放在一起。目前这不是正在发生的事情，项目23将在单元格A25中排在最后。

从用户表单中将值插入表中

0 个答案: