Menu
  1. Accueil
  2. Tech Forum
  3. Office Software
  4. Excel

Multiple sheet data in one sheet in excel [Closed]

Report
-
Posts
2744
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
May 10, 2021
 -
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
Posts
2744
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
May 10, 2021
 461
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
Report

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
Answer 2 / 2

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
Report
Posts
2744
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
May 10, 2021
 461
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
Ask a question

Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!