belirlenen aralıkta liste yapma

[muratfix]

değerli arkadaşlar ekteki örnek dosyada görebiliceğiniz gibi ben A ve B sütunudaki bigilerin Değer belirleme hücresindeki değerin örneğin 12000 yukarısı 8000 aşağısı şeklinde başka bir sayfada sıralamak istiyorum nasıl yapılabilir yardımlarınız bekliyorum. şimdiden teşekkürler

 

[muygun]

Merhaba;
Sorunuzu tam anlayamadım ama belirleyeceğiniz aralıktaki sayıları tasniflemek istiyorsanız eki inceleyin.
İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub KRİTERE_GÖRE_LİSTELE()
    Dim S1 As Worksheet
    Dim S2 As Worksheet
    Dim SABİT_DEĞER As Double
    Dim ARTI_DEĞER As Double
    Dim EKSİ_DEĞER As Double
    Dim X As Long, SATIR As Long
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    SABİT_DEĞER = S1.Range("E10")
    ARTI_DEĞER = S1.Range("E6")
    EKSİ_DEĞER = S1.Range("E13")
    SATIR = 1
    
    S2.Range("A:B").ClearContents
    
    For X = 1 To S1.Range("A65536").End(3).Row
        If S1.Cells(X, 2) >= (SABİT_DEĞER - EKSİ_DEĞER) And _
        S1.Cells(X, 2) <= (SABİT_DEĞER + ARTI_DEĞER) Then
            S2.Cells(SATIR, 1) = S1.Cells(X, 1)
            S2.Cells(SATIR, 2) = S1.Cells(X, 2)
            SATIR = SATIR + 1
        End If
    Next
 
    S2.Select
 
    Set S1 = Nothing
    Set S2 = Nothing
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[muratfix]

çok teşekkürler arkadaşlar gerçekten çok işime yaradı sağolun

 

[tahsinanarat]

Korhan hocam, işlem tamam diyor ancak hiç bir değer aktarmıyor, acep benmi yanlış yapıyorum, bakabilirmisiniz.

 

[Korhan Ayhan]

Selamlar,

Tahsin bey dosya üzerinde nasıl bir işlem yaptığınızı bilmediğim için yorum yapamıyorum. Anlatırsanız çözüm üretebiliriz.