Change chart data range using a Drop Down List [VBA]

In this article I will demonstrate how to quickly change chart data range utilizing a combobox (drop-down list). The above image shows the drop-down list and the input range is cell range E2:E4.

Cell range E2:E4 contains the table names that points to Excel defined Tables located on sheet 2011, 2010 and 2009, see picture below. When you select a table name in the drop-down list, the chart is instantly populated and refreshed, see picture above.

Excel defined Tables are great to work with, they expand automatically when new values are added, this makes charts with data sources pointing to Excel defined Tables easy to work with. You don't need to adjust the cell references when records are added or deleted.

Here are the steps to set up this scenario:

Create a chart

Go to "Insert" tab
Press with left mouse button on "Column chart" button
Press with left mouse button on "Clustered Column" chart button

Create Combo Box

Go to "Developer" tab
Press with left mouse button on "Insert controls" button
Press with left mouse button on Combo Box (Form Control)
Press with left mouse button on and drag on the worksheet to create the combobox.

Add VBA code to a module

Press Alt + F11 to open the VB Editor.
Press with right mouse button on on your workbook in the Project Explorer window.
Press with left mouse button on "Insert"
Press with left mouse button on "Module" to insert a module to your workbook.
Copy VBA code below (Ctrl + c)
Paste VBA code to the code module, see image above.
Return to Excel

VBA code

'Name macro
Sub SelectTable()

'Apply actions to selected drop-down list
With ActiveSheet.Shapes(Application.Caller).ControlFormat

    'Make sure the selected drop-down list name is "Drop Down 1"
    If ActiveSheet.Shapes(Application.Caller).Name = "Drop Down 1" Then

        'Change Chart 1 data source
        Worksheets("Chart").ChartObjects("Chart 1").Chart.SetSourceData Source:= _
        Range(.List(.Value) & "[#All]")
        Worksheets("Chart").ChartObjects("Chart 1").Chart.PlotBy = xlRows
    End If
End With

End Sub

Assign macro

Press with right mouse button on combo box.
Press with left mouse button on "Assign macro...".
Press with left mouse button on "SelectTable".
Press with left mouse button on OK button.

Populate Combo Box

Press with right mouse button on combo box.
Press with left mouse button on "Format control..." and a dialog box appears, see image below.
Go to tab "Control".
Press with left mouse button on "Input range" button.
Select cell range E2:E4.
Press with left mouse button on OK button.

How to comment

How to add a formula to your comment
<code>Insert your formula here.</code>

Convert less than and larger than signs
Use html character entities instead of less than and larger than signs.
< becomes < and > becomes >

How to add VBA code to your comment
[vb 1="vbnet" language=","]
Put your VBA code here.
[/vb]

How to add a picture to your comment:
Upload picture to postimage.org or imgur
Paste image link to your comment.

Contact Oscar

You can contact me through this contact form