Excel de bir soru...

Kodla Büyü

xk-2

Seçkin Üye
Seçkin Üye
Mesajlar
424
merhba, Filtre uygulanmış bir isim listesinde bir kişiyi seçtiğinizde filtreyi uyguluyor. Bu seçilen isim yukarıda yazılan sayın ....... kısmına taşınması işi nasıl olabilir arkadaşlar?
 

Ekli dosyalar

  • Kitap1.rar
    5.8 KB · Görüntüleme: 31
yok hocam, ben şimdiden teşekkürler anlamında kullanmıştım. ben de araştırıyorum. çözüm olursa yazacağım
 
hocam,
http://www.timeatlas.com/5_minute_tips/general/displaying_excel_filter_selections#.UcQ8gZzgzg8
adresinde yer alan bilgilere göre, ekleyeceğiniz bir modül içerisine ;
Kod:
Function FilterCriteria(Rng As Range) As String
    'By Stephen Bullen
    Dim Filter As String
    Filter = ""
    On Error GoTo Finish
    With Rng.Parent.AutoFilter
        If Intersect(Rng, .Range) Is Nothing Then GoTo Finish
        With .Filters(Rng.Column - .Range.Column + 1)
            If Not .On Then GoTo Finish
            Filter = .Criteria1
            Select Case .Operator
                Case xlAnd
                    Filter = Filter & " AND " & .Criteria2
                Case xlOr
                    Filter = Filter & " OR " & .Criteria2
            End Select
        End With
    End With
Finish:
    FilterCriteria = Filter
End Function
kodunu ekleyip, excel çalışma sayfasında =FilterCriteria(A1) veya benzeri şekillerde kullanabiliyorsunuz.
"ali" metnini içerenler şeklinde bir filtre uygulamasında elde edilen sonuç =*ali* şeklinde oluyor.
 
Hocam

Filtrelemede, kullanıcı birden fazla isimde seçebilir. Bunun önünde herhangi bir engel yok. Eğer bu sizin için sorun değil ise C9 hücresine eşitleyin sayının karşısındaki hücreyi olsun bitsin. Lakin Filterde sadece bir isim seçilebilsin diyorsanızda, sanırım bir vba kod araştıracaksınız.
 
Evet ben de uğraştım biraz. Bunların dışında bişi yok. Hepinize çok teşekkür ederim. Saygılar.
 
Geri
Üst