2017-04-14 68 views
-1

我需要为命令按钮“Add Entry”编写一个代码,该代码将把单元格中输入的数据添加到另一个工作表的表中。自动输入数据到另一个工作表

该表具有与图像中所述相同的标题。 enter image description here

我已经创建了用于添加数据输入的代码。谢谢!

+0

你有写过任何代码吗? – Digvijay

+0

我已经编写了从单元格中选择数据的代码,但由于我不知道如何将这些数据添加到表格中,然后将后面的数据添加到它下面的行中,我被卡住了,等等。 – Kunal

+0

使用偏移量到达新行,并使用'endxlDown'来查找最后使用的行。 – Digvijay

回答

1
name = Range("D8").Value 
    des = Range("D10").Value 
    veh = Range("D12").Value 
    start = Range("D14").Value 
    finish = Range("D16").Value 

    Sheets("Master Sheet").Select 

    LR = Range("A" & Rows.Count).End(xlUp).Row 

    Range("A" & LR).Offset(1, 0).Select 

    i = ActiveCell.Row 
    Cells(i, 1).Formula = start 
    Cells(i, 2).Formula = finish 
    Cells(i, 3).Formula = name 
    Cells(i, 4).Formula = des 
    Cells(i, 5).Formula = veh 

您每次都会将条目添加到新行中。我假定你的工作表名称为主工作表,数据正在发送。你也可以根据你的喜好命名标题。

相关问题