Previous Topic Next Topic

Multiple sheet data in one sheet in excel

Closed
pranjali - Feb 22, 2012 at 10:24 PM
TrowaD
Posts
2880
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
May 2, 2022
 - Feb 27, 2012 at 10:28 AM
Hello,



Want to copy data from multiple sheet from multiple columns in one workbook

can you please help me with that macro as well


Pranjali

2 replies

Answer 1 / 2
TrowaD
Posts
2880
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
May 2, 2022
 510
Feb 23, 2012 at 08:45 AM
Hi Pranjali,

What do you want to copy (which rows or columns or sheets or ranges?)?

Where do you want to put it?

Please provide more details in order for us to help you.

Best regards,
Trowa
0
Pranjali
Feb 23, 2012 at 10:07 PM
I want to copy multiple sheet data in sheet no 1

for example.
Sheet 2,3,4...n
want to copy
column,B,c,d,E...n

in sheet number 1
B,c,D,....Etc

would you please help me with the macro

Thanks and Regards,
Pranjali
0
Answer 2 / 2
pranjali
Feb 23, 2012 at 10:16 PM
I want to copy multiple sheet data in sheet no 1

for example.
Sheet 2,3,4...n
want to copy
column,B,c,d,E...n

in sheet number 1
B,c,D,....Etc

would you please help me with the macro

Thanks and Regards,
Pranjali
0
TrowaD
Posts
2880
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
May 2, 2022
 510
Feb 27, 2012 at 10:28 AM
Hi Pranjali,

Still not clear about the specifics.

Please give your comments on the following code: 
Sub test()
Dim lRow, lRow2 As Integer
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "Sheet1" Then GoTo Nxt
lRow = Sheets(ws.Name).Range("B" & Rows.Count).End(xlUp).Row
Sheets(ws.Name).Range("B1:E" & lRow).Copy
Sheets("Sheet1").Select
lRow2 = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Row
Sheets("Sheet1").Range("B" & lRow2).PasteSpecial
Nxt:
Next ws

Application.CutCopyMode = False

End Sub

Best Regards,
Trowa
0