D
DynamiteSkippy
I am trying to brainstorm some ideas for the following issue.
I have several worksheets that I would like to consolidate into a single
sheet. On each sheet the rows and columns are slightly diffrent. What I would
like to do is build the ConsolidatedSheet by looping through all the
worksheets which fulfil a criteria and then populate the ConsolidatedSheet at
each pass checking both row and column for matches if none found then
creating new row or column
For Each Wksht In ThisWorkbook.Worksheets
Wksht.Activate
Select Case Left(Wksht.Name, 1)
Case Is = "Q"
Call NewSub 'Inside of which I am thinking two loops( row &
column)
'which will iterated through cells on
the Wksht and check
' for matches in (column A, ActiveRow)
and
'(Activecolumn,Row 1) and in the event
of a
' mismatch write the code to add another
column or row
Case Else
End Select
Next
Like many beginners I occasionally complicate the simple and at times
reinvent the wheel. Is there any easier way?
I have several worksheets that I would like to consolidate into a single
sheet. On each sheet the rows and columns are slightly diffrent. What I would
like to do is build the ConsolidatedSheet by looping through all the
worksheets which fulfil a criteria and then populate the ConsolidatedSheet at
each pass checking both row and column for matches if none found then
creating new row or column
For Each Wksht In ThisWorkbook.Worksheets
Wksht.Activate
Select Case Left(Wksht.Name, 1)
Case Is = "Q"
Call NewSub 'Inside of which I am thinking two loops( row &
column)
'which will iterated through cells on
the Wksht and check
' for matches in (column A, ActiveRow)
and
'(Activecolumn,Row 1) and in the event
of a
' mismatch write the code to add another
column or row
Case Else
End Select
Next
Like many beginners I occasionally complicate the simple and at times
reinvent the wheel. Is there any easier way?