Filtre yaptığım değerleri nasıl görüntülerim?

[aylax]

İyi akşamlar arkadaşlar,kolay gelsin
Filtre yaptığım değerleri anlamak için ,bir sorum var.Bu değerleri sayfada takip etmekten gözlerim şişti,şaşıladı.
Acaba ,her sutunda filtre yaptığım değeri ,o sutunda filter okçukların hemen üstünde olacak olan hücrede görmem mümkün olabilir mi?
Örnek dosyada A1 de A,B1 de 3,C1 de S filtre değerleri yazılı.
Esen kalın.

 

[Merhum İdris SERDAR]

Ekteki örneği kendinize uyarlayın.

Metin kutusuna girdiğiniz veri birinci satıra da yazılmış olur.

 

[aylax]

Teşekkür ediyorum Sayın yurttas,
çok güzel bir çalışma örneği ,tebrik ederim.Fakat benim yapmak istediğimi tam karşılamıyor.
Şöyleki;
A sutununda filtre yaptığım değeri, otomatik olarak okların üstündeki yine A sutununda bir hücrede (A2)otomatik olarak göstersin.Tabii ikinci bir filtre yaptığımda ,diyelimki R sutununda ,buradada filtre edilen değer yine R sutununda okların üstündaki bir hücrede (R2)görünsün.Böylece Hangi değerleri filtre ettiğimi rahatlıkla anlamış olayım.
Filtre uygulamadıklarım boş kalsın,yada 0 gibi bir değer olabilir.
Esen kalın.

 

[Merhum İdris SERDAR]

Teşekkür ediyorum Sayın yurttas,
çok güzel bir çalışma örneği ,tebrik ederim.Fakat benim yapmak istediğimi tam karşılamıyor.
Şöyleki;
A sutununda filtre yaptığım değeri, otomatik olarak okların üstündeki yine A sutununda bir hücrede (A2)otomatik olarak göstersin.Tabii ikinci bir filtre yaptığımda ,diyelimki R sutununda ,buradada filtre edilen değer yine R sutununda okların üstündaki bir hücrede (R2)görünsün.Böylece Hangi değerleri filtre ettiğimi rahatlıkla anlamış olayım.
Filtre uygulamadıklarım boş kalsın,yada 0 gibi bir değer olabilir.
Esen kalın.

Dosyayı denediniz mi? Text box'lara süzme yaptığınız veriyi girince. A1,B,C1.... de neye göre süzdüyseniz onları orada görürsünüz.

Bana göre istediğinizden de fazlası var dosyada.

 

[aylax]

Evet sizin demek isrediğinizi yaptım.Onlarca değeri birden filtre yapıcağım zaman tek tek yazmak uğraştırıyor.
Yani oklara bastığımda ,hangisi ise filtre edilen ,kendisi otomatik olarak bahsettiğim 2 . satırdaki yerlere yazsın,Text box a kendisi filtre edileni yazsın
Bu mümkün değil galiba.
Teşekkür ediyorum,ilginize.
Esen kalın.

 

[aylax]

Aslında birçok değeri filtre eden uygulamalarda bu çok kullanışlı olsa gerek.
Çünkü bazen filtre oklarını seçemez durumda olabiliyoruz,renklerindenmidir nedir.
Bu bahsettiğim ayrıca örnek olarakta excel dershanesinde yer alabilir kanaatindeyim.
Esen kalın.

 

[Merhum İdris SERDAR]

Aşağıdaki örneği inceleyin.

 

[aylax]

Selamlar ,konudan ümidimi kesmiştim.Farklı bi vba uygulaması bulmuştum fakat çalıştıramamıştım.Siz çok iyisiniz sayın yurttas.Sizinki olumlu.Tam istediğim gibi.Çok teşekkürler ediyorum.Gereken revizeyi ben yaparım galiba.Emeğinize sağlık.
Esen kalın.

 

[hsayar]

selam bu &#246;rnek benim i&#351;imi g&#246;r&#252;yor yapana minnettar&#305;m fakat kriter i&#351;aretinin &#231;&#305;kmas&#305;n&#305; istemiyorum bana sadece metin yeterli "=" "<" gibi nas&#305;l kald&#305;rabilirim
= personel yerine sadece personel yazs&#305;n

 

[Merhum İdris SERDAR]

selam bu örnek benim işimi görüyor yapana minnettarım fakat kriter işaretinin çıkmasını istemiyorum bana sadece metin yeterli "=" "<" gibi nasıl kaldırabilirim
= personel yerine sadece personel yazsın

Yukarıda eklediğim örnek dosya için:

=REPLACE(suzkr(A4);1;1;"")
=DEĞİŞTİR(suzkr(A4);1;1;"")

şeklinde kullanabilirsiniz.

..

 

[hsayar]

