type mismatch error 13

[whcmelvin]

I am facing this error when i run this code. the values in SelectRangeAuto is all 0. all are empty cells. the error is caused by AllUnrealizedPandL = WorksheetFunction.Sum(SelectRangeAuto). Please help. Thanks

Dim SelectRangeAuto As Variant
Dim AllUnrealizedPandL As Double

    With Sheets(EmailSheetAuto)
        SelectRangeAuto = .Range(.Range("J2"), .Range("J2").End(xlDown))
        If .Range("J2").Value <> "" Then
            AllUnrealizedPandL = WorksheetFunction.Sum(SelectRangeAuto)
        End If
    End With

 

[whcmelvin]

oh. but it requires java application to run. is it possible to get the charts into excel?

 

[Norie]

You could add a webbrowser control to the worksheet but I don't know if that supports Flash.

PS What java application is required?

 

[whcmelvin]

how to add a web browsercontrol?
the program from this website http://www.java.com/en/download/

 

[Norie]

I'm not 100% sure that's needed to view Adobe Flash.

Anyway if you want to add a webbrowser goto the Developer tab, select ... and add it from the additional controls list.

Then you'll need to write code to navigate to the URL of that page.

That should allow you to display the chart on the worksheet.

 

[whcmelvin]

i only found microsoft web browser. but that one doesnt seems to be able to add anything. =X
How to write the code to navigate to that url?