| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multiple If Statement problem
I am cutting a PO an trying to save it based on the account or project
number. Here is part of the code: Dim POFname as String If Len(Range("F39").Value) = 12 Then POFname = "PO " & Range("D6").Value & " for Store " & Right(Range("F39").Value, 4) & ".xls" 'If Len(Range("F39").Value) = 18 Then 'POFname = "PO " & Range("D6").Value & " for Project " & Left(Range("F39").Value, 6) & ".xls" 'If Len(Range("F39").Value) = 11 Then POFname = "PO " & Range("D6").Value & " for Dept " & Right(Range("F39").Value, 3) & ".xls" 'End If 'End If End If ActiveWorkbook.SaveAs FileName:=("C:\Documents and Settings\gregr\My documents\POs\") & _ POFname It all works as expected except if I uncomment the If statement that relates to project. F39 value can be any of these formats: xxx-xxx-xxx (Dept) xxx-xxx-xxxx (Store) xx-xxx-xxx-xxx-xxx (project) The expect file name results should be: PO xxxx for Dept xxx PO xxxx for Project xx-xxx PO xxxx for Store xxxx TIA Greg |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Multiple If Statement problem
try this out
Sub test() Dim POFname As String If Len(Range("f39")) = 12 Then POFname = "PO " & Range("D6").Value & " for Store " & _ Right(Range("f39").Value, 4) & ".xls" ElseIf Len(Range("f39")) = 18 Then POFname = "PO " & Range("D6").Value & " for Project " & _ Left(Range("f39").Value, 6) & ".xls" ElseIf Len(Range("f9")) = 11 Then POFname = "PO " & Range("D6").Value & " for Dept " & _ Right(Range("f39").Value, 3) & ".xls" End If Debug.Print POFname End Sub -- Gary "GregR" wrote in message oups.com... I am cutting a PO an trying to save it based on the account or project number. Here is part of the code: Dim POFname as String If Len(Range("F39").Value) = 12 Then POFname = "PO " & Range("D6").Value & " for Store " & Right(Range("F39").Value, 4) & ".xls" 'If Len(Range("F39").Value) = 18 Then 'POFname = "PO " & Range("D6").Value & " for Project " & Left(Range("F39").Value, 6) & ".xls" 'If Len(Range("F39").Value) = 11 Then POFname = "PO " & Range("D6").Value & " for Dept " & Right(Range("F39").Value, 3) & ".xls" 'End If 'End If End If ActiveWorkbook.SaveAs FileName:=("C:\Documents and Settings\gregr\My documents\POs\") & _ POFname It all works as expected except if I uncomment the If statement that relates to project. F39 value can be any of these formats: xxx-xxx-xxx (Dept) xxx-xxx-xxxx (Store) xx-xxx-xxx-xxx-xxx (project) The expect file name results should be: PO xxxx for Dept xxx PO xxxx for Project xx-xxx PO xxxx for Store xxxx TIA Greg |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Multiple If Statement problem
try this out
Sub test() Dim POFname As String If Len(Range("f39")) = 12 Then POFname = "PO " & Range("D6").Value & " for Store " & _ Right(Range("f39").Value, 4) & ".xls" ElseIf Len(Range("f39")) = 18 Then POFname = "PO " & Range("D6").Value & " for Project " & _ Left(Range("f39").Value, 6) & ".xls" ElseIf Len(Range("f9")) = 11 Then POFname = "PO " & Range("D6").Value & " for Dept " & _ Right(Range("f39").Value, 3) & ".xls" End If Debug.Print POFname End Sub -- Gary "GregR" wrote in message oups.com... I am cutting a PO an trying to save it based on the account or project number. Here is part of the code: Dim POFname as String If Len(Range("F39").Value) = 12 Then POFname = "PO " & Range("D6").Value & " for Store " & Right(Range("F39").Value, 4) & ".xls" 'If Len(Range("F39").Value) = 18 Then 'POFname = "PO " & Range("D6").Value & " for Project " & Left(Range("F39").Value, 6) & ".xls" 'If Len(Range("F39").Value) = 11 Then POFname = "PO " & Range("D6").Value & " for Dept " & Right(Range("F39").Value, 3) & ".xls" 'End If 'End If End If ActiveWorkbook.SaveAs FileName:=("C:\Documents and Settings\gregr\My documents\POs\") & _ POFname It all works as expected except if I uncomment the If statement that relates to project. F39 value can be any of these formats: xxx-xxx-xxx (Dept) xxx-xxx-xxxx (Store) xx-xxx-xxx-xxx-xxx (project) The expect file name results should be: PO xxxx for Dept xxx PO xxxx for Project xx-xxx PO xxxx for Store xxxx TIA Greg |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Multiple If Statement problem
Dim POFname as String
If Len(Range("F39").Value) = 12 Then POFname = "PO " & Range("D6").Value & " for Store " & _ Right(Range("F39").Value, 4) & ".xls" Elseif Len(Range("F39").Value) = 18 Then POFname = "PO " & Range("D6").Value & " for Project " & _ Left(Range("F39").Value, 6) & ".xls" Elseif Len(Range("F39").Value) = 11 Then POFname = "PO " & Range("D6").Value & " for Dept " & _ Right(Range("F39").Value, 3) & ".xls" End If -- Regards, Tom Ogilvy "GregR" wrote in message oups.com... I am cutting a PO an trying to save it based on the account or project number. Here is part of the code: Dim POFname as String If Len(Range("F39").Value) = 12 Then POFname = "PO " & Range("D6").Value & " for Store " & Right(Range("F39").Value, 4) & ".xls" 'If Len(Range("F39").Value) = 18 Then 'POFname = "PO " & Range("D6").Value & " for Project " & Left(Range("F39").Value, 6) & ".xls" 'If Len(Range("F39").Value) = 11 Then POFname = "PO " & Range("D6").Value & " for Dept " & Right(Range("F39").Value, 3) & ".xls" 'End If 'End If End If ActiveWorkbook.SaveAs FileName:=("C:\Documents and Settings\gregr\My documents\POs\") & _ POFname It all works as expected except if I uncomment the If statement that relates to project. F39 value can be any of these formats: xxx-xxx-xxx (Dept) xxx-xxx-xxxx (Store) xx-xxx-xxx-xxx-xxx (project) The expect file name results should be: PO xxxx for Dept xxx PO xxxx for Project xx-xxx PO xxxx for Store xxxx TIA Greg |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Multiple If Statement problem
Tom and Gary, thank you very much
Greg |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| If statement with multiple criteria and multiple results | Excel Discussion (Misc queries) | |||
| Problem with If Statement | Excel Worksheet Functions | |||
| If Statement Problem | Excel Discussion (Misc queries) | |||
| IF statement problem | Excel Worksheet Functions | |||
| IF statement problem | Excel Programming | |||
Hybrid Mode