hocam ilginize te&#351;ekk&#252;r ederim pek kullanca&#287;&#305;m&#305; d&#252;&#351;&#252;nm&#252;yorum ama ve veya kriterleri ile kullan&#305;nca ilk kriteri baz al&#305;yor bu halde form&#252;l i&#231;in nas&#305;l d&#252;zenleriz bu sorun acele de&#287;il ama akl&#305;ma tak&#305;ld&#305;?
Sayg&#305;lar&#305;mla

 

[Merhum İdris SERDAR]

selam bu örnek benim işimi görüyor yapana minnettarım fakat kriter işaretinin çıkmasını istemiyorum bana sadece metin yeterli "=" "<" gibi nasıl kaldırabilirim
= personel yerine sadece personel yazsın

hocam ilginize teşekkür ederim pek kullancağımı düşünmüyorum ama ve veya kriterleri ile kullanınca ilk kriteri baz alıyor bu halde formül için nasıl düzenleriz bu sorun acele değil ama aklıma takıldı?
Saygılarımla

Bu ifadelerinizden bir şey anlamak mümkün olmuyor. Hem kullanmayacağınızı söylüyorsunuz. Hem de soruyorsunuz.

Her neyse. Belki birisinin işine yarar diye.

Örnek dosya ekte.

..

 

[Korhan Ayhan]

Selamlar,

Sn. yurttas beyin &#231;&#246;z&#252;mde kulland&#305;&#287;&#305; form&#252;lde "*" karakterini kald&#305;rm&#305;yordu.

Alternatif olarak a&#351;a&#287;&#305;daki form&#252;lle t&#252;m istenmeyen karakterleri kald&#305;rabilirsiniz.

Not: Form&#252;l bu haliyle biraz uzun oldu belki dizi form&#252;l&#252; ile k&#305;salt&#305;labilir.

=YER&#304;NEKOY(YER&#304;NEKOY(YER&#304;NEKOY(YER&#304;NEKOY(YER&#304;NEKOY(YER&#304;NEKOY(YER&#304;NEKOY(suzkr(A4);"=";"");"<";"");">";"");"<>";"");"<=";"");">=";"");"*";"")

 

[hsayar]

sayın yurttaş ben sık kullanmaktan bahsediyorum yaptığının örnekte örneğin süzdüğümüzde
eşittir= elma
veya
eşittir atmut yazdığımızda

fonksiyon çıktısı
elma or = armut oluyor

benim istediğim çıktı şekli
elma veya armut

sayın cost_control gerçekten çok uzun. iginize teşekkür ederim.

 

[AS3434]

Say&#305;n hsayar

&#304;stedi&#287;iniz &#351;ekli Say&#305;n yurtta&#351;'&#305;n g&#246;nderdi&#287;i dosya yap&#305;yor zaten.

1. sat&#305;r&#305;n dolgu rengini Beyaz yap&#305;n. Size 2. sat&#305;r yetiyor.

NOT: Olmuyormu&#351;...........

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[hsayar]

cost control örnek.xls çalışmanız için teşekkür ederim çok güzel olmuş...
birde yerine koyları makronun için monte edebilsek daha iyi olur kanaatindeyim.
saygılarımla

Edit: ben sadece = işaretini makro içinden kaldırdım, düşününce >,< gibi işaretleri kaldırmanın anlamı yok ama bunlarıda metin olarak göstermek iyimi olur kötümü olur onuda anlamadım. içiçe kullannabilirsem malkro için substite bakacam.


Bu fonksiyonu suzkr fonksiyonun altına kopyalayın suzkrt(hücre) olarak çalştırın. Aradığımız bu olabilir.

Function Suzkrt(Rng As Range) As String
Dim Filter As String
Filter = ""
On Error GoTo Son
With Rng.Parent.AutoFilter
If Intersect(Rng, .Range) Is Nothing Then GoTo Son
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then GoTo Son
Filter = .Criteria1
Select Case .Operator
Case xlAnd
Filter = Filter & " VE " & .Criteria2
Case xlOr
Filter = Filter & " VEYA " & .Criteria2
End Select
End With
End With



Son: Suzkrt = Filter
Suzkrt = WorksheetFunction.Substitute(Suzkrt, "=", "") 'burada eşit işaretini kaldıryoruz.
End Function

 

[Korhan Ayhan]

Selamlar,

&#220;stteki mesaj&#305;mdaki &#246;rnek dosyay&#305; g&#252;ncelledim. &#304;ncelermisiniz.

 

[hsayar]

set kullan&#305;m&#305; ile oluyormu&#351; parantezle u&#287;ra&#351;mak yerine ilginize te&#351;ekk&#252;r ederim. sayg&#305;lar&#305;mla

 

[kmlpyrz]

Tek bir filtre değerini, belirtilen hücreye yazdırmak

Benim sorum biraz daha farklı, ben sadece,
AutoFilter Field:=5'in kriterini [A1] hücresine yazdırmak istiyorum. Diğer filtre değerleri yazılmasın. Kodları çok değiştirmeme rağmen başarılı olamadım. Yardımcı olursanız sevinirim.