Three loops to this circus

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?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top