This code is returning the value of cell B343 and not completing the
remainder of the list. I don't follow some of the code and I am busy with
"Help" right now working on it. If I figure out the problem I will let you
know.

Thanks for any help.



"Rowan" wrote:

If you are wanting to copy the value from column D to column B where column E
is true then you could do it like this:

Sub Loopy()
Dim lRow As Long
Dim Cell As Range
Dim chkRange As Range
lRow = Cells(Rows.Count, 5).End(xlUp).Row
Set chkRange = Range(Cells(344, 2), Cells(lRow, 2))
For Each Cell In chkRange
If Cell.Offset(0, 3).Value Then
Cell.Value = Cell.Offset(0, 2).Value
End If
Next Cell
End Sub

Of course if that is what you are wanting to do then you could just enter
the formula =IF(E344,D344,"") in B344 and copy it down.

Hope this helps
Rowan

"Cody" wrote:

I have four columns I am working with B344:E362. Column B I am trying to
populate based on a list of options from D. Column E is a list of TRUE or
FALSEs based on whether the value should be added to column B. I am trying a
loop at follows and I don't think I am on the right track.

Dim Check, AddValue
Check = Sheets(€œDefaults€�).Range(€œD344€�).Value
AddValue = Sheets(€œDefaults€�).Range(€œB344€�)
Do
If Sheets(€œDefaults€�).Range(€œE344€�) = True Then
AddValue = Check
Else

End If
Check = Check.Offset(1,0)
Loop Until Check = €œ€�

Thanks for any help