TRY THIS:

Select Case Crit_Value
    Case 0
        Cells(25, 1).Value = "No Order"
    Case Is < 0
        Cells(25, 1).Value = "Error Crit_value < 0"
    Case Is < Init_Inven
        Cells(25, 1).Value = "No order inventory on hand>Crit value"
        Order_Amt = Desire_Inven - Init_Inven
        Cells(30, 1).Value = "Number of units to order"
        Cells(30, 2).Value = Order_Amt
        Cells(31, 1).Value = "Optimal starting inventory"
        Cells(31, 2).Value = Desire_Inven
        Cells(32, 1).Value = "Critical value for determining if an
order shoould be placed"
        Cells(32, 2).Value = Crit_Value
End Select

- What I'd done?
I'm using value property instead of text and using case statements as
they should be.



For more tips, tricks, downloads and problem solutions: visit -->
http://www.excelitems.com
------------------------------------------------------------------------
Regards
*Ashish **Jain*
Analyst, CSC
Microsoft Certified Application (Excel) Specialist
Excel and VBA Trainer
Author -> www.excelitems.com
+91-9999-40-48-43
---------------------------------------------------------------------------­­----------
---------------------------------------------------------------------------­­----------



On Apr 18, 1:03 am, larry <laurence.tha...@navy.mil> wrote:
> Any idea why the second case triggers run time error 1004, application
> defined or object defined error. this should be standard cell input.
>
> Thanks for the help.
>
> Select Case Crit_Value
>    Case Crit_Value = 0
>     Cells(25, 1).Text = "No Order"
>     Case Crit_Value < 0
>     Cells(25, 1).Text = "Error Crit_value < 0"
>     Case Crit_Value < Init_Inven
>     Cells(25, 1).Text = "No order inventory on hand>Crit value"
>     Order_Amt = Desire_Inven - Init_Inven
>     Cells(30, 1).Text = "Number of units to order"
>     Cells(30, 2).Value = Order_Amt
>     Cells(31, 1).Text = "Optimal starting inventory"
>     Cells(31, 2).Value = Desire_Inven
>     Cells(32, 1).Text = "Critical value for determining if an order
> shoould be placed"
>     Cells(32, 2).Value = Crit_Value
>     End Select
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at 
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 

To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain  @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---

Reply via email to