+ Reply to Thread
Results 1 to 3 of 3

Thread: Select column from table using variable table name -- VBA

  1. #1
    Registered User
    Join Date
    10-01-2009
    Location
    Durham, NC
    MS-Off Ver
    Excel 2007
    Posts
    14

    Select column from table using variable table name -- VBA

    Hello. I am trying to select various table columns or cells for editing using VBA. In my script, the user enters a department name and the month. These variables are then combined to create the variable tableName. The script then selects the appropriate data, creates a table, and names it tableName. So far so good.

    Next, I want to be able to select columns to enter formulas and formatting. For example, I tried using this code to calculate a percentage column:
    Range(tableName & [% Spent]).FormulaR1C1 = _
            (tableName & [[#This Row],[Encumbrances]] + tableName & [[#This Row],[YTD]]) / tableName & [[#This Row],[REV BUD]]
    but I get a "Type mismatch" error.

    Elsewhere, I want to select a few columns and format them. My selection statement reads:
    Range(tableName & [[#All],[Encumbrances]:[REV BUD]]).Select
    but again, it doesn't work.

    Would using ListObjects terminology help?

    Thanks a lot,
    JJ
    Last edited by jscott15; 09-08-2010 at 10:03 AM.

  2. #2
    Forum Guru romperstomper's Avatar
    Join Date
    11-04-2008
    Location
    Apparently I can't say
    MS-Off Ver
    Apparently I can't say
    Posts
    8,274

    Re: Select column from table using variable table name -- VBA

    You need to use quotes not square brackets when concatenating the table name and columns:
    Range(tableName & "[#All],[Encumbrances]:[REV BUD]").Select

  3. #3
    Registered User
    Join Date
    10-01-2009
    Location
    Durham, NC
    MS-Off Ver
    Excel 2007
    Posts
    14

    Re: Select column from table using variable table name -- VBA

    Thank you for this help. I was able to get it working, as in the following example:

    Range(tableName & "[% Spent]").FormulaR1C1 = _
            "=" & "(" & tableName & "[[#This Row],[Encumbrances]] +" & tableName & "[[#This Row],[YTD]])" & "/" & tableName & "[[#This Row],[REV BUD]]"

+ Reply to Thread

Thread Information

Users Browsing this Thread

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

Tags for this Thread

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