The following sub places numbers in columnA from Row1 to Row3000, where BoxSize is assigned from an earlier InputBox. Is there a faster way to do this, it surprisingly takes longer than i think it should:
For Count = 1 To 3000
Range("A1").Select
ActiveCell.Offset(3000 - Count, 0) = x + BoxSize
x = x + BoxSize
Next Count
Also, which of the following lines of code would be executed faster, they both do the same thing:
If CheckValue <= (CurrentBoxValue - (Reversal * BoxSize)) Then OtherSub
OR
If CheckValue<=(CurrentBoxValue-ActiveCell.Offset(z,-Reversal).Value) Then OtherSub
I'm not 100% the second code even works, but you get an idea of the syntax i want to use. Would one of these be faster than the other? (ie- the 1st code actuals performs math functions, the second looks up the value in a cell).
Thanks for any insight.
For Count = 1 To 3000
Range("A1").Select
ActiveCell.Offset(3000 - Count, 0) = x + BoxSize
x = x + BoxSize
Next Count
Also, which of the following lines of code would be executed faster, they both do the same thing:
If CheckValue <= (CurrentBoxValue - (Reversal * BoxSize)) Then OtherSub
OR
If CheckValue<=(CurrentBoxValue-ActiveCell.Offset(z,-Reversal).Value) Then OtherSub
I'm not 100% the second code even works, but you get an idea of the syntax i want to use. Would one of these be faster than the other? (ie- the 1st code actuals performs math functions, the second looks up the value in a cell).
Thanks for any insight.