cel-macros@googlegroups.com"
Sent: Thu, March 4, 2010 3:16:35 PM
Subject: RE: $$Excel-Macros$$ Clever way to transpose required
Hi,
And just to add that you will need XL2007, since earlier versions don't have
enough rows for your requirements (about 180
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:
Sub Macro1()
Dim c As Integer
Dim j As Long
j = 0
Dim add, l As String
Sheets("Sheet1").Select
Range("XFD1").Select
Selection.End(xlToLeft).Select
add = ActiveCell.Address
l = Mid(add, 2, (InStrRev(add, "$") - 2))
c = ActiveCell.Column
Dim i, k, clm As Long
Sheets("Sheet1").Select
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
Please attach the sample workbook,so that we can help
Properly
Happy to Help
:)
Shyam
On Thu, Mar 4, 2010 at 5:19 PM, Gerry wrote:
> 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 o
