özel süz

[emraha]

Sub TarzBul()
Range("j5").Select
Selection.AutoFilter Field:=10, Criteria1:="=*x*", Operator:=xlAnd
End Sub
_____________________
Criteria1:="=*x*" daki x yerine Sayfa1 deki D1 hücresinin value sunu yazdırmak istiyorum bir türlü başaramıyorum yardımlarınızı bekliyorum.

 

[emraha]

x yerine;

" & Sayfa1.Range("D1") & "

Yazın..

süzme işlemini yapmıyor... ben en iyisi excel belgemide göndereyim

 

[İdris SERDAR]

Sub TarzBul()
Range("j5").Select
Selection.AutoFilter Field:=10, Criteria1:=[D1].Value, Operator:=xlAnd
End Sub

şeklinde deneyin.

.

 

[emraha]

Sayın yurttas;
makronun çalışacağı sayfa farklı yani ben d1 hücresini değil Sayfa1!D1 hücresindeki veriyi kullanmak istiyorum...

 

[emraha]

Sub TarzBul()
Range("j5").Select
Selection.AutoFilter Field:=10, Criteria1:=[D1].Value, Operator:=xlAnd
End Sub

şeklinde deneyin.

.

ayrıca özel süz metodunun içerir yani *aranan* şeklinde yazılmasını istiyorum. şimdi sizin yazdığınız şekilde kodu
Sub TarzBul()
Range("j5").Select
Selection.AutoFilter Field:=10, Criteria1:=[Sayfa1!D1].Value, Operator:=xlAnd
End Sub
halinde çalışması bile benim işime yaramıyor, *[sayfa1!d1]* gibi yazılması lazım ama çalıştıramıyorum bir türlü

 

[İdris SERDAR]

Sayın yurttas;
makronun çalışacağı sayfa farklı yani ben d1 hücresini değil Sayfa1!D1 hücresindeki veriyi kullanmak istiyorum...

Dosyanız ekte.

Sözcüğü kapsar istiyorsanız, kod parçasını aşağıdaki gibi yapın.

Selection.AutoFilter Field:=10, Criteria1:="=* " & [z1] & "*", Operator:=xlAnd

.

 

[İdris SERDAR]

Bir de buna bakın.

 

[emraha]

çok teşekkür ederim hem yurttas hemde OrkmesB ye... gerçekten yurttas ın çalışması tam bana göre oldu bir şey daha rica ediyorum sizden...
bir hücredeki değer değiştiğinde şu makroyu çalıştır şeklinde bir kod nasıl yazarız farkındayım biraz fazla oluyorum ama yardımlarınız için tekrar teşekkür ederim.