I really need this done!!!

[Vader]

Hi everyone!
I need a code that will copy a particular cell (let`s say every second cell in column B) in every second row of the used range and copy/paste it in a column of my choosing (first empty column).Thanks in advance!

 

[unmarkedhelicopter]

Ohhh ! That's a pity ... cos I'm busy !!!

 

[scott-atkinson]

Hi everyone!
I need a code that will copy a particular cell (let`s say every second cell in column B) in every second row of the used range and copy/paste it in a column of my choosing (first empty column).Thanks in advance!

The offset function is what you need

Active.Sheet.Offset(rowOffset:=2, columnOffset:=0).Select
Selection.Copy

This should start you off.

 

[Darth Vodka]

Hi everyone!
I need a code that will copy a particular cell (let`s say every second cell in column B) in every second row of the used range and copy/paste it in a column of my choosing (first empty column).Thanks in advance!

write 1 and 2 in third column, copy that down, filter it for 2, copy, then paste in a new sheet

or in code (if you must)

Sub CopySomeStuff ()
    dim iRow as integer

    for i = 1 to 100
          range("a1").offset(i,0)=range("b1").offset(2*i,0)

    next
End Sub