Is there a way to code a between macro?

[seriouslystuck]

Hi

I want to loop through column F and check each cell value if it is between E1 and H1 and if it is then put an x in column X. Im having real problems with this. I have found some code online and tried to modify it with little sucess. Any advice would be great.

Thanks

 

[VoG]

Possibly

Sub test()
Dim LR As Long, i As Long
LR = Range("F" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("F" & i)
        If .Value >= Range("E1").Value And .Value <= Range("H1").Value Then .Offset(, 18).Value = "X"
    End With
Next i
End Sub

 

[seriouslystuck]

Peter

This works perfect!! Just while you are here could you please tell me how to run until last row instead of do until

Range("a1").Select
Do Until Selection.Value = ""
If Not Selection.Value = "1" Then
Selection.EntireRow.Delete
Else
Selection.Offset(1, 0).Select
End If
Loop

 

[VoG]

Try

Sub atest()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    With Range("A" & i)
        If .Value <> "1" Then .EntireRow.Delete
    End With
Next i
End Sub