Macro to pull data from various sheets

Dear experts,

I have a file which has the below sheets with data sets in the below columns.
The data sets in each sheet is in different column.

Sheet Name      Data set 1      Data set 2      Data set 3      Data set 4      Data set 5      Data set 6
Os_sheet 1      A3:A1000      I3:I1000      U3:U1000      J3:J1000      K3:K1000      AH3:AH1000
ir_sheet 2      D10:D1000      F10:F1000      C10:C1000      H10:H1000      I10:I1000      AL10:AL000
IR_Sheet 3      D19:D1000      F19:F1000      C19:C1000      H19:H1000      I19:I1000      AM19:AM000
Op_Sheet 4      D26:D1000      F26:F1000      B26:B1000      E26:E1000      G26:G1000      BB26:BB1000


Need a macro which will pull the data from the various sheets and column ranges in to new sheet. This new sheet should be created as part of the macro

The data pulled by the above macro should be copied one below the other.

Thank you
ExcellearnerAsked:
Who is Participating?
 
gbanikConnect With a Mentor Commented:
Run CNTRL + SHFT + X

all working!!! same code...

u had a lot of errors in the reference table .... ranges as well as sheet names.
test-macro.xls
0
 
gbanikCommented:
Assuming your data is in Sheet1, the following code should do it. Did i get your need right?
Dim oDataRange As Range, nCtr As Long
Set oDataRange = Application.Range("Sheet1!A1").CurrentRegion
For nCtr = 2 To oDataRange.Rows.Count
    Application.Worksheets.Add
    ActiveSheet.Name = Trim(oDataRange.Cells(nCtr, 1))
    oDataRange.Rows(nCtr).Offset(, 1).Copy
    ActiveSheet.Cells(1, 1).PasteSpecial , , , True
    ActiveSheet.Cells(1, 1).Select
Next

Open in new window

0
 
Michael FowlerSolutions ConsultantCommented:
I read the requirements differently. This code will copy the listed ranges from each sheet and copies them into one column for each data set in a new worksheet.

The code does not assume that each range will be full and copies the data after the end of the last entry.

Sub copy()

   Dim lastRow As Long
   
   Application.Worksheets.Add After:=Worksheets(Worksheets.Count)
   
   lastRow = 2
   ActiveSheet.Range("A1").Value = "Data Set 1"
   Worksheets("Os_sheet 1").Range("A3:A1000").copy ActiveSheet.Range("A" & lastRow)
   lastRow = Cells(Rows.Count, "A").End(xlUp).Row
   Sheets("ir_sheet 2").Range("D10:D1000").copy ActiveSheet.Range("A" & lastRow)
   lastRow = Cells(Rows.Count, "A").End(xlUp).Row
   Sheets("IR_Sheet 3").Range("D19:D1000").copy ActiveSheet.Range("A" & lastRow)
   lastRow = Cells(Rows.Count, "A").End(xlUp).Row
   Sheets("Op_Sheet 4").Range("D26:D1000").copy ActiveSheet.Range("A" & lastRow)
   
   lastRow = 2
   ActiveSheet.Range("B1").Value = "Data Set 2"
   Sheets("Os_sheet 1").Range("I3:I1000").copy ActiveSheet.Range("B" & lastRow)
   lastRow = Cells(Rows.Count, "B").End(xlUp).Row
   Sheets("ir_sheet 2").Range("F10:F1000").copy ActiveSheet.Range("B" & lastRow)
   lastRow = Cells(Rows.Count, "B").End(xlUp).Row
   Sheets("IR_Sheet 3").Range("F19:F1000").copy ActiveSheet.Range("B" & lastRow)
   lastRow = Cells(Rows.Count, "B").End(xlUp).Row
   Sheets("Op_Sheet 4").Range("F26:F1000").copy ActiveSheet.Range("B" & lastRow)

   lastRow = 2
   ActiveSheet.Range("C1").Value = "Data Set 3"
   Sheets("Os_sheet 1").Range("U3:U1000").copy ActiveSheet.Range("C" & lastRow)
   lastRow = Cells(Rows.Count, "C").End(xlUp).Row
   Sheets("ir_sheet 2").Range("C10:C1000").copy ActiveSheet.Range("C" & lastRow)
   lastRow = Cells(Rows.Count, "C").End(xlUp).Row
   Sheets("IR_Sheet 3").Range("C19:C1000").copy ActiveSheet.Range("C" & lastRow)
   lastRow = Cells(Rows.Count, "C").End(xlUp).Row
   Sheets("Op_Sheet 4").Range("B26:B1000").copy ActiveSheet.Range("C" & lastRow)
   
   lastRow = 2
   ActiveSheet.Range("D1").Value = "Data Set 4"
   Sheets("Os_sheet 1").Range("J3:J1000").copy ActiveSheet.Range("D" & lastRow)
   lastRow = Cells(Rows.Count, "D").End(xlUp).Row
   Sheets("ir_sheet 2").Range("H10:H1000").copy ActiveSheet.Range("D" & lastRow)
   lastRow = Cells(Rows.Count, "D").End(xlUp).Row
   Sheets("IR_Sheet 3").Range("H19:H1000").copy ActiveSheet.Range("D" & lastRow)
   lastRow = Cells(Rows.Count, "D").End(xlUp).Row
   Sheets("Op_Sheet 4").Range("E26:E1000").copy ActiveSheet.Range("D" & lastRow)

   lastRow = 2
   ActiveSheet.Range("E1").Value = "Data Set 5"
   Sheets("Os_sheet 1").Range("K3:K1000").copy ActiveSheet.Range("D" & lastRow)
   lastRow = Cells(Rows.Count, "E").End(xlUp).Row
   Sheets("ir_sheet 2").Range("I10:I1000").copy ActiveSheet.Range("E" & lastRow)
   lastRow = Cells(Rows.Count, "E").End(xlUp).Row
   Sheets("IR_Sheet 3").Range("I19:I1000").copy ActiveSheet.Range("E" & lastRow)
   lastRow = Cells(Rows.Count, "E").End(xlUp).Row
   Sheets("Op_Sheet 4").Range("G26:G1000").copy ActiveSheet.Range("E" & lastRow)
   
   lastRow = 2
   ActiveSheet.Range("F1").Value = "Data Set 6"
   Sheets("Os_sheet 1").Range("AH3:AH1000").copy ActiveSheet.Range("D" & lastRow)
   lastRow = Cells(Rows.Count, "E").End(xlUp).Row
   Sheets("ir_sheet 2").Range("AL10:AL1000").copy ActiveSheet.Range("E" & lastRow)
   lastRow = Cells(Rows.Count, "E").End(xlUp).Row
   Sheets("IR_Sheet 3").Range("AM19:AM1000").copy ActiveSheet.Range("E" & lastRow)
   lastRow = Cells(Rows.Count, "E").End(xlUp).Row
   Sheets("Op_Sheet 4").Range("BB26:BB1000").copy ActiveSheet.Range("E" & lastRow)

