Başka sahifeden süzme ile veri listesi alma

[kemal turan]

Başka sahifede bulunan verileri süzme ile getirebilirmiyiz.
Açıklama örnek dosyamdadır.

Teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox1_Change()
Range("A1").Value = TextBox1.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Range("A2:B" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents
Application.ScreenUpdating = False
Set sh = Sheets("stok listesi")
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=1, Criteria1:=Range("A1").Value & "*"
sh.Range("A1").CurrentRegion.Copy Range("A2")
End Sub

 

[kemal turan]

sn.Orıon
Kod çalışmıyor.
"vera" yazarken beraber sayfa 1 a sutununa ve b sutununa verilerin gelmeye başlamasını sağlayabilirmiyiz.
Bir önceki farklı başlıktaki çözümünüz gibi..
Tşk.

 

[Orion1]

sn.Orıon
Kod çalışmıyor.
"vera" yazarken beraber sayfa 1 a sutununa ve b sutununa verilerin gelmeye başlamasını sağlayabilirmiyiz.
Bir önceki farklı başlıktaki çözümünüz gibi..
Tşk.

Gerekli düzenlemeyi yaptım.
2nci mesajdan indirebilirisiniz.

 

[kemal turan]

Sn.Orıon
Pardon Yazdığınız kod çalışıyor.Burda sayfa 2 a sutununda ürün adının birebir tam yazımı gerekiyormuş.Ben aynı excel 2010 filtreleme deki gibi kelime bazlı arama performansı bekledim.
Emeğinize sağlık.Cevabınızı bekliyorum.
Tşk.

 

[Orion1]

Sn.Orıon
Pardon Yazdığınız kod çalışıyor.Burda sayfa 2 a sutununda ürün adının birebir tam yazımı gerekiyormuş.Ben aynı excel 2010 filtreleme deki gibi kelime bazlı arama performansı bekledim.
Emeğinize sağlık.Cevabınızı bekliyorum.
Tşk.

Onun gibide yaptım
2nci mesajdan indirebilirisiniz.

 

[kemal turan]

Sn.Orıon
Emeğinize sağlık.Çok teşekkür ederim.
İstediğim olmuş.
Burda a1=textbox boş olduğunda planlama sahifesinde a ve b sutunundaki hücrelerdeki verilerin görünmemesini sağlayabilirmiyiz.
Teşekkürler.

 

[Orion1]

Sn.Orıon
Emeğinize sağlık.Çok teşekkür ederim.
İstediğim olmuş.
Burda a1=textbox boş olduğunda planlama sahifesinde a ve b sutunundaki hücrelerdeki verilerin görünmemesini sağlayabilirmiyiz.
Teşekkürler.

Dosyanız ektedir.

Private Sub TextBox1_Change()
Range("A1").Value = TextBox1.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Set sh = Sheets("stok listesi")
If sh.AutoFilterMode Then sh.AutoFilterMode = False
sat = Cells(Rows.Count, "A").End(xlUp).Row
If sat > 1 Then Range("A2:B" & sat).ClearContents
If Range("A1").Value = Empty Then Exit Sub
Application.ScreenUpdating = False
sh.Range("A1").AutoFilter field:=1, Criteria1:=Range("A1").Value & "*"
sh.Range("A1").CurrentRegion.Copy Range("A2")
sh.Range("A1").AutoFilter

End Sub

 

[kemal turan]

Sn.orıon,
textboxa harf girmemle beraber aşağıdaki kısımda hata veriyor.Çok geç oldu kusura bakmayın.
Sona yaklaştık gibi
Tşk.

If Intersect(Target, [A1]) Is Nothing Then Exit Sub

 

[Orion1]

Sn.orıon,
textboxa harf girmemle beraber aşağıdaki kısımda hata veriyor.Çok geç oldu kusura bakmayın.
Sona yaklaştık gibi
Tşk.

If Intersect(Target, [A1]) Is Nothing Then Exit Sub

8 numaralı mesajda dosyayı ekledim.
Onda gerekli değişikliği yaptım

 

[kemal turan]

Sn.Orıon,
Çok teşekkür ederim.
Bu forumdaki siz uzmanlarımızın bu sabır ve emekleri her türlü takdire şayandır.
Emeğinize sağlık.
Selametle kalın..

 

[Orion1]

Sn.Orıon,
Çok teşekkür ederim.
Bu forumdaki siz uzmanlarımızın bu sabır ve emekleri her türlü takdire şayandır.
Emeğinize sağlık.
Selametle kalın..

Rica ederim.
Seneye görüşmek dileğiyle. ;D