If statement in macro

Hi

I want the macro to type in column on "c" the status "On Time" or Delayed"
depending of the following criteria:
- if A= MTL and B = 2 then C= "on Time"
- if A<> ATLN OR VAN and B =1 then C ="on time"
- if A=ATLN ot VAN then C="out of ON PU"
- Else "Delayed"

A B c

MTL 2
ATLN 5
VAN 7
LOND 1

I wrote the below proceduce but there is an error. Could anyone help me to
write this procedure properly. Thanks in advance.

Sub Job()

Range ("C1).Select
ActiveCell.Value = "=if ActiveCell.Offset(0,-2)= "MONT" and
ActiveCell.Offset(0,-1)=2 then Active.Cell.Value="On Time"
Else
if ActiveCell.Offset(0,-2) <> "ATLN" or If ActiveCell.Offset(-2,0)<> "VAN"
and ActiveCell.Offset(0,-1)=1 then ActiveCell.Offset.Value="On Time"
Else
if ActiveCell.Offset(0,-2) = "ATLN" or If ActiveCell.Offset(0,-2)= "VAN" then
ActiveCell.Value="Out of ON PU"
Else
ActiveCell.Value="Delayed"
End if

End ()



Orquidez

Jim
Sat May 10 18:42:18 CDT 2008

Maybe this...
'--
Function LiesAndMore()
Dim rng As Range
Set rng = ActiveCell

Select Case True
Case Len(rng.Value) = 0
Exit Function
Case rng.Value = "MTL" And rng(1, 2).Value = 2
rng(1, 3).Value = "on time"
Case rng.Value = "ATLN", rng.Value = "VAN"
rng(1, 3).Value = "out of ON PU"
Case rng(1, 2).Value = 1
rng(1, 3).Value = "on time"
Case Else
rng(1, 3).Value = "Delayed"
End Select
End Function
--
Jim Cone
Portland, Oregon USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




"orquidea" <orquidea@discussions.microsoft.com>
wrote in message
Hi
I want the macro to type in column on "c" the status "On Time" or Delayed"
depending of the following criteria:
- if A= MTL and B = 2 then C= "on Time"
- if A<> ATLN OR VAN and B =1 then C ="on time"
- if A=ATLN ot VAN then C="out of ON PU"
- Else "Delayed"

A B c

MTL 2
ATLN 5
VAN 7
LOND 1

I wrote the below proceduce but there is an error. Could anyone help me to
write this procedure properly. Thanks in advance.

Sub Job()
Range ("C1).Select
ActiveCell.Value = "=if ActiveCell.Offset(0,-2)= "MONT" and
ActiveCell.Offset(0,-1)=2 then Active.Cell.Value="On Time"
Else
if ActiveCell.Offset(0,-2) <> "ATLN" or If ActiveCell.Offset(-2,0)<> "VAN"
and ActiveCell.Offset(0,-1)=1 then ActiveCell.Offset.Value="On Time"
Else
if ActiveCell.Offset(0,-2) = "ATLN" or If ActiveCell.Offset(0,-2)= "VAN" then
ActiveCell.Value="Out of ON PU"
Else
ActiveCell.Value="Delayed"
End if
End ()

Orquidez

orquidea
Sun May 11 14:19:00 CDT 2008

Thanks!

"Jim Cone" wrote:

> Maybe this...
> '--
> Function LiesAndMore()
> Dim rng As Range
> Set rng = ActiveCell
>
> Select Case True
> Case Len(rng.Value) = 0
> Exit Function
> Case rng.Value = "MTL" And rng(1, 2).Value = 2
> rng(1, 3).Value = "on time"
> Case rng.Value = "ATLN", rng.Value = "VAN"
> rng(1, 3).Value = "out of ON PU"
> Case rng(1, 2).Value = 1
> rng(1, 3).Value = "on time"
> Case Else
> rng(1, 3).Value = "Delayed"
> End Select
> End Function
> --
> Jim Cone
> Portland, Oregon USA
> http://www.realezsites.com/bus/primitivesoftware
> (Excel Add-ins / Excel Programming)
>
>
>
>
> "orquidea" <orquidea@discussions.microsoft.com>
> wrote in message
> Hi
> I want the macro to type in column on "c" the status "On Time" or Delayed"
> depending of the following criteria:
> - if A= MTL and B = 2 then C= "on Time"
> - if A<> ATLN OR VAN and B =1 then C ="on time"
> - if A=ATLN ot VAN then C="out of ON PU"
> - Else "Delayed"
>
> A B c
>
> MTL 2
> ATLN 5
> VAN 7
> LOND 1
>
> I wrote the below proceduce but there is an error. Could anyone help me to
> write this procedure properly. Thanks in advance.
>
> Sub Job()
> Range ("C1).Select
> ActiveCell.Value = "=if ActiveCell.Offset(0,-2)= "MONT" and
> ActiveCell.Offset(0,-1)=2 then Active.Cell.Value="On Time"
> Else
> if ActiveCell.Offset(0,-2) <> "ATLN" or If ActiveCell.Offset(-2,0)<> "VAN"
> and ActiveCell.Offset(0,-1)=1 then ActiveCell.Offset.Value="On Time"
> Else
> if ActiveCell.Offset(0,-2) = "ATLN" or If ActiveCell.Offset(0,-2)= "VAN" then
> ActiveCell.Value="Out of ON PU"
> Else
> ActiveCell.Value="Delayed"
> End if
> End ()
>
> Orquidez
>
>
>