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(H9P9,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

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" wrote in message
...
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(H9P9,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

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 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(H9P9,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

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(H9P9,P9<0 ),""Partial"",""""))"



--

HTH

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


"Susan Hayes" wrote in message
...
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 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(H9P9,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

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(H9P9,P9<0 ),""Partial"",""""))"


--

HTH

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


"Bob Phillips" wrote in message
...
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(H9P9,P9<0 ),""Partial"",""""))"



--

HTH

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


"Susan Hayes" wrote in message
...
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
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(H9P9,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