Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
trying to build in a check
Hi
This code works fine, but I'm sure it can be done more easy! Can somebody help me out? Sub start() If Worksheets("atm").Range("C4").Value < "Plan.r." Then MsgBox " check again",true Exit Sub End If If Worksheets("atm").Range("D4").Value < "Inv.rg." Then MsgBox "check again", true Exit Sub End If If Worksheets("atm").Range("H4").Value < "type" Then MsgBox "check again", true Exit Sub End If etc... etc.... Call AE_1B2 End Sub Thanks in advance. Bernd |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
trying to build in a check
One way:
Option Explicit Sub StartIt() Dim myCell As Range Set myCell = Worksheets("ATM").Range("C4") Select Case LCase(myCell.Value) Case Is = LCase("plan.r"), LCase("inv.rg."), LCase("type") MsgBox "Check again" Exit Sub End Select MsgBox "other stuff here" End Sub bernd wrote: Hi This code works fine, but I'm sure it can be done more easy! Can somebody help me out? Sub start() If Worksheets("atm").Range("C4").Value < "Plan.r." Then MsgBox " check again",true Exit Sub End If If Worksheets("atm").Range("D4").Value < "Inv.rg." Then MsgBox "check again", true Exit Sub End If If Worksheets("atm").Range("H4").Value < "type" Then MsgBox "check again", true Exit Sub End If etc... etc.... Call AE_1B2 End Sub Thanks in advance. Bernd -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Build workbook by xml | Excel Programming | |||
Build Formula | Excel Worksheet Functions | |||
How to build build a macro that automatically imports | Excel Programming | |||
Build a Macro | Excel Programming | |||
Build Add-in in C++ | Excel Programming |