VBA for mulitple if statements

[Godders199]

Good morning, i am trying to get the following code to work, have tried various combinations of if ,or, else, elseif but to no success.

I have not copied all the statements , but effectively what i am tying to do is. i column 6 (f)is between 1 an 8 it completes the relevant sum. If greater than 8 sum slighty different and if column 6 is zero it just returns zero. currently only the final line works. I cannot get if 1,2,3,4,5,6,7,8 to work.

If Cells(i, 6) = 1 Then Range("ab" & i).Value = Range("p" & i).Value + Range("s" & i).Value + Range("v" & i).Value + Range("y" & i).Value + Range("f" & i).Value
If Cells(i, 6) = 2 Then Range("ab" & i).Value = Range("p" & i).Value + Range("s" & i).Value + Range("v" & i).Value + Range("y" & i).Value + Range("f" & i).Value
If Cells(i, 6) > 8 Then Range("ab" & i).Value = Range("p" & i).Value + Range("s" & i).Value + Range("v" & i).Value + Range("y" & i).Value + Sheets("Homepage").Range("o4").Value Else Cells(i, 28).Value = 0


Can someone say what i am doing wrong.

thanks

 

[kieran]

Something like this?

If (Cells(i, 6) >= 1 And Cells(i, 6) <= 8) Then Range("ab" & i).Value = _
Range("p" & i).Value + Range("s" & i).Value + Range("v" & i).Value + Range("y" & i).Value + Range("f" & i).Value
Else
If Cells(i, 6) > 8 Then Range("ab" & i).Value = _
Range("p" & i).Value + Range("s" & i).Value + Range("v" & i).Value + Range("y" & i).Value + Sheets("Homepage").Range("o4").Value
Else: Cells(i, 28).Value = 0
End If
End If

 

[dmt32]

Hi,
untested but see if this does what you want

Dim AddValues
If Cells(i, 6).Value >= 1 Then
AddValues = Range("p" & i).Value + Range("s" & i).Value + Range("v" & i).Value + Range("y" & i).Value
Range("ab" & i).Value = AddValues + IIf(Cells(i, 6) <= 8, Range("f" & i).Value, Sheets("Homepage").Range("o4").Value)
Else
Cells(i, 28).Value = 0
End If

I have declared AddValues as Variant but update to the appropriate data type (Double?) as required

Dave

 

[Godders199]

thanks this works perfectly