Recover Lost Data with MicroSD Card Recovery : Charts and combo box in excel 2007 Tech Support

Charts and combo box in excel 2007

Hey all, this is something I really want to do but just don't know how.
I have a combo box, if I select something from the list it will automatically show the relevant graph, this works for everything in my list.
I have all the data for the graphs in othe sheets within the workbook, what I want to do is when the user selects something from the list I want it to show a selection of data from the graphs in h25: k50.
This is something i have been wanting to do for ages!!
Please see the link for the example of what i am trying to achieve.
http://cid-3f066e0c0428ac62.office.live.com/self.aspx/Excel%20Uploads
Thanks.
Neil.

Solutions to the Problem Charts and combo box in excel 2007

Download Error Fixer (Free)

Try this code:
Private Sub Combo1_Change()
Dim cht As ChartObject
Dim ser As Series
Dim strSheet As String
Dim wsh As Worksheet
Dim strFormula As String
Dim strRange As String
Dim col3 As Long
Dim rng As Range
For Each cht In ActiveSheet.ChartObjects
    cht.Visible = False
Next cht
Set cht = ActiveSheet.ChartObjects(Combo1.Text)
cht.Visible = True
Range("H22") = cht.Chart.ChartTitle.Caption
Range("H25:K1000").ClearContents
Set ser = cht.Chart.SeriesCollection(1)
strFormula = ser.Formula
strRange = Split(strFormula, ",")(1)
strSheet = Replace(Split(strRange, "!")(0), "'", "")
strRange = Split(strRange, "!")(1)
Set rng = Worksheets(strSheet).Range(strRange)
Select Case Combo1.Text
    Case "Referring Sites"
      col3 = 12
    Case "Top Traffic Sources"
      col3 = -1
    Case "RPC"
      col3 = 8
    Case "Adwords Keyword ECR"
      col3 = 3
    Case "New Visits vs Returning"
      col3 = -1
    Case "Region Visitors"
      col3 = -1
End Select
rng.Copy
Range("H25").PasteSpecial xlPasteValues
rng.Offset(0, 1).Copy
Range("I25").PasteSpecial xlPasteValues
If col3 > 0 Then
    Range("K24") = "Revenue"
    rng.Offset(0, col3 - 1).Copy
    Range("K25").PasteSpecial xlPasteValues
Else
    Range("K24") = ""
End If
Range("A1").Select
End Sub

This particular error can easily be resolved with a few simple steps. However, if you are not confident in your ability to use the methods below or they do not fully remove the issue on your computer, you may want to seek the assistance of a qualified repair technician who is well versed in fixing Charts and combo box in excel 2007.

Back-up the Registry of your operating system.
Find the Registry Key: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\OSUpgrade]
Note: this Registry Key should already exist, if it does not exist, create it.
Create a brand new DWORD Value that is named AllowOsUpdate
Set the Value to 0x00000001.
Close and reopen your Control Panel.
Restart the Microsoft Windows.

Recommended Method to Fix the Problem: Charts and combo box in excel 2007:

How to Fix Charts and combo box in excel 2007 with SmartPCFixer?

1. Click the button to download Error Fixer . Install it on your computer. Open it, and it will scan your system. The errors will be shown in the scan result.