Veri doğrulama açılır pencerede filtreleme yapmak ...

[Bora06]

Selam ,
Ben veri doğrulama yaparken çok fazla satır sayısı olduğu için açılır listede ilk iki veya üç harfini yazdığım kelimeleri sıralama yaptırabilir miyiz? Mesela "Ka" yazdığım zaman "Karpuz ve Kayısı" görmeliyim gibi. Listede Sayfa3 deki "A" Sütunundaki bilgileri Sayfa1 'de " C17;C43 " arasına bunu uygulayabilir miyiz?

 

[Orion1]

Dosyanız ektedir.
textboxa gireceksiniz.

Private Sub TextBox1_Change()
Dim sh As Worksheet
Sheets("Sayfa1").Select
Set sh = Sheets("Sayfa3")
Range("C17:G" & Rows.Count).ClearContents
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=1, Criteria1:=TextBox1.Value & "*"
sh.Range("A1").CurrentRegion.Offset(1, 0).Copy Range("C17")
sh.Range("A1").AutoFilter
End Sub

 

[Bora06]

Orion1 Selam,
Ben sanırım yanlış anlattım galiba. Benim istediğim şey şudur ;
Veri doğrulama yaparken ( C17;C43 aralığında) her hücrede farklı bir değeri bulmak istiyorum. Ve bunu, bulmak istediğim hücrenin içinde filtreleme yaparak farklı değerlere ulaşmalıyım. Bunu makro olmadan formüllerle de yapabilir miyiz?

 

[Korhan Ayhan]

Dosyanız ektedir.

Veri doğrulamasındaki işlemin çalışması için ürünlerinizin olduğu liste alfabetik sıralı olmalıdır.