I have created this code but unable to complete it what i am trying is to if 3.61 is > Col"E" and <Col"F" then copy the value from Col"J" and Paste into A1.
Your help will be much appreciated.
Code
Sub Macro1()
Dim noRows As Integer
Dim myRange As String
Dim thisvalue As String
thisvalue = 3.61
noRows = Worksheets("Sheet1").UsedRange.Rows.Count
myRange = "A6:V" & noRows
Worksheets("Sheet1").Range(myRange).AutoFilter Field:=5, Criteria1:=">thisvalue", Field:=6, Criteria1:="<thisvalue"
'Then copy Col"J" value and paste into Sheet1.Range("A1")
End Sub
Display More