if or vba

[Godders199]

Hello, I am trying to get the following to work, if does not error , just returns blank cell rather than 0 or 1, can someone tell me where i am going wrong please.

Dim lastrowcolumnA As Long
lastrowcolumnA = Range("a" & Rows.Count).End(xlUp).row
For i = 2 To lastrowcolumnA

If Cells(i, 14) >= 2 Or Cells(i, 15) >= 1 Then Cells(i, 16).Value = 1 Else Value = 0


So if cells14 =2 or greater or cells 15 =1 or greater ,cell 16 should show 1 otherwise 0

 

[RoryA]

You missed a bit:

If Cells(i, 14) >= 2 Or Cells(i, 15) >= 1 Then Cells(i, 16).Value = 1 Else Cells(i, 16).Value = 0

 

[Godders199]

thanks for your help . sometimes its the obvious

 

[alansidman]

This appears to work for me. Please use code tags in accordance with forum rules.

Option Explicit


Sub foo()
Dim i As Long
Dim lastrowcolumnA As Long
lastrowcolumnA = Range("N" & Rows.Count).End(xlUp).Row
For i = 2 To lastrowcolumnA


If Cells(i, 14) >= 2 Or Cells(i, 15) >= 1 Then Cells(i, 16).Value = 1 Else Cells(i, 16).Value = 0
Next i
End Sub