Hi,

I have a worksheet with a lot of data in column B (rows 12 to 242) and
a column J (also rows 12 to 242) where the user can insert numbers.
I would like to create a copy function to copy the vertical data in
column B only when there is a number in column J to a new sheet and put
the vertical data from column B into a horizontal row 12 on this new
sheet.
I only don't know how to do this. Can someone help me? Thanks in
advance!


--
leonidas
------------------------------------------------------------------------
leonidas's Profile: http://www.excelforum.com/member.php...o&userid=35375
View this thread: http://www.excelforum.com/showthread...hreadid=564633

Sub TransposeData()
Dim icol as Long, rng as Range
Dim cell as Range
icol = 1
set rng = Columns(10).specialcells(xlConstants,xlNumbers)
for each cell in rng
Worksheets("Sheet2").Cells(12,icol).Value = cell.offset(0,-1).Value
icol = icol + 1
Next
end sub

--
Regards,
Tom Ogilvy


"leonidas" wrote:


Hi,

I have a worksheet with a lot of data in column B (rows 12 to 242) and
a column J (also rows 12 to 242) where the user can insert numbers.
I would like to create a copy function to copy the vertical data in
column B only when there is a number in column J to a new sheet and put
the vertical data from column B into a horizontal row 12 on this new
sheet.
I only don't know how to do this. Can someone help me? Thanks in
advance!


--
leonidas
------------------------------------------------------------------------
leonidas's Profile: http://www.excelforum.com/member.php...o&userid=35375
View this thread: http://www.excelforum.com/showthread...hreadid=564633