Move one cell to another

[Mike]

I need to copy the content of one cell to another when a different cell is
greater than 239.
Example: if N20 is greater than R20(value 239) then copy the content of B20
to S20.

OR

A method to delete all records that have a value less than 240 in column N.

Any help would be appreciated.

Thanks,

Mike

 

[Bernard Liengme]

Formula in S20: =IF(N20>R20,B20,"")
best wishes

 

[Bernard Liengme]

VBA Subroutine

Sub TryMe()
'Deletes rows where the value in column N is less than 240
Dim RowNdx As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, "N").End(xlUp).Row

For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "N").Value < 240 Then
Rows(RowNdx).Delete
End If
Next RowNdx

End Sub


best wishes

 

[Mike]

Thanks, this worked great..........................

 

[Mike]

This also worked great,,,,,,,,,,,,,,thanks again