Bir sütundaki hücrelerde bulunan rakamların %sabit değer aralıklarını bulma

[excel.soru]

Bir sütundaki hücrelerimde alt alta rakamlar var. Her hücre için şuna bakmak istiyorum. O hücrenin altındaki rakamlardan kaç tanesi hücre içerisindeki değerin %10 fazlasının ya da %10 eksiğinin arasında? Yani hücredeki her değere tıkladığımda altındaki kaç tane rakamın o hücredeki değerin %10 altı ya da %10 üstü olduğunu göstersin.

Bunun için koşullu biçimlendirme yaparak yapabiliyorum ama tek tek her hücre için bakmam gerekiyor. Örneğin sağ tarafta gösterdiğim gibi alt alta rakamlarımın olduğu yerden bir rakamı ortaya yazıp %10-+ sını alıp sol tarafı boyatıyorum. Sonrasında filtreliyorum. Yalnız bu şekilde ortadaki rakamı sürekli değiştirmem gerekiyor. Toplu bakabilmemin bir yolu var mı? Sağ tarafta orta kısma yazdığım 122 rakamı gibi bir çok rakamım var, sol taraftaki hangi rakamların sağ taraftaki rakamlarımın %10+- sinin aralığında olup olmadığına bakmak istiyorum ama daha hızlı bir yöntemle bakabilir miyiz?
2 //////////////////// 109,8 122 134,2
126
37
124
8
122

 

[Muzaffer Ali]

Merhaba.

Örnek dosya eklerseniz daha iyi anlaşılır olur ve hem de daha hızlı cevap alırsınız.
Dosyanızı dosya.tc gibi bir paylaşım sitesine ekleyebilirsiniz.

 

[ÖmerFaruk]

Sayfanızda değerlerin A sütununda A2 hücresinden başalayarak alta doğru yazıldığını varsaydım
Sayfaya aşağıdaki kodları ekler ve A ssütununda verilerin olduğu bir hücreyi seçerseniz Mesaj Kutusunda sonuçlar gözükecektir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim SonSat As Integer, SayEsit As Integer, SayAlt As Integer, SayUst As Integer, altlimit As Double, üstlimit As Double
    SonSat = Range("A" & Rows.Count).End(3).Row
    If Intersect(Target, Range("A2:A" & SonSat)) Is Nothing Then Exit Sub
    If Not IsNumeric(Target) Then Exit Sub
    If Target.Row = SonSat Then Exit Sub
    Dizi = Target.Offset.Resize(SonSat - Target.Row + 1, 1)
    altlimit = Target * 0.9
    üstlimit = Target * 1.1
    For i = 2 To UBound(Dizi)
        If Dizi(i, 1) < Target And Dizi(i, 1) >= altlimit Then
            SayAlt = SayAlt + 1
        ElseIf Dizi(i, 1) > Target And Dizi(i, 1) <= üstlimit Then
            SayUst = SayUst + 1
        ElseIf Dizi(i, 1) = Targer Then
            SayEsit = SayEsit + 1
        End If
    Next i
    MsgBox "Seçilen Değer : " & Target.Value & vbCrLf & _
            "Eşit Sayılar : " & SayEsit & vbCrLf & _
            "Alt Limit : " & altlimit & vbCrLf & _
            "Küçük sayılar :" & SayAlt & vbCrLf & _
            "Üst Limit : " & üstlimit & vbCrLf & _
            "Büyük Sayılar : " & SayUst
      
End Sub