Hi,

And just to add that you will need XL2007, since earlier versions don't have 
enough rows for your requirements (about 180,000)

Regards - Dave.
 


Date: Thu, 4 Mar 2010 06:16:37 -0800
From: schreiner_p...@att.net
Subject: Re: $$Excel-Macros$$ Clever way to transpose required
To: excel-macros@googlegroups.com





this should work:
 
Option Explicit
Sub Summarize()
    Dim R, C, OutRow, OutSheet
    Dim rMax, cMax
    OutSheet = "Summary"
    rMax = ActiveCell.SpecialCells(xlLastCell).Row
    cMax = ActiveCell.SpecialCells(xlLastCell).Column
    OutRow = 0
    For R = 1 To rMax
        For C = 1 To cMax
            If (ActiveSheet.Cells(R, C).Value <> "") Then
                OutRow = OutRow + 1
                Sheets(OutSheet).Cells(OutRow, 1) = ActiveSheet.Cells(R, 
C).Value
            End If
        Next C
    Next R
End Sub

 
 
Paul





From: Gerry <gmccaff...@acutus.co.uk>
To: MS EXCEL AND VBA MACROS <excel-macros@googlegroups.com>
Sent: Thu, March 4, 2010 6:49:55 AM
Subject: $$Excel-Macros$$ Clever way to transpose required

I have a large spreadsheet (say 3000 rows with 60 columns).  Not all
cells are populated.  Using that data I want to create a single column
capturing all of the data.  The number of rows will equal the number
of pieces of Data.  Help.....
Thanks in Advance
Gerry.

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com

To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!

We reach over 6,800 subscribers worldwide and receive many nice notes about the 
learning and support from the group.Let friends and co-workers know they can 
subscribe to group at http://groups.google.com/group/excel-macros/subscribe


-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com

To post to this group, send email to excel-macros@googlegroups.com
 
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
 
We reach over 6,800 subscribers worldwide and receive many nice notes about the 
learning and support from the group.Let friends and co-workers know they can 
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
                                          
_________________________________________________________________
Get personal with Windows. Download a free gift for your PC.
http://experience.windows.com

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!

We reach over 6,800 subscribers worldwide and receive many nice notes about the 
learning and support from the group.Let friends and co-workers know they can 
subscribe to group at http://groups.google.com/group/excel-macros/subscribe

Reply via email to