试图创build代码，允许在一个页面中input数据excellogging在第二页创build一个报告
我正在创build一个跟踪表（Sheet1），在一个logging中跟踪信息，然后使用一个button，“更新”它将这个信息传递给“Sheet2”，这将是一个月度报告。
我有第2页8栏标题。
页面一是我在更新button所在的单元格中input数据的位置。
这是我的代码，我只使用了一列：
Private Sub CommandButton1_Click() Dim SerialNumber As String Worksheets("Calibration Record").Select SerialNumber = Range("E5") Worksheets("Monthly Due Report").Select Worksheets("Monthly Due Report").Range("A2").Select If Worksheets("Monthly Due Report").Range("A2").Offset(1, 0) <> "" Then Worksheets("Monthly Due Report").Range("A2").End(x1down).Select End If ActiveCell.Offset(1, 0).Select ActiveCell.Value = SerialNumber Worksheets("Calibration Record").Select Worksheets("Calibration Record").Range("A2").Select End Sub 我也尝试了所有8列无济于事。
使用上面显示的代码，我能够使其工作一次。
当我input第二行信息的数据时，它给了我“运行时错误'1004'。应用程序定义或对象定义的错误。
我一直在这个工作了近一个月，我无法弄清楚我做错了什么。 我甚至在YouTube上观看了Dinesh Kumar Takya的video，无济于事。
我已经遵循了他做了很多次的所有事情，而且我仍然能够使其工作一次，但是之后我得到了运行时错误。
对不起没有足够的意见（任何）来评论，但很确定你有x1down不xlDown在该代码段。 如果该代码没有执行，将会第一次工作，但会引发错误。 看起来像我的错字。