Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / New Users / February 2008

Tip: Looking for answers? Try searching our database.

copying data

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
renu98 - 22 Feb 2008 14:18 GMT
Hi! Every Body

This is my second post in this site
I am very disappointed with my first post solution because i can't
find any specific solution. But this time i will hope that i will find
the solution.My question is
I have a workbook which have 15 worksheet with same format. I want to
copy all the 15 worksheet into another new  worksheet without using
MACRO OR VBA.

Because i am totally stupid about MACRO OR VBA. It took much time to
copy and then paste sepertaly

For example: if sheet 1 has 500 columns and sheet 2 has 250 sheets3
has 100 and so on

I want to copy in new sheet i:e from sheet1 1to 500, then sheet2 501
to750, sheet3 751 to850 and so on.

Thanks in advance
Tim879 - 22 Feb 2008 14:49 GMT
There's no easy way to do this without using a macro.

Here's a quick macro that will do what you want.

Using macros is not a very difficult thing, it just takes a few
minutes of playing around to figure it out. The few minutes you spend
learning this will be much less time than it takes you to copy / paste
all of the data manually.

Follow these 10 simple steps to install the macro below. There's a
million ways to do this,but I find this to be the easiest for
beginners that I've helped.

1) Open Excel
2) Go to Tools-> Macro -> Record
3) In the little drop down box, select Personal Macro Workbook. Click
OK
4) Go to Tools-> Macro-> Stop Recording
5) Now go to Tools-> Macro-> Visual Basic Editor
6a) If there are no windows shown (i.e. the screen is blank except for
the menu's / toolbars on the top) go to View -> Project Explorer
6b) Look for the Personal.xls project. It will say
VBAProject(Personal.xls). Click the + sign to expand
7) Click the + sign before Modules to expand.
8) Double click on Module1. You will notice a code window (a place for
you to type text) appears on the right.
9) Finally paste the code below into this module.
10) To run the macro, go to Tools-> Macro->Macros and select
Combine_Sheets. Hit ok and the macro will run

Be sure to save changes to Personal.xls when you close excel otherwise
you'll have to do the steps above again next time you open excel.

Note: to "install" any other macros on your computer, just start at
step 6a.
Here's the macro...

Sub Combine_Sheets()
Dim wsht As Worksheet
Dim i As Integer

   'Add a worksheet for the summary
   Sheets(1).Select
   Set wsht = ActiveWorkbook.Worksheets.Add

       For i = 2 To ActiveWorkbook.Sheets.Count
               'select the next sheet
               Sheets(i).Select

               'copy the data
               Range("A1",
ActiveCell.SpecialCells(xlLastCell)).Select
               Selection.Copy ' Copy selection

               'go to last used row of the summary sheet
               wsht.Select
               Range("A" & ActiveCell.SpecialCells(xlLastCell).Row +
1).Select

               'paste the data
               Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
                   :=False, Transpose:=False ' paste values
               Application.CutCopyMode = False ' exit copy / paste
mode
               Range("A1").Select

       Next
End Sub

> Hi! Every Body
>
[quoted text clipped - 16 lines]
>
> Thanks in advance
Don Guillett - 22 Feb 2008 14:58 GMT
Try this FAST macro. It assumes that each sht has col A as the row with the
last value
Sub newsummarysheet()
Sheets.Add
ActiveSheet.Name = "Summary"
For Each ws In ActiveWorkbook.Sheets
dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
slr = ws.Cells(Rows.Count, "a").End(xlUp).Row
If ws.Name <> "Summary" Then
ws.Rows("1:" & slr).Copy Cells(dlr, 1)
End If
Next ws
End Sub

Signature

Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com

> Hi! Every Body
>
[quoted text clipped - 16 lines]
>
> Thanks in advance
scott - 22 Feb 2008 16:03 GMT
These posts provide what you need.
You must realize not using a macro is like saying you want to have
excel sheets without learning excel.
We were all there.
Using the macro recorder you will be able to learn that is not as
difficult as it apears.
Don't give up.

Once, no one knew how to use a wheel, or fire.
Push yourself.

Scott

>Hi! Every Body
>
[quoted text clipped - 16 lines]
>
>Thanks in advance
Don Guillett - 22 Feb 2008 16:10 GMT
Or, the old story about the guy that kept getting slapped when he asked
girls to sleep with him. It was worth the wait for the girl who said "YES"

Signature

Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com

> These posts provide what you need.
> You must realize not using a macro is like saying you want to have
[quoted text clipped - 29 lines]
>>
>>Thanks in advance
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.