hücreye girilen değere göre otomatik filtre

[ykocaturk]

merhaba, excelin autofilter özelliğini her defasında "içerir" seçimi ile kullanmak yerine veri başlığı satırına girilen değere göre otomatik olarak filtrelemeyi nasıl yapabilirim. örnek dosyada göreceğiniz gibi A41000 arasında verilerimiz olsun, A3 hücresine "naci" girilince nacinin geçtiği 6 ve 8. satırlar filtrelensin. göstereceğiniz ilgiye şimdiden teşekkür ederim.

 

[alptun20]

A3 hücresi değilde TextBox'a veri girince filtreleme yapan bir çözüm uumarım işinize yarar.

 

[ykocaturk]

ilginize teşekkürler alptun20, işime yaradı

 

[escort322]

Sutunlara veri girildiginde otamatik sıralam

Merhaba

benim sorunum girilen verilerin aşağıdan yukarıya doğru otomatik sıralama yapılması.

yardımcı olursanız memnun olurum.Selamlar.

 

[Emir Hüseyin Çoban]

Merhaba, ekteki dosyayı inceleyiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("a1:a65000")) Is Nothing Then
    On Error Resume Next
        If Target = "" Then Exit Sub
        Columns("A:A").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        
        Range("a1").Select
        If Range("A1") = "" Then Range("A1").Activate: Exit Sub
    Range("A65536").End(3).Offset(1, 0).Activate
Else
    End If
End Sub

 

[escort322]

örnek çalışma

Ekte aylık gelir gider tablosu örneğim var.

Burada istediğim bir firmaya olan ödememi 2 gün öne aldığımda veya ötelediğimde listenin otomatik olarak sıralanması

Teşekkür ederim

 

[Emir Hüseyin Çoban]

Ekte aylık gelir gider tablosu örneğim var.

Burada istediğim bir firmaya olan ödememi 2 gün öne aldığımda veya ötelediğimde listenin otomatik olarak sıralanması

Teşekkür ederim

Kodları örnek dosyanızda belirttiğiniz şekilde oluşturmuştum.
Çalışmanızdaki 2.ay sayfasının kod bölümüne aşağıdaki kodları yapıştırarak deneyiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("a3:a65000")) Is Nothing Then
    On Error Resume Next
        If Target = "" Then Exit Sub

    Range("A4:e65000").Select
    Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

        
        Range("a1").Select
        If Range("A3") = "" Then Range("A3").Activate: Exit Sub
    Range("A65536").End(3).Offset(1, 0).Activate
Else
    End If
End Sub

 

[escort322]

Kodları örnek dosyanızda belirttiğiniz şekilde oluşturmuştum.
Çalışmanızdaki 2.ay sayfasının kod bölümüne aşağıdaki kodları yapıştırarak deneyiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("a3:a65000")) Is Nothing Then
    On Error Resume Next
        If Target = "" Then Exit Sub

    Range("A4:e65000").Select
    Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

        
        Range("a1").Select
        If Range("A3") = "" Then Range("A3").Activate: Exit Sub
    Range("A65536").End(3).Offset(1, 0).Activate
Else
    End If
End Sub

çok teşekkür ederim

tam aradıgım çözüm oldu.

Sadece rakamları değiştirince en sona gidiyor.
değişiklik yaptıgımız satırda tutabilirmiyiz.

Teşekkürler

 

[Emir Hüseyin Çoban]

çok teşekkür ederim

tam aradıgım çözüm oldu.

Sadece rakamları değiştirince en sona gidiyor.
değişiklik yaptıgımız satırda tutabilirmiyiz.

Teşekkürler

Rica ederim, kodları aşağıdaki şekliyle değiştirerek deneyiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("a3:a65000")) Is Nothing Then
    On Error Resume Next
        If Target = "" Then Exit Sub

    Range("A4:e65000").Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        If Range("A3") = "" Then Range("A3").Activate: Exit Sub
Else
    End If
End Sub

 

[yusufymr]

Merhaba bende excelde yeni bişeyler öğreniyorum bu sayfaya text box nasıl eklerim sizin örnekteki gibi teşekkürler

 

