Filitreleme kodunda değişiklik

[S.Yiğit]

Merhabalar,

Butonlar oluşturdum ve makro kaydet yöntemiyle makro hazırladım. Her butona bir personelin ismini yazdım. Yapmak istediğimi yaptım ama Örnek Erdal butonuna tıkladığımda bütün filitreleri kaldırıp Erdal'ı filitleyerebiliyorum ama ilave olarak boş olanları(Boş varsa) süzmeli. Kırmızıya boyadığım yerde değil B sütununda olmalı.

Sub ERDAL()
'
' ERDAL Makro
'
On Error Resume Next
    ActiveSheet.ShowAllData
'
    ActiveSheet.Range("[COLOR="Red"]$A$2:$J$88"[/COLOR]).AutoFilter Field:=2, Criteria1:= _
        "=ERDAL YILMAZ", Operator:=xlAnd
    ActiveWindow.SmallScroll Down:=-33
End Sub

 

[Emir Hüseyin Çoban]

Merhaba,

"=ERDAL YILMAZ", Operator:=xlAnd

satırını aşağıdaki kodlar ile değiştirerek deneyiniz.

"=ERDAL YILMAZ", Operator:=xlOr, Criteria2:="="

 

[S.Yiğit]

Merhaba,

"=ERDAL YILMAZ", Operator:=xlAnd

satırını aşağıdaki kodlar ile değiştirerek deneyiniz.

"=ERDAL YILMAZ", Operator:=xlOr, Criteria2:="="

Sn. Hüseyin bey,

Teşekkür ederim. Kırmızı ile boyadığım aralıkta bir değişikliğe gerek yok sanırım, şuan için bir sorun olmuyor. İyi akşamlar..

 

[Emir Hüseyin Çoban]

Sn. Hüseyin bey,

Teşekkür ederim. Kırmızı ile boyadığım aralıkta bir değişikliğe gerek yok sanırım, şuan için bir sorun olmuyor. İyi akşamlar..

B sütunu yani Field:=2 ye göre filtreleme tanımlı.

Her personel için buton koymak yerine, belirlenen bir hücreye yazılan personel ismine göre filtreleme yapsa daha iyi olmaz mı

 

[S.Yiğit]

Hüseyin bey, belirttiğiniz gibi yapmakta iyi fikir ama benim için zaman kaybı. Burada yaptığım işlemi mausla butonlarla hızlı bir şekilde yapıyorum. İlginiz ve yardımız için teşekkür ederim.

 

[Emir Hüseyin Çoban]

Hüseyin bey, belirttiğiniz gibi yapmakta iyi fikir ama benim için zaman kaybı. Burada yaptığım işlemi mausla butonlarla hızlı bir şekilde yapıyorum. İlginiz ve yardımız için teşekkür ederim.

Rica ederim, iyi akşamlar.