Excelden aldığım data icinde adı Ali olanı bul diyorum ve soy adını text2 ye yazdırıyor

Kod:
Private Sub Command2_Click() rowcount1 = excelApp.Sheets(1).UsedRange.Rows.Count For det = 1 To rowcount1 If excelWB.Sheets(1).Cells(det, 1) = Text1.Text Then Text2.Text = excelWB.Sheets(1).Cells(det, 2) End If Next det End Sub
Fakat Ali adında bir başkası daha olunca işler karışıyor
bir kez bul dediğimizde başta gelen ali'nin soyadını yazsın
ikinci kez tıkladığımızda sonrakinin soyadını yazsın
bunu nasıl yapabilirim?
(word'deki bul gibi. bir kez bul deyince ilkini buluyor, bir daha bul deyince ikinciyi gosteriyor. ve en sonra "başka bulunamadı" diyor)
__________________