İki değer arasındaki verilerin alınması

[kemalist]

Örnek dosya ektedir.

 

[veyselemre]

Sub TEST()

    eksi = Range("J2").Value
    arti = Range("K2").Value
    son = Cells(Rows.Count, 1).End(3).Row
    sat = 2
    Range("Q:S").Clear
    For i = 2 To son
        deger = Cells(i, "G").Value
        If (deger <= 0 And deger >= eksi) Or (deger > 0 And deger <= arti) Then
            Cells(i, "A").Resize(, 2).Copy Cells(sat, "Q")
            Cells(sat, "Q").Value = sat - 1
            Cells(i, "G").Copy Cells(sat, "S")
            sat = sat + 1
        End If
    Next i
    
End Sub

 

[kemalist]

Çok teşekkür ederim.