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)

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, . . .

 

[Susan Hayes]

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

 

[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)

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

users accidently delete the formula

 

[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)

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)

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

users accidently delete the formula