Belirtilen Ürünleri Otomatik Aranmasi

[tristanfermat]

Merhaba Arkadaslar ekte gönderdigim Excel dosyasinda sag kisima ürünlerin numarasini girdigimde yukardan asagiya kac tane ürün varsa otomatik göstersin istiyorum yani her ürünü textbox a yazarak degilde, sag tarafa yazilmis bütün ürünlerin listede aranmasini istiyorum.
Tesekkürler.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sonsat As Long
If Intersect(Target, [E2]) Is Nothing Then Exit Sub
If AutoFilterMode = True Then AutoFilterMode = False
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Range("a3:E" & sonsat).AutoFilter field:=1, Criteria1:=Target.Value

End Sub

End Sub

 

[tristanfermat]

Cevabiniz icin tesekkürler, sanirim detayli aciklayamadim o yüzden arama yapmak istedigim yeri okla gösterdim

 

[Orion1]

Cevabiniz icin tesekkürler, sanirim detayli aciklayamadim o yüzden arama yapmak istedigim yeri okla gösterdim

E sütununda ürün numarası yok.A sütununda var.Veri olmayan bir sütununu nasıl arayacaksınız?

 

[tristanfermat]

E sütunu arama yapmak istedigim alan söyle aciklarsam daha net anlasilir e4 sütununa a6 ve e5 sütununa a7 yazdigimda a6 ve a7 ürünlerinin sonuclari gelsin yani tek tek arama yapmak yerine E sütununa 10 tane ürün numarasi yazdigimda sonuclar gelsin istiyorum.

 

[tristanfermat]

Arkadaslar yardim edebilecek biri var mi?

SM-G930F cihazımdan Tapatalk kullanılarak gönderildi