Yea I think it's a better solution, but Shahina want to copy only
visible rows if you don't know..............
On May 22, 8:37 pm, TAlgo <trading.a...@gmail.com> wrote:
> Try this if this helps
>
> Sub CopyPaste()
> Dim ws As Worksheet
> For Each ws In Worksheets
>
> If ws.Name <> "JAN" Then
> ws.Select
> ws.Application.Run "Macro1"
> End If
> Next
> End Sub
>
> Sub Macro1()
> Range("A2:B13").Select ' select all the data range
> Selection.Copy
> Sheets("Summary Sheet").Select
> ActiveSheet.Paste
> End Sub
>
> shannu shannu wrote:
> > Hi All
> >
> > I have many sheets and I want to copy in one main excel sheet
> > but I want to copy ne after the other exce sheet's data, it shd be like a
> > ladder or a staircase.
> >
> > Sheets like A1, B1, C1 etc and one man sheet called "JAN".
> > I want to copy all the visible rows which are present in A1, B1,C1 and
> > paste it in Jan excel one after the other.
> >
> > Regards,
> > Shahina
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
