copy & paste (To: choice)

B

billyb

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top