Syntax for Select Case

  • Thread starter Thread starter Susan Hayes
  • Start date Start date
S

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
 
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 said:
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
Click to expand...
down the entire C column, ie. C9, C10, . . .
 
The reason I wish to write the following formula in VBA is that the end users accidently delete the formula
 
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 said:
The reason I wish to write the following formula in VBA is that the end
Click to expand...
users accidently delete the formula
 
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 said:
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 said:
The reason I wish to write the following formula in VBA is that the end
Click to expand...
users accidently delete the formula
Click to expand...
 
Back
Top