Excel AutoFill Macro

[SeisaT]

I need help in creating a macro that will autofill in a column the numbers in this pattern (1,1,2,2,3,3,4,4,5,5,6,6 etc) and up to 2000.

Anyone to my rescue?

Rgds,
SeisaT

 

[SkipVought]

Hi,

Don't need a macro.

You can enter in, for instance A2 & A3...

1
2

...then Select those two cells and Drag the Fill Handle, visible in the lower Right-Hand of the selection, down until you get to 2000.

Then IMMEDIATELY Copy. That puts thos 2000 cells in your Clipboard.

Select the cell after the cell containing 2000 and Paste.

Now you have 4000 cells. Just sort and you have the pattern you need.

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[zelgar]

if you want a macro...

Sub SeisaT()
Dim x As Integer, y As Integer, irow As Integer
irow = 2
For x = 1 To 2000
    For y = 0 To 1
        Cells(irow, 1) = x
        irow = irow + 1
    Next y
Next x
End Sub

or

Sub SeisaT2()
Dim x As Integer
For x = 2 To 4000 Step 2
    Range(Cells(x, 2), Cells(x + 1, 2)) = x / 2
Next x
End Sub

 

[SkipVought]

BTW, if you need macro help in the future, then please post in forum707.

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[SeisaT]

Thank you very much, Guys!

I think @SkipVought's solution will suffice for now and the note about posting to the appropriate forum is noted.

@Zelgar, I will try your code though I am still a novice and don't know much about programming.

While still at this, can you point me into the right direction regarding an online training site for learning about MS SQL Server Administration?

Rgds,
SeisaT

 

[SkipVought]

Forum183

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}