søgning med større end - mindre end -eller lig med

Public Sub test()
Dim I As Long
For I = 1 To 5000
If Cells(I, 1) < 12 And Cells(I, 2) > 12 Then
Rows(I & ":" & I).Copy Worksheets("Ark2").Range("A65536").End(xlUp).Offset(1, 0)
End If
Next
End Sub

Fantastisk !
smid lige et svar

Kan man også lave kravene dynamisk, da jeg sortere efter hvilke kolonner og hvor mange der vælges?

Ok nu ved jeg ikke lige hvad du ønsker, men.

Marker først cellerne i den kollonne hvor < 12 skal findes, der efter det samme for den som >12 skal findes

Makroen gør brug af den function de ligger neden under, så den skal med ind i modulet.

Kør så makroen. test

Public Sub test()
    Dim I As Long, Var
    Var = RangeRowColumns(Selection)
    If UBound(Var) <> 8 Then
        MsgBox " du har ikke markeret 2 områder"
        Exit Sub
    End If
    For I = Var(2) To Var(8)
        If Cells(I, Var(1)) < 12 And Cells(I, Var(7)) > 12 Then
            Rows(I & ":" & I).Copy Worksheets("Ark2").Range(Var(1) & "65536").End(xlUp).Offset(1, 0).End(xlToLeft)
        End If
    Next
End Sub

Function RangeRowColumns(rtest As Range) As Variant
    Dim st As String
    Dim x As Integer
    st = rtest.Address
    st = Replace(st, ":", "")
    RangeRowColumns = Split(st, "$")
End Function

Nej det er mere if sætningen der skal laves dynamisk, med flere eller færre parametre.