Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
PasteSpeacial - transpose
Hi all I am new to vba, and am having problems transposing data. This i supposed to select a column of data ( until there is a blank cell) copy and then attempt to paste / transpose into cell B2 on the sam sheet. All works except for the paste line.Please would someon explain why it does not work? Thanks Sub SelectWithoutBlanks() Dim j As Integer Do j = j + 1 'Debug.Print j If ActiveSheet.Cells(j, 1).Value = "" Then Exit Do Loop ActiveSheet.Range(Cells(1, 1), Cells(j - 1, 1)).Select ActiveSheet.Range(Cells(1, 1), Cells(j - 1, 1)).Copy MsgBox ("Range Selected") ActiveSheet.Cells(1, 2).Select ActiveSheet.PasteSpecial Transpose:=True End Su -- Willo ----------------------------------------------------------------------- Willow's Profile: http://www.excelforum.com/member.php...fo&userid=1607 View this thread: http://www.excelforum.com/showthread.php?threadid=27523 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need transpose? help.... | Excel Worksheet Functions | |||
Transpose | Excel Worksheet Functions | |||
Transpose from last to first | Excel Discussion (Misc queries) | |||
transpose | Excel Worksheet Functions | |||
I WANT TO TRANSPOSE LINKS, AS WE TRANSPOSE VALUES | Excel Worksheet Functions |