değer aralığında hangi kişilerin bulunduğunu bulma

[peleryn]

Herkese Merhabalar;

Ekli dosyamda A sütununda kişi isimleri B sütununda da bu kişilerin maaşları yazılı..

D2 hücresinde açılır listeden seçtiğim bir aralık değer var mesela 525-1192 gibi..Soru da şu:B sütununda 525-1192 değer aralığında bulunan ücretler bulunacak ve bu ücretler A sütunundaki hangi kişilere aitse E2 hücresine yazılacak..

İlgilenecek olan herkese şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Sub araliktakiler()
Dim kucuk As Long, buyuk As Long, z, i As Long, sat As Long, sat2 As Long
Sheets("Sayfa1").Select
Range("E1:E65536").Clear
Application.ScreenUpdating = False
sat = Cells(65536, "B").End(xlUp).Row
z = Split(Cells(2, "D").Value, "-")
If UBound(z) = 0 Then
    kucuk = VBA.Trim(z(0))
    buyuk = Trim(z(0))
    ElseIf CDbl(Trim(z(0))) < CDbl(Trim(z(1))) Then
        kucuk = Trim(z(0))
        buyuk = Trim(z(1))
    Else
        kucuk = Trim(z(1))
        buyuk = Trim(z(0))
End If
sat2 = 2
For i = 2 To sat
    If Cells(i, "B").Value >= kucuk And Cells(i, "B").Value <= buyuk Then
        Cells(sat2, "E").Value = Cells(i, "A").Value
        sat2 = sat2 + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"


End Sub

 

[peleryn]

Evren hocam çok teşekkür ederim.Forum kuralları gereği acil yazamadım ama acil bir ihtiyaca seri ve tam onikiden bir çözüm oldu ilginize çok teşekkür ederim.

 

[Orion1]

Evren hocam çok teşekkür ederim.Forum kuralları gereği acil yazamadım ama acil bir ihtiyaca seri ve tam onikiden bir çözüm oldu ilginize çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.