+ Reply to Thread
Results 1 to 4 of 4

Thread: R1C1 Entire Column

  1. #1
    Registered User
    Join Date
    09-16-2010
    Location
    London, England
    MS-Off Ver
    Excel 2003
    Posts
    24

    R1C1 Entire Column

    Hey I have a column of Cell Links that I would like to make static

    so I have the cell formulas:

    ='Sum Data'!B49
    ='Sum Data'!B50
    'Sum Data'!B51
    ....
    'Sum Data'!B312
    and I would like to transpose a the column into a row with the cell values

    ='Sum Data'!$B$49
    ='Sum Data'!$B$50
    'Sum Data'!$B$51
    ....
    'Sum Data'!$B$312
    Any ideas?

  2. #2
    Forum Moderator DonkeyOte's Avatar
    Join Date
    10-22-2008
    Location
    Suffolk, UK
    MS-Off Ver
    2002, 2007 & 2010
    Posts
    21,423

    Re: R1C1 Entire Column

    The requirements aren't very clear...

    If you're saying you want the links to B49:B312 to be stored horizontally as opposed to vertically then one obvious problem given the implied use of XL2003 is a lack of columns
    (your range B49:B312 covers 264 rows and you have less than 264 columns available in XL2003)

  3. #3
    Registered User
    Join Date
    09-16-2010
    Location
    London, England
    MS-Off Ver
    Excel 2003
    Posts
    24

    Re: R1C1 Entire Column

    sorry i'll update that now, right now I'm using office for mac 2011.

  4. #4
    Forum Moderator DonkeyOte's Avatar
    Join Date
    10-22-2008
    Location
    Suffolk, UK
    MS-Off Ver
    2002, 2007 & 2010
    Posts
    21,423

    Re: R1C1 Entire Column

    OK - but I'm still not sure I follow the requirements exactly...

    If we assume for sake of demo you're saying you want Sheet1!A1:JD1 to hold links to 'Sum Data'!B49:B312 respectively then

    With Sheets("Sheet1").Cells(1, "A")
       .Resize(, 264).FormulaR1C1 = "=INDEX('Sum Data'!C2,49+(COLUMNS(RC" & .Column & ":RC)-1))"
    End With
    modify the starting Range (With) as necessary

    If the plan is store just values then obviously the links themselves aren't necessary

    edit: adding code re: above

    Sheets("Sheet1").Cells(1, "A").Resize(, 264).Value = Application.Transpose(Sheets("Sum Data").Range("B49:B312").Value)
    Last edited by DonkeyOte; 10-25-2010 at 07:26 AM.

+ 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.2.0