کد:
Sub sabt()
'Collect Data:
Sheet1.Activate
EI_Name = Range("B1").Value
EI_Factor = Range("G2").Value
EI_Date = Range("G1").Value
EI_Sum = Range("E10").Value
EI_Maliat = Range("F10").Value
EI_Count = Range("B2").Value
'Paste Data:
Sheet2.Activate
Range("A1").End(xlDown).Offset(1, 0).Range("A1").Select
ActiveCell.Value = Selection.Row - 2
ActiveCell.Offset(0, 1).Value = EI_Name
ActiveCell.Offset(0, 2).Value = EI_Factor
ActiveCell.Offset(0, 3).Value = EI_Date
ActiveCell.Offset(0, 4).Value = EI_Sum
ActiveCell.Offset(0, 5).Value = EI_Maliat
Sheet1.Activate
End Sub
علاقه مندی ها (Bookmarks)