Search for a value, Copy Value into another cell

[wabrown90]

Looking to search column W for all values over 57. Upon finding those, copy those numbers, and copy them into the cell in column T, on the same row.

Below is the code i have so far. I have also tried using a combination of If statements and for loops, but nothing seems to work at this point.

Thanks in advance!


Sub Move()
Application.ScreenUpdating = False

Dim LR As Long, i As Long
With Sheets("Sheet1")
LR = .Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To LR
With .Range("W" & i)
If .Value > 57 Then
Sheets("Sheet1").Range("w" & i).Copy Destination: Sheets("Sheet1").Range ("t" & i)

End If
Next i

End With


End Sub

[vba_php]

this will error out:

Please Login or Register  to view this content.

based on what you're trying to do, it should be this:

Please Login or Register  to view this content.

furthermore, you are trying to search for the vals by attempting to loop through top to bottom, top row to bottom row. and this is the way to do that:

Please Login or Register  to view this content.

I don't even know if you can nest multiple WITH statements inside each other. If you can't it won't work either. I would assume you can though, as any other statement in any language can do it, so it should work fine.