try the below code
Sub dsf() Select Case Crit_Value Case Crit_Value = 0 Cells(25, 1).Value = "No Order" Case Crit_Value < 0 Cells(25, 1).Value = "Error Crit_value < 0" Case Crit_Value < 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 End Sub On Sat, Apr 18, 2009 at 1:33 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 > > > > -- Thanks & Regards, Harmeet Singh --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- 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 ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