End Sub

Open in new window

0
Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

 
ExcellearnerAuthor Commented:
Hi Michael,

Thank you for the comment.

I ran the macro, and it populated the first data field from sheet 1 into a new sheet and then gave the following error message:

1.run time error subscript out of range.


Kindly help.

Thank you
0
 
gbanikCommented:
@Excellearner
Did i understand your need right? If not, please advice.
0
 
ExcellearnerAuthor Commented:
Gbanik,

the data fields are in several sheets in different columns,

Hence a macro is required to pull the data from vairous sheets and put the similar data fields one below the other (coming from various sheets) and different data fields in different columns.

thank you
0
 
gbanikCommented:
So it means... i did the exact opposite of what u wanted? (please see my code)
If yes, I could rework it back ;)
0
 
ExcellearnerAuthor Commented:
Gbanik,

I do not think the code is right.

Thank you, coudl you please help me

0
 
gbanikCommented:
Almost done ... one bit of info...
Do u need the Project Names or the Dataset as the columns in the new sheet?
I am guessing it is Dataset.
0
 
gbanikCommented:
Ok... didnt get a reply so going by my assumption.

Here is the file attached and the code to do so.

Rum CNTRL + SHFT + X to run the macro

.... I had to fill dummy data to satisfy all your ranges... hence the file size.
Also, your had some of the ranges addresses wrong....Data set 6....AL10:AL000 and AM19:AM000
Fetchdata.zip
0
 
Michael FowlerSolutions ConsultantCommented:
Excel learner

I ran my script against some test data and it worked
There was a small bug that put the data out of alignment but that is corrected.

If this still does not work could you please post your data for me to test against

test.zip
0
 
ExcellearnerAuthor Commented:
gbanik,

I tried themacro on my sheet a nd i got the following error message.
method 'range' of object'_ application failed'.

Michael,

I tried the macro susggested by you and i got the folowing error message:

run time error 9
subscript out of range

Kindly help.

Thank you,

0
 
gbanikCommented:
I just download the zip file and tested again... it works.

Did u check the macro on my file?

Are you trying to use my macro on your sheet and it failed?
0
 
ExcellearnerAuthor Commented:
Gbanik

thank you for the time.

Yes it worked on your file but it failed on my file.

Becasuse of confidentiality i am not able to share the file.

Thank you
0
 
gbanikCommented:
If you can share the piece of code that failed I may be able to help you.
0
 
Michael FowlerSolutions ConsultantCommented:
Excellearner

I will second gbaniks suggestion, unless of course you can overwrite the sensitive data in the original file with some test data. Just use the drag option to copy down. Any column not used can simply be deleted
0
 
ExcellearnerAuthor Commented:
Michael and Gbanik,

Thank you,

Please find attached my live file.

Thank you
test-macro.xls
0
 
Michael FowlerConnect With a Mentor Solutions ConsultantCommented:
The sheet names did not match. All fixed


test-macro-1.xls
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.