Hello Everybody
I am trying to develop a macro that creates a master table based on the information found on several tables. The source tables are located in different spreadsheets within the same workbook and the contain information that is both numerical and text. The problem for me is that not all the tables have the same number of rows but they have the same number of columns.
My biggest problem is to create the appropriate loops that navigate through the table until the last row is copy and the move to the next sheet to start with the new table. I have all the tables located in the same position in each spreadsheet. I thing my biggest problem is that I am not good at developing the cycles... I need help please ....
This is what I currently have.
Sub Macro7()
'
Dim i As Integer
Dim j As Integer
Dim Loop1 As Integer
Dim DWRG As CellFormat
i = Sheets("Drawing_12").Range("B6").Range + 1
j = Sheets("Drawings_12").Range("B16").Range - 1
For Loop1 = i To j
'DRWG is the drawing number that is associated with a particular table
Sheets("12_TEST").Range("DWRG").Select
Selection.Copy
Sheets("MAsterBOM").Select
Range("B16").Select
Sheets("MAsterBOM").Paste
'Sheets("12_TEST").Range("$B$5:$N$16").AutoFilter Field:=1, Criteria1:="=BORN", _
Operator:=xlAnd
Activelcell.Value = Start_Cell
i = 1
DoAnother:
Sheets("MAsterBOM").Cell.Offset(i, 0) = ActiveCell.Offset(i, 0).Value
i = i + 1
If i < 16 Then GoTo DoAnother Else Exit Sub
Next Loop1
End Sub
Thanks a lot !!
Bookmarks