Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy & paste (To: choice)
Try this -- it assumes that all your copy-from data is in a range name
"SourceRange" and that a single cell with enough room below it for al the output is named "TargetRange" Sub Transpozem() Dim srng As Range, trng As Range, ctr As Integer Set srng = ActiveSheet.Range("SourceRange") Set trng = ActiveSheet.Range("TargetRange") ctr = 1 For Each Cell In srng If Cell.Value < "" Then trng.Offset(ctr, 0) = Cell.Value ctr = ctr + 1 End If Next Cell End Sub Regards, billy -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't Copy and Paste or Paste Special between Excel Workbooks | Excel Discussion (Misc queries) | |||
Copy, paste without file name referenced after paste | Excel Discussion (Misc queries) | |||
Copy; Paste; Paste Special are disabled | Excel Discussion (Misc queries) | |||
Excel cut/Paste Problem: Year changes after data is copy and paste | Excel Discussion (Misc queries) | |||
I cannot paste from one workbook to another. Copy works, paste do. | Excel Discussion (Misc queries) |