Texbox da sayfa hatası

[sensizsoldum]

Merhaba
aşağıdaki kodu, Sayfa1 e atamak istiyorum. Tablo_AS400_ yazan kısmı sayfa1 olarak değiştiriyorum, lakin hata veriyor. başka bir yerlerdemi değişmesi gerekiyor. yardımcı olabilirmisiniz.


Private Sub TextBox1_Change()
ActiveSheet.ListObjects("Tablo_AS400_").Range.AutoFilter Field:=3, Criteria1 _
:="*" & TextBox1.Value & "*"
End Sub

 

[Husgvarna]

Merhaba
aşağıdaki kodu, Sayfa1 e atamak istiyorum. Tablo_AS400_ yazan kısmı sayfa1 olarak değiştiriyorum, lakin hata veriyor. başka bir yerlerdemi değişmesi gerekiyor. yardımcı olabilirmisiniz.


Private Sub TextBox1_Change()
ActiveSheet.ListObjects("Tablo_AS400_").Range.AutoFilter Field:=3, Criteria1 _
:="*" & TextBox1.Value & "*"
End Sub

İstediğiniz şöyle gibi...

 Private Sub TextBox1_Change()
If TextBox1 = "" Then
Sheets("Sayfa1").Range("c2").AutoFilter Field:=3
Exit Sub
End If
Sheets("Sayfa1").Range("c2").AutoFilter Field:=3
Sheets("Sayfa1").Range("c2:c65000").AutoFilter Field:=3, Criteria1:=TextBox1.Value
End Sub

 

[sensizsoldum]

2 satırda run time error1004 hatası veriyor

 

[Husgvarna]

2 satırda run time error1004 hatası veriyor

Filtre uygulanması gereken 3. Sütun boşmu?
Yukarıda değişen kodları dosyanıza uyarlayarak deneyin.

Filtreyi hangi sütun için istiyorsunuz, "Userform" lamı yapmak istiyorsunuz? Cevabınızı örnek dosya ile eklermisiniz?

 

[sensizsoldum]

Merhaba sayın Husgvarna
benim yapmak istediğim işlem c sutunda rakamsal arama yapmak istiyorum.
c3 c65536 arasında rakamlar olacak c2 de rakam isimli başlık, c1 de de texbox.
yapmak istediğim işlem bu şekildedir. bunun için siz bi tasarı oluşturabilir misinz.

tşklerimi sunarım ıyı çalışmalar dilerim.

 

[Murat OSMA]

Sitede, "TextBox ile sayfada süzme" ya da arama gibi kelimelerle arayınız...

 

[sensizsoldum]

Merhaba Murat Bey,
ilginize tşk ederim. aşağıda linkte 9 mesajda eklenen dosyanın a sütundaki işime yarayabilir ve oda şu şekilde olmalıdır.

a sütundaki süzme işlemi ardığın rakamı tam yazdığında çıkıyor. oysa ben google gibi yazdıkça çıkmasını istiyorum. yani yazılana göre süzmeyi uygulasın.
bu şekilde uyarlayabilmememiz mümkünmüdür.

http://www.excel.web.tr/f133/metin-kutusu-textbox-ile-bazy-veri-turlerini-suzme-t16264.html

 

[Husgvarna]

Merhaba Murat Bey,
ilginize tşk ederim. aşağıda linkte 9 mesajda eklenen dosyanın a sütundaki işime yarayabilir ve oda şu şekilde olmalıdır.

a sütundaki süzme işlemi ardığın rakamı tam yazdığında çıkıyor. oysa ben google gibi yazdıkça çıkmasını istiyorum. yani yazılana göre süzmeyi uygulasın.
bu şekilde uyarlayabilmememiz mümkünmüdür.

http://www.excel.web.tr/f133/metin-kutusu-textbox-ile-bazy-veri-turlerini-suzme-t16264.html

Ek dosyadaki gibi işinize yararmı?

 

[sensizsoldum]

Merhaba Sayın Husgvarna evet istediğim böyle, ama verileri getiriyor silmiyor.
Sadece arama şekli istediğim gibi. diğer ozellıklerı. önceki çalışmalarımız gibi.
Bunu tek sayfada c sutunu için uyarlayabilmemiz mümkünmü.

 

[Husgvarna]

Merhaba Sayın Husgvarna evet istediğim böyle, ama verileri getiriyor silmiyor.
Sadece arama şekli istediğim gibi. diğer ozellıklerı. önceki çalışmalarımız gibi.
Bunu tek sayfada c sutunu için uyarlayabilmemiz mümkünmü.

Yukarıdaki dosya değişti; bu şekliyle olurmu?

 

[sensizsoldum]

Merhaba Sayın husgvarna, emeğiniz için tşk ederim. çok özür diliyorum ama istediğim gibi değil sizleri çok yoruyorum emekleriniz çok büyük lütfen kusura bakmayın. herşey için teşekkür ederim

 

[sensizsoldum]

Merhaba,
Link teki texbox taki hatayı naptımsa gideremedim,
Değerli üstadlarım sizlerde bakabilir misiniz.
Şirkette olduğumdan bu şekilde eklemek zorunda kaldım.

http://s2.dosya.tc/server10/lgJunl/K_TAP.rar.html

 

[Husgvarna]

Kodları şöyle değiştirip deneyin.

 Private Sub TextBox1_Change()
If TextBox1 = "" Then
Sheets("Sayfa1").Range("c2").AutoFilter Field:=1
Exit Sub
End If
Sheets("Sayfa1").Range("c2").AutoFilter Field:=1
Sheets("Sayfa1").Range("c2:c65536").AutoFilter Field:=1, Criteria1:=TextBox1.Value
End Sub

 

[sensizsoldum]

Tşekkür ederim Sayın Husvarna elinize sağlık çok güzel oldu bu kez. sizi çok yordum. Hakkınızı helal edin lütfen.

Tekrardan çok teşekkür ederim.

İyi çalışmalar dilerim.