listbox ı tıkladığımda seçtiğim değer kaçıncı?

[mstfsngn]

Activex denetimlerinden alıp oluşturduğum bir listbox var içinde ürünleri yerleştirdim bunların value sunu alıyorum dışarı neyi tıklamışşam o çıkıyor.Ben tıkladığım kaçıncı ise onun gelmesini istiyorum bunu nasıl yapabiliriz..Örneğin üstten üçüncüyü tıkladığımda istediğim hücreye 3 yazsın

 

[Korhan Ayhan]

Deneyiniz.

Private Sub ListBox1_Click()
    Range("K1") = ListBox1.ListIndex + 1
End Sub

 

[mstfsngn]

Teşekkür ederim oldu ama textbox da filtre yapınca örneğin 2 yazınca 2 ile başlayan değerler geliyor normalde 7. sırada ise 1. sıraya kaydığı için yanlış değerleri getiriyor. Ürünleri aldığım listede kaçıncı olduğunu bulsam sorun çözülecek gibi mümkün mü bu acaba?

 

[mstfsngn]

Private Sub TextBox3_Change()
ArananHece = TextBox3.Value
SonSatır = WorksheetFunction.CountA(Worksheets("Sabitler").Range("I1:I100"))
ListBox3.Clear

For Satır = 1 To SonSatır
On Error Resume Next
Var = 0
Data = Worksheets("Sabitler").Range("I" & Satır)
Var = WorksheetFunction.Search(ArananHece, Data, 1)

If Var > 0 Then
ListBox3.AddItem Data
End If
Next Satır

If ListBox3.ListCount > 0 Then
[Sabitler!G2] = ListBox3.List(0)
Else
[Sabitler!G2] = ""
End If
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub ListBox1_Click()
    Range("K1") = Sheets("Sabitler").Range("I:I").Find(ListBox1.Value, , , xlWhole).Row
End Sub

 

[mstfsngn]

Olmadı malesef ilk 501 yazdı sonra hata verdi
Private Sub ListBox3_Click()
Range("I1") = Sheets("Sabitler").Range("I:I").Find(ListBox3.Value, , , xlWhole).Row
End Sub

 

[Korhan Ayhan]

Dosyanızı paylaşır mısınız?

 

[mstfsngn]

excel dosyası olarak atayım dedim ama beceremedim nasıl atabilirim ki

 

[Korhan Ayhan]

Linke yükleyebilirsiniz.

WeTransfer | Send Large Files Fast

The simple, quick and secure way to send your files around the world without an account. Share your files, photos, and videos today for free.

wetransfer.com

 

[mstfsngn]

listbox ı tıkladığımda seçtiğim değer kaçıncı?

Activex denetimlerinden alıp oluşturduğum bir listbox var içinde ürünleri yerleştirdim bunların value sunu alıyorum dışarı neyi tıklamışşam o çıkıyor.Ben tıkladığım kaçıncı ise onun gelmesini istiyorum bunu nasıl yapabiliriz..Örneğin üstten üçüncüyü tıkladığımda istediğim hücreye 3 yazsın

www.excel.web.tr

 

[Korhan Ayhan]

Dosyanızı göremedim?