Alfabetik indeks oluşturmak....

[machool]

Arkadaşlar elimde a'dan z'ye bir excel listesi var.ben en üst satıra a,b,c,d..........z,0,1,.....8,9 gibi bir satır yapmak istiyorum.bu satırdaki harf yada rakam tıklandığında o harf ile başlayan satıra hızlıca erişebilmeliyim.kısacası bir indeks mantığı....bu mümkün mü ? şimdiden teşekkürler....

 

[İhsan Tank]

dosya ekleseniz olmaz mı_?

 

[machool]

Konuyu örnek ile açıklamaya çalıştım.örnek ektedir....

 

[revelte]

Böyle birşey mümkün olamaz. bir hücrenin içerisindeki metinde tıklanan karakteri tespit etmek mümkün değil. Ancak harflerin her biri bir hücreye gelecek şekilde düzenlenirse olabilir.

 

[mustafaine1]

soylediginiz sekilde her bir harf icin satir acmak filan gerekir..

Bence inputboxla arama yontemi yapabilirsiniz asagidaki kodlari sayfanizda bir buton araciligi ile calistirisaniz isteginize ulasabilirsiniz sanirim, en azindan cozum icin bir yol olsun, iyi geceler..

Sub ara()
Dim aranacak, varanacak As String
aranacak = InputBox("Kriter Giriniz")
sonsatir = [b65536].End(3).Row
For i = 5 To sonsatir
varanacak = Left(Cells(i, "B"), 1)
If varanacak = aranacak Then
Cells(i, "B").Select
GoTo SON
End If
Next
SON:
End Sub