Home > Forum Home > Excel Portfolio Optimization Template > Run time error 438 Share

Run time error 438

Excel Help for Run Time Error 438 in Excel Portfolio Optimization Template


Forum TopicPost Reply Login

Run Time Error 438

Rate this:
(3/5 from 1 vote)
Angryis anyone can help me with this,when i run this program, this window appreas

microsoft visual basic
running time error '438'


then, i can only stop this program

THANK YOU~
 meilin
 Posted by on
 
Replies - Displaying 1 to 10 of 13Order Replies By: Most Recent | Chronological | Highest Rated
Confused
Run tim error
Rate this:
(4/5 from 2 votes)
Version 2007 - with 4 products and 5 yrs price information for each
 Posted by on
Confused
Run time error 438
Rate this:
(4/5 from 2 votes)
Resolution Process
  1. Start Excel.
  2. Select Addins from the Tools menu.
  3. Click the Browse button.
  4. Navigate to C:\Program Files (x86)\Jetreports.
  5. Select the Jetreports.xla file.
  6. Click OK. if you receive a prompt to overwrite, click Yes.
Regards,
Rachel Gomez
 rachel
 Posted by on
Confused
Run time error 438
Rate this:
(3/5 from 1 vote)
Start Excel
Select Addins from the Tools menu
Click the Browse button
Navigate to C:\Program Files (x86)\Jetreports
Select the Jetreports.xla file
Click OK
if you receive a prompt to overwrite, click Yes
     
The Jet Excel add-in should now be re-added.

Regards,
Peter
 Posted by on
Confused
Run time error 438
Rate this:
(3/5 from 1 vote)
Start Excel
Select Addins from the Tools menu
Click the Browse button
Navigate to C:\Program Files (x86)\Jetreports
Select the Jetreports.xla file
Click OK
if you receive a prompt to overwrite, click Yes
     
The Jet Excel add-in should now be re-added.

Regards,
Peter
 Posted by on
Confused
Error 438 -- further info
Rate this:
(3/5 from 1 vote)
Hi Excel Helper,

Here's the specific line which Excel 2003 pointed out when  I clicked "debug" as you suggested to do --

 ActiveWorkbook.Worksheets("Value of Incentives by Cust").Sort.SortFields.Clear

Any idea what the issue might be? As I mentioned before the macro runs perfectly in Excel 2007.

Thanks much!
 [email protected]
 Posted by on
Shocked
Error 438 -- PLEASE help
Rate this:
(3/5 from 1 vote)
I am running these two macros in my spreadsheet in Excel 2007 and they run perfectly. However, my colleague sees a runtime 438 error when she tries to run it in Excel 2003. Any ideas? PLEASE help.

See my macros below:


Macro 1)

VBA Code:
Sub Sort()
'
' Sort Macro

    ActiveWorkbook.Worksheets("Value of Incentives by Cust").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Value of Incentives by Cust").Sort.SortFields.Add _
        Key:=Range("U19:U80"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Value of Incentives by Cust").Sort
        .SetRange Range("O19:U80")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub


Macro 2)
VBA Code:

Sub VOIbyCustomer()
'
' VOIbyCustomer Macro
'
    Application.Goto Reference:="Targeted"
    Selection.ClearContents
    Range("B18:I80").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "E8:E9"), CopyToRange:=Range("Targeted"), Unique:=False
  
      ActiveWorkbook.Worksheets("Value of Incentives by Cust").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Value of Incentives by Cust").Sort.SortFields.Add _
        Key:=Range("U19:U80"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Value of Incentives by Cust").Sort
        .SetRange Range("O19:U80")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply

End With
 
Range("N15").Select
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollColumn = 13


End Sub





 [email protected]
 Posted by on
Confused
Run time error 438
Rate this:
(3/5 from 1 vote)
When I post the following code in VBA    "If Target.Worksheets("Sheet2").Column = 2 And Target.Worksheets("Sheet2").Row = 3 Then"
I get a run time error 438 prompt.  What do I need to do to avoid this error prompt when trying to specify which worksheet a row and column are located in?
 Posted by on
Fedup
Input data
Rate this:
(3/5 from 1 vote)
This could be due to the input data for the optimization. 

If you like, you can send through the template as a reply to the notification of this post and we can investigate this for you.

 Excel Business Forums Administrator
 Posted by on
Oops
Microsoft Excel Versions
Rate this:
(3/5 from 1 vote)
Which version of Excel are you using and how many products do you have in your Input sheet?
 Excel Business Forums Administrator
 Posted by on
Fedup
Problem replicating the error
Rate this:
(3/5 from 1 vote)
We have made many tests with Excel 2007 4 products and 5 years and cannot replicate the error.  If you could reply to the notification email of this post with your template, then we can run it with your data and resolve this.

Thank you in advance.

 Excel Business Forums Administrator
 Posted by on
 Displaying page 1 of 2 

Find relevant Excel templates and add-ins for Run time error 438 in the

© Business Spreadsheets   Legal   Follow us: