İl Adı veya isim girerek arama

[topal52]

Ekte gönderdiğim dosyada il adı veya isim girerek veri sayfasından bularak arama sayfasındaki ilgili yerlere getirecek ve aynı olan verileride arama sayfasına alt alta sıralasın böyle bi formül yada yontem nasıl yapablırız . yardımlarınız için şimdiden tşkler

 

[Orion1]

Dosyanız ektedir.

Sub arama(ByVal hcr As Range, ByVal sut As Integer)
Range("A6:G" & Rows.Count).Clear
Sheets("VERİ").Range("A1").AutoFilter
Sheets("VERİ").Range("A1").AutoFilter field:=sut, Criteria1:=hcr
Sheets("VERİ").Range("A1").CurrentRegion.Copy Range("A6")
Sheets("VERİ").Range("A1").AutoFilter
End Sub

 

[topal52]

ustam eline sağlık tam istediğim şekilde olmuş anca yazabildim. fakat ben tabloyu biraz daha geliştirdim ama kodları bir türlü ayarlayamadım tekrar bi bakabılırmısın yada alternatif bir yapabılırmıyız formulle falan

 

[ZorBey_]

ustelefon

Merhaba İyi Çalışmalar
Orion1 Arkadaşımızın
Yazmış Olduğu Kodlarda Biraz Değişklik Yaptım Umarım
İstediğiniz Gibi Olmuştur.

 

[topal52]

tşkler ustam güzel olmuş