I have a worksheet that I have users enter data, and then that data is transfered to another sheet - so that the format can be used to create other things.
They enter the following data: Item, Type, Voltage, Activity and Quantity.
Right now I have the following code
What I was wondering is if the code can be altered so that based upon the quantity entered, data would be copied over in multiples.
If the quantity is one - the line is pasted once
If the quantity is two - the line is pasted twice...and so on.
Thanks
TNEMOM
They enter the following data: Item, Type, Voltage, Activity and Quantity.
Right now I have the following code
Code:
Sub senddata()
Worksheets("QuesLinks").Select
Range("A1:E1").Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("Estimate List").Select
Dim LastCell As Range
With ActiveSheet
Set LastCell = .Cells(.Rows.Count, "A").End(xlUp)
If IsEmpty(LastCell) Then
'do nothing
Else
Set LastCell = LastCell.Offset(1, 0)
LastCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
End Sub
What I was wondering is if the code can be altered so that based upon the quantity entered, data would be copied over in multiples.
If the quantity is one - the line is pasted once
If the quantity is two - the line is pasted twice...and so on.
Thanks
TNEMOM