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

[escort322]

Sıralama ve metin kutusu

Hüseyin bey

Üretim planlaması yapabilmek için yardımınıza ihtiyacım var

Ekte ayrıntıları ile anlatmaya çalıştım

Teşekkür ederim

 

[Emir Hüseyin Çoban]

Hüseyin bey

Üretim planlaması yapabilmek için yardımınıza ihtiyacım var

Ekte ayrıntıları ile anlatmaya çalıştım

Teşekkür ederim

. . .

Merhaba.

B sütunu için kodlar aşağıdadır.

Plan sayfasının kod bölümüne:

Private Sub TextBox2_Change()
If TextBox2 = "" Then
Selection.AutoFilter Field:=2
Else
Call kod_bir
End If
End Sub

Boş bir modüle:

Sub kod_bir()
filtre1 = Sheets("plan").TextBox2.Text
    Selection.AutoFilter Field:=2, Criteria1:=filtre1
End Sub

A sütununda yazan 9,24 veya 12,00 verileri nedir.
9,24; Eylül ayının 24. günü ise. 12,00 nedir ?

. . .

 

[escort322]

Hüseyin bey

12.03 12.ayın 3 günü anlamına geliyor.

Cevabınız için çok teşekkür ederim ama ben sorunumu çözemedim.

ekte örnek dosyayı açıklamalı olarak tekrar gönderiyorum

Ayrıca boş modül ne anlama geliyor

Teşekkür ederim

 

[Emir Hüseyin Çoban]

Hüseyin bey

12.03 12.ayın 3 günü anlamına geliyor.

Cevabınız için çok teşekkür ederim ama ben sorunumu çözemedim.

ekte örnek dosyayı açıklamalı olarak tekrar gönderiyorum

Ayrıca boş modül ne anlama geliyor

Teşekkür ederim

. . .

Merhaba. Ekteki örneği inceleyiniz.

Yeni modüle ekleme:
Microsoft Visual Basic ekranında
İnsert- Module seçeneği.

. . .

 

[SELIMT]

Bu forumu hazırlayan, emeği geçen, bıkmadan usanmadan sorulan sorulara cevap veren üyelere çok teşekkür ettiğimi bilmenizi isterim.
Bu formu incelerken kendimi iyi bir excel kullanıcısı olarak görürdüm. Fakat inceledikten sonra daha yolun başlangıcını bile yapmadığımı anlamış bulunmaktayım.
Yapmakta olduğum bir çalışma için siz değerli üyelerin yardımına ihtiyacım olacaktır.

Soru - 1) Ekli dosyadaki f5 satırına bir harf veya veri girince o sütundaki verilerin içerisinden onu içeren satırları otomatik filtreleme yapması. Filtre menüsünden sürekli içerir yapmaktan kurtulmak,

Soru - 2) C sütunundaki verileri filtre yapıp otomatik olarak yazdırma

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.
F5 hücresine yazdığınız değere göre "içerir" şeklinde süz yapacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    
    Dim i As Long
    
    Selection.AutoFilter
    i = Cells(Rows.Count, "A").End(3).Row
    
    ActiveSheet.Range("$E$6:$J$" & i).AutoFilter Field:=2, Criteria1:="=*" & Target.Value & "*"
    
End Sub

 

[assenucler]

Sayın Hüseyin Çoban ve Necdet Yeşertener

Günaydınlar ve katkılarınız için teşekkürler.

Sevgi ve saygılar.

 

[SELIMT]

teşekkür

Sn. Necdet Bey;

Vermiş olduğunuz cevap nedeniyle çok teşekkür ederim.

 

[rk42080]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.
F5 hücresine yazdığınız değere göre "içerir" şeklinde süz yapacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    
    Dim i As Long
    
    Selection.AutoFilter
    i = Cells(Rows.Count, "A").End(3).Row
    
    ActiveSheet.Range("$E$6:$J$" & i).AutoFilter Field:=2, Criteria1:="=*" & Target.Value & "*"
    
End Sub

Konu eski galiba ama şimdi benimde ihtiyacım oldu yardımcı olursanız sevinirim Üstadlarım hücreye makro atayıp bu makro sayesinde mesela B1 hücresine atayıp bu B1 hücresine veri girdiğim zaman CARİ başlığı altındaki verilere filtreleme uygulayacak ayrıca iki tarih arası filtrelemeside yaptırmak istiyorum bunun içinde ilk tarih hücresi J1 ikinci tarih hücresi de K1 hücresi olacak bu iki hücreye tarih girdiğim zaman bu tarih aralığındaki FAT.TARİHİ başlığı altındaki verileri getirecek. Yardım ederseniz çok sevinirim.Şimdiden teşekkür ederim.

yukardaki kodu kullandım B1 hücresine veri girdiğimde sadece cari başlığında filtreleme yapıyor ama ben c1 hücresine veri girdiğimde FATURA NO başlığında da filtreme yapmasını istiyorum aynı şekilde diğer sütunlar içinde. Tekrar şimdiden teşekkürler.