| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Easy code!!!!
Hi
Can this code be written in one line!!!! thanks in advance If (InStr(1, ZoneNo, "us", vbTextCompare) 0) Then sREPORT_CODE = "999" ElseIf ZoneNo = 1 Then sREPORT_CODE = Format (ZoneNo, "000") ElseIf ZoneNo = 2 Then sREPORT_CODE = Format (ZoneNo, "000") ElseIf ZoneNo = 3 Then sREPORT_CODE = Format (ZoneNo, "000") ElseIf ZoneNo = 4 Then sREPORT_CODE = Format (ZoneNo, "000") ElseIf ZoneNo = 5 Then sREPORT_CODE = Format (ZoneNo, "000") End If |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
| Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
| Easy VB code question | Excel Discussion (Misc queries) | |||
| new user with easy question? not easy for me | New Users to Excel | |||
| Easy Value listing code | Excel Programming | |||
Threaded Mode