[ormann]

Arkadaşalar bende a hücresine tarih girdiğimde girilen tarihin otamatik olarak küçük tarihten büyük tarihe kadar sıralanmasını ,ve aynı zaman da diğer satırlarında a satırına göre sıralanmasını istiyorum .teşekkür ederim

 

[Emir Hüseyin Çoban]

Arkadaşalar bende a hücresine tarih girdiğimde girilen tarihin otamatik olarak küçük tarihten büyük tarihe kadar sıralanmasını ,ve aynı zaman da diğer satırlarında a satırına göre sıralanmasını istiyorum .teşekkür ederim

Örnek bir dosya eklerseniz, daha net çözümler üretilebilir.

 

[ormann]

Sayın Hüseyin dosyam ektedir.tarih sıralanınca aynı zamanda diğer satırlarda ona uyacak

 

[Emir Hüseyin Çoban]

Sayın Hüseyin dosyam ektedir.tarih sıralanınca aynı zamanda diğer satırlarda ona uyacak

Merhaba,
En son veri girişini hangi sütuna yapıyorsunuz.
D sütununu varsayarak aşağıdaki kodları tablonuza uyarladım. D sütununa veri girişi yaptıktan sonra, tarihe göre sıralama işlemi yapacaktır.

Aşağıdaki kodları sayfanızın kod bölümü yapıştırın.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("d2:d65000")) Is Nothing Then
    On Error Resume Next
        If Target = "" Then Exit Sub

    Columns("A:D").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Else
    End If
End Sub

 

[ormann]

Sayın Hüseyin çok teşekkür ederim.Ellerinize sağlık

 

[ormann]

Sayın Hüseyin peki diyelimki ben A hücresi ile N hücresi arasında bir veri girdiğim zamanda tarihe göre nasıl sıralama yaptırırız .a,b,c,d,e,f,g,h,k,l,m,n hücrelerine de veri girdiğim zaman sıralama yaptırabilirmiyiz

 

[Emir Hüseyin Çoban]

Sayın Hüseyin peki diyelimki ben A hücresi ile N hücresi arasında bir veri girdiğim zamanda tarihe göre nasıl sıralama yaptırırız .a,b,c,d,e,f,g,h,k,l,m,n hücrelerine de veri girdiğim zaman sıralama yaptırabilirmiyiz

If Not Intersect(Target, Range("d2:d65000")) Is Nothing Then

Kodlar içerisinde olan yukarıdaki satır, D satırında değişiklik yaptığınızda makroyu çalıştırır.

Columns("A:D")

Yukarıdaki satır ise A ile D sütunları arasındaki verileri sıralar. D yi N olarak değitirerek deneyiniz.

 

[ormann]

Sayın Hüseyin benim demek istediğim ben bazen d ,bazen e,bazen f vb.. gibi hücrelerde değişiklik yapıyorum.benim demek istediğim a ile n hücreleri arasında her hangi birinde değişiklik yaptığım zamanda veriler değişmesi gerekli

 

[Emir Hüseyin Çoban]

Sayın Hüseyin benim demek istediğim ben bazen d ,bazen e,bazen f vb.. gibi hücrelerde değişiklik yapıyorum.benim demek istediğim a ile n hücreleri arasında her hangi birinde değişiklik yaptığım zamanda veriler değişmesi gerekli

If Not Intersect(Target, Range("d2:d65000")) Is Nothing Then

Kodlar içerisinde olan yukarıdaki satır, D satırında değişiklik yaptığınızda makroyu çalıştırır.

Columns("A:D")

Yukarıdaki satır ise A ile D sütunları arasındaki verileri sıralar. D yi N olarak değitirerek deneyiniz.

Üstteki mesajımda belirttim, dikkatli okuyunuz.

 

[ormann]

Sanırım olayı çözdüm Sayın Hüseyin.Birde şu linkteki mesajımı çözebilirseniz çok makbule geçer .Saygılar http://www.excel.web.tr/f48/makro-ile-tarihleri-ayyklama-t97191/sayfa2.html#post533690