+ Reply to Thread
Results 1 to 3 of 3

Link multiple things into a single table

Hybrid View

  1. #1
    Registered User
    Join Date
    09-14-2011
    Location
    United Kingdom
    MS-Off Ver
    Excel 2003
    Posts
    3

    Link multiple things into a single table

    Hi guys, I am new to programming in Excel

    I am looking to take a matrices of data (see attachment) and display all corresponding data into a single cell

    I,e, if there are multiple '1's in a populated table it would display all that they represent in another cell

    I would like to do this for each column in the matrix. I don't think I've explained myself very clearly so if I need to give more details please just ask.

    Attachments may give some help.
    Attached Images Attached Images
    Last edited by danielshillcock; 09-20-2011 at 08:11 AM.

  2. #2
    Registered User
    Join Date
    09-14-2011
    Location
    United Kingdom
    MS-Off Ver
    Excel 2003
    Posts
    3

    Re: Link multiple things into a single cell

    Bumping for great justice!

  3. #3
    Registered User
    Join Date
    09-14-2011
    Location
    United Kingdom
    MS-Off Ver
    Excel 2003
    Posts
    3

    Re: Link multiple things into a single cell

    I have found a solution for anyone interested.

    Find row in which row sits in main table, example below

    F(ISERROR(MATCH($B$7,Capabilities!$B$6:$B$756,0)),0,MATCH(B7,Capabilities!$B$6:$B$756,0))

    Populate main table using

    Sub Macro1()
    '
    ' Macro1 Macro
    '
    
    '
    'row_start = 5 // not required?
    'row_end = 376 'end row // not required?
    'column_num = 4 'column number // not required?
    
    
    For row_n = 4 To 376 ' Range from which data cells start
        real_row_n = Worksheets("WP Reqts").Cells(row_n, 4).Value 'Cell relates to cell row on capabilities spreadsheet
       rrr = 6 ' Starting column of capabilities matrix
        If real_row_n > 0 Then
          For col = 6 To 45 'Column range in which matrix sits (Not in capabilities spreadsheet)
              jjj = Worksheets("WP Reqts").Cells(row_n, col).Value
              Worksheets("Capabilities").Cells(real_row_n + 5, rrr).Value = jjj
              rrr = rrr + 1
          Next
        End If
     Next
    End Sub
    Not very well explained, but it's here should anyone need something similar.

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1