You can also use this
‘=======
option explicit
Sub copyallsheetstoonesheet()
Dim sc As Long
Dim i As Long
sc = Sheets.Count
Sheets.Add after:=Sheets(sc)
ActiveSheet.Name = "Summary"
For i = 1 To k
Sheets(i).UsedRange.Offset(1).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next i
Columns.AutoFit
End Sub
‘==========
Don Guillett
SalesAid Software
dguille...@gmail.com
From: NOORAIN ANSARI
Sent: Monday, November 14, 2011 10:21 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ get all the datas or selected datas in different
work sheets in to one sheet
Dear Smitha,
try through below Code...
Sub Merge_Data()
Dim i, j, k As Long
k = Sheets.Count
Sheets.Add after:=Sheets(Sheets.Count)
For i = 1 To k
Sheets(i).Select
j = 2
l = Sheets(i).Range("A65536").End(xlUp).Row
Rows(j & ":" & l).Copy
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Next i
End Sub
On Mon, Nov 14, 2011 at 1:47 PM, smitha.kumari <smitha.kum...@speridian.com>
wrote:
I need help on:
Want to get all the datas or selected datas in different work sheets in to
one sheet in the same work book.
Please suggest any formula.
Regards
Smitha
--
FORUM RULES (934+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
--
Thanks & regards,
Noorain Ansari
http://excelmacroworld.blogspot.com/
http://noorain-ansari.blogspot.com/
--
FORUM RULES (934+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
--
FORUM RULES (934+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
