Syntax for Select Case

[Susan Hayes]

Hello, I am trying to do the following IF statement in Select Case Syntax

In cell C9 I have written:

=If(and(H9=P9,S9=0),"Filled",If(and(H9>P9,P9<>0),"Partial",""))

I also need to have the above formula to work starting at C9 and continue down the entire C column, ie. C9, C10, . . .
This includes the numeric data in columns H, P, S, starting on line 9 on down respectively.

This would certainly get me started,

Thank you,

Susan

[Bob Phillips]

What problem are you having? That formula works, maybe not as you wish, but
it works.

And why can you not just copy C9 to C10 etc.?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Susan Hayes" <[email protected]> wrote in message
news:[email protected]...
> Hello, I am trying to do the following IF statement in Select Case Syntax
>
> In cell C9 I have written:
>
> =If(and(H9=P9,S9=0),"Filled",If(and(H9>P9,P9<>0),"Partial",""))
>
> I also need to have the above formula to work starting at C9 and continue
down the entire C column, ie. C9, C10, . . .
> This includes the numeric data in columns H, P, S, starting on line 9 on
down respectively.
>
> This would certainly get me started,
>
> Thank you,
>
> Susan
>

[Susan Hayes]

The reason I wish to write the following formula in VBA is that the end users accidently delete the formula

On Tue, 29 Nov 2005 19:20:35 -0500, Susan Hayes <[email protected]> wrote:

>Hello, I am trying to do the following IF statement in Select Case Syntax
>
>In cell C9 I have written:
>
>=If(and(H9=P9,S9=0),"Filled",If(and(H9>P9,P9<>0),"Partial",""))
>
>I also need to have the above formula to work starting at C9 and continue down the entire C column, ie. C9, C10, . . .
>This includes the numeric data in columns H, P, S, starting on line 9 on down respectively.
>
>This would certainly get me started,
>
>Thank you,
>
>Susan

[Bob Phillips]

Dim iLastrow As Long
Dim iLastrow2 As Long

iLastrow = Cells(Rows.Count, "H").End(xlUp).Row
iLastrow2 = Cells(Rows.Count, "P").End(xlUp).Row
If iLastrow2 > i9lastrow Then
iLastrow = iLastrow2
End If
Range("C9").Resize(iLastrow - 8).Formula = _

"=If(and(H9=P9,S9=0),""Filled"",If(and(H9>P9,P9<>0),""Partial"",""""))"



--

HTH

RP
(remove nothere from the email address if mailing direct)


"Susan Hayes" <[email protected]> wrote in message
news:[email protected]...
> The reason I wish to write the following formula in VBA is that the end
users accidently delete the formula
>
> On Tue, 29 Nov 2005 19:20:35 -0500, Susan Hayes <[email protected]> wrote:
>
> >Hello, I am trying to do the following IF statement in Select Case Syntax
> >
> >In cell C9 I have written:
> >
> >=If(and(H9=P9,S9=0),"Filled",If(and(H9>P9,P9<>0),"Partial",""))
> >
> >I also need to have the above formula to work starting at C9 and continue
down the entire C column, ie. C9, C10, . . .
> >This includes the numeric data in columns H, P, S, starting on line 9 on
down respectively.
> >
> >This would certainly get me started,
> >
> >Thank you,
> >
> >Susan
>

[Bob Phillips]

Typo

Dim iLastrow As Long
Dim iLastrow2 As Long

iLastrow = Cells(Rows.Count, "H").End(xlUp).Row
iLastrow2 = Cells(Rows.Count, "P").End(xlUp).Row
If iLastrow2 > ilastrow Then
iLastrow = iLastrow2
End If
Range("C9").Resize(iLastrow - 8).Formula = _

"=If(and(H9=P9,S9=0),""Filled"",If(and(H9>P9,P9<>0),""Partial"",""""))"


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" <[email protected]> wrote in message
news:[email protected]...
> Dim iLastrow As Long
> Dim iLastrow2 As Long
>
> iLastrow = Cells(Rows.Count, "H").End(xlUp).Row
> iLastrow2 = Cells(Rows.Count, "P").End(xlUp).Row
> If iLastrow2 > i9lastrow Then
> iLastrow = iLastrow2
> End If
> Range("C9").Resize(iLastrow - 8).Formula = _
>
> "=If(and(H9=P9,S9=0),""Filled"",If(and(H9>P9,P9<>0),""Partial"",""""))"
>
>
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Susan Hayes" <[email protected]> wrote in message
> news:[email protected]...
> > The reason I wish to write the following formula in VBA is that the end
> users accidently delete the formula
> >
> > On Tue, 29 Nov 2005 19:20:35 -0500, Susan Hayes <[email protected]>
wrote:
> >
> > >Hello, I am trying to do the following IF statement in Select Case
Syntax
> > >
> > >In cell C9 I have written:
> > >
> > >=If(and(H9=P9,S9=0),"Filled",If(and(H9>P9,P9<>0),"Partial",""))
> > >
> > >I also need to have the above formula to work starting at C9 and
continue
> down the entire C column, ie. C9, C10, . . .
> > >This includes the numeric data in columns H, P, S, starting on line 9
on
> down respectively.
> > >
> > >This would certainly get me started,
> > >
> > >Thank you,
> > >
> > >Susan
> >
>
>