close

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

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 software 的頭像
    software

    software

    software 發表在 痞客邦 留言(0) 人氣()