Find and replace a cell value if another cell value is higher

[simonharry]

Hi All,

Hopefully you can assist please as my VBA skills are unfortunately lacking in this area.

I have a spreadsheet with 2 values in different columns,

What i'm trying to do is...

Where the value in column S is greater than the value in column F, i want to replace the column F value with the column S value. In the example below, the bold entries in "Column S" would replace the values in "Column F".

Column F	Column S
23	76
4	2
25	35
2	1

My data starts on row 4 and can run down any number of rows so i'd want to repeat this "check and replace" down the entire list where applicable.

I have a number of macro's in use here so i'd be looking to do this within the VBA script.

Thank you in advance.

 

[Joe4]

Your example contradicts your explanation (you bolded values in column S LESS THAN the value in column F, instead of GREATER THAN).
No matter, you can alter this code very easily to go either way.

Sub MyReplace()

    Dim lr As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column S with data
    lr = Cells(Rows.Count, "S").End(xlUp).Row
    
'   Loop through all rows
    For r = 1 To lr
'       See if value in S greater than column F
        If Cells(r, "S").Value > Cells(r, "F").Value Then
'           Replace column F value with column S value
            Cells(r, "F").Value = Cells(r, "S").Value
        End If
    Next r
    
    Application.ScreenUpdating = True
    
End Sub