Thank for the replies. On Apr 19, 7:52 am, Ashish Jain <26may.1...@gmail.com> wrote: > 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- Hide quoted text - > > - Show quoted text -
--~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- 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 ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---