Posted to microsoft.public.excel.programming

mangesh_yadav[_77_] mangesh_yadav[_77_] is offline

external usenet poster

Posts: 1

Array Question

Sub Button1_Click()

i = 1
For Each sht In Worksheets
If sht.Name < "Sheet4" Then
For Each cell In sht.Range("A1:A10")
ActiveSheet.Cells(1, i) = cell
i = i + 1
Next
End If
Next

End Sub

this considers that you have data in 3 sheets and you have a total of
sheets only. all data is put in sheet4.

- Manges

--
Message posted from http://www.ExcelForum.com

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Array Question	Renee	Excel Worksheet Functions	0	June 29th 05 07:10 PM
Array question	mickiedevries[_9_]	Excel Programming	3	August 24th 04 06:58 PM
Array question	Steve Farrar	Excel Programming	2	February 18th 04 04:21 PM
Array question	Stuart[_5_]	Excel Programming	1	August 6th 03 04:13 AM
Is this an array question?	Stuart[_5_]	Excel Programming	0	August 5th 03 08:53 PM

All times are GMT +1. The time now is 12:16 AM.

About Us

"It's about Microsoft Excel"

Menu

About Us