Listboxdaki veriyi nasıl kullanırım?

[nihattt]

Userform açıldığında Listbox1 yükleniyor.

1 - AHMET - 1234
2 - MEHMET - 8888
3 - ALİ - 5555

gibi verilerim alt alta geliyor. Listboxda bir satıra tıkladığımda şu koda göre ilgili satır geliyor.
Cells(ListBox1.ListIndex + 2, 1).Select

fakat ben bu koddaki listindex'e göre değil de en baştaki numaraya göre satıra gitsin istiyorum. yani listboxda sıralama böyle olursa;

3 - ALİ - 5555
1 - AHMET - 1234
2 - MEHMET - 8888

ben listbox'da 2. satıra tıkladığımda listindex'e göre hesap yaptığı için çalışma kitabında AHMET'in olduğu satırı seçecek. ben ahmet'in önündeki 1 sayısına göre hesap yapıp 1. satırı seçmesini istiyorum. nasıl yapabilirim.

 

[nihattt]

Sorunu kendim çözdüm gereken arkadaşlar varsa kodlar aşağıdadır.

Dim x As Integer
x = Sheets("Sayfa1").Range("A:A").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row

    Cells(x, 1).Select