Hi there,
Does anyone know how to take data from the same place on multiple
sheets and compile them onto a single sheet (e.g. column A:A from each
sheet, or cell A1 then put all these onto a single sheet in same or
different workbook)
Thanks
SS--
simonsmith
------------------------------------------------------------------------
simonsmith's Profile: www.excelforum.com/member.php...oamp;userid=34235
View this thread: www.excelforum.com/showthread...hreadid=540120
Simon
Try this for starters
It will copy column A from every sheet not named Summary and paste it
to the next empty column in sheet called Summary.Sub CopyData()
Dim wS As Worksheet
Dim wsS As Worksheet
Dim iCol As Integer
Set wsS = Sheets(quot;Summaryquot;)
For Each wS In Worksheets
If wS.Name lt;gt; wsS.Name Then
On Error Resume Next
iCol = Cells.Find(what:=quot;*quot;, searchorder:=xlByColumns, _
searchdirection:=xlPrevious).Column
On Error GoTo 0
iCol = iCol 1
wS.Columns(quot;a:aquot;).Copy wsS.Cells(1, iCol)
End If
Next wS
End Sub--
mudraker
------------------------------------------------------------------------
mudraker's Profile: www.excelforum.com/member.php...foamp;userid=2473
View this thread: www.excelforum.com/showthread...hreadid=540120
fantastic will try it today
Thanks very much
Simon--
simonsmith
------------------------------------------------------------------------
simonsmith's Profile: www.excelforum.com/member.php...oamp;userid=34235
View this thread: www.excelforum.com/showthread...hreadid=540120
- Jan 24 Wed 2007 20:35
macro to compile columns on multiple sheets
close
全站熱搜
留言列表
發表留言