Reading Across a Row for a Value

[tudor30]

I would like to read from C4 to L4 and verify if any of those cells has a value in it. If so, Then copy the value of B4 to AB4.

If ActiveSheet.Range("C4") <> "" Then
ActiveSheet.Range("AB4") = ActiveSheet.Range("B4")
ElseIf ActiveSheet.Range("C4") = "" Then
ActiveSheet.Range("AB4") = ""
End If

Thanks for suggestions,
John

 

[Zathras]

Why not just put this formula in cell AB4?

=IF(COUNTA(C4:L4)>0,B4,"")

 

[PHV]

Something like this ?
bFound = False
For r = 3 To 12
If ActiveSheet.Cells(r, 4).Value <> "" Then
bFound = True
Exit For
End If
Next
If bFound Then
ActiveSheet.Range("AB4") = ActiveSheet.Range("B4")
Else
ActiveSheet.Range("AB4") = ""
End If

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244