ExcelBanter - (macro, formula,...) To Copy columm in various sheet's

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - (macro, formula,...) To Copy columm in various sheet's (https://www.excelbanter.com/excel-programming/334506-macro-formula-copy-columm-various-sheets.html)

(macro, formula,...) To Copy columm in various sheet's

I have a file in excel with various sheet's, i want to copy the columm H
(from all the sheet's) and paste in only one columm in the same file (or
another), in a automatic way (macro, formula,....).
How can this be done?????

PS. The columm contains numbers (with formulas), and it's in Excel 97

Thanks
:-D

--
pmarques
------------------------------------------------------------------------
pmarques's Profile: http://www.excelforum.com/member.php...o&userid=25110
View this thread: http://www.excelforum.com/showthread...hreadid=387118

(macro, formula,...) To Copy columm in various sheet's

untested...

Dim iLastRow As Long
Dim iNextRow As Long
Dim sh As Worksheet
Dim shSumm As Worksheet

Set shSumm = Worksheets.Add
shSumm.Name = "Sum,mary"
iNextRow= 1
For Each sh In Activeworkbook.Worksheets
If sh.Name < shSumm.Name Then
ilastRow = sh.Cells(Rows.Count,"H").End(xUp).Row
sh.Range("H1").Resize(iLastRow).Copy _
shSumm.Range("H" & iNextRow)
iNextRow = iNextRow + iLastRow
End If
Next sh

--

HTH

RP
(remove nothere from the email address if mailing direct)

"pmarques" wrote in
message ...

I have a file in excel with various sheet's, i want to copy the columm H
(from all the sheet's) and paste in only one columm in the same file (or
another), in a automatic way (macro, formula,....).
How can this be done?????

PS. The columm contains numbers (with formulas), and it's in Excel 97

Thanks
:-D

--
pmarques
------------------------------------------------------------------------
pmarques's Profile:
http://www.excelforum.com/member.php...o&userid=25110
View this thread: http://www.excelforum.com/showthread...hreadid=387118

(macro, formula,...) To Copy columm in various sheet's

Don Guillett Wrote:
A better explanation/example of what you want

+-------------------------------------------------------------------
|Filename: test.zip
|Download: http://www.excelforum.com/attachment.php?postid=3599
+-------------------------------------------------------------------

--
pmarque
-----------------------------------------------------------------------
pmarques's Profile: http://www.excelforum.com/member.php...fo&userid=2511
View this thread: http://www.excelforum.com/showthread.php?threadid=38711