Textboxa girilen verinin hücre değeri ile kıyaslanması hatası

[ByVely]

Herkese selam,
VBA ile bir form oluşturdum,

FORM:
Sicil : [Textbox1) ARA
Adı Soyadı : [Label1] ( aranılan sicil no kimin ise o kişinin ismi burada çıkacak)

Excel Personel safasının "A" sütununda Sicil No, "B" sütununda Adı Soyadı alanları var. Formdaki textbox kutucuğuna sicil no girilip ARA ya tıklanınca "A" sütunundaki sicil noları tarayıp eşleşme gerçekleştiğinde "B" sütunundaki Adı soyadı bilgisini formun Label1 elemanında göstermesini istiyorum. Sorun şu ki veriler eşit olduğu halde eşit değilmiş gibi davranıyor. Oluşturduğum kodlar aşağıdadır:

Private Sub Ara_Click()
Dim i, Sicil As Integer

For i = 1 To Sheets("Personel").Range("B2").Value
       If Textbox1.Value = Sheets("Personel").Range("A" & i + 3).Value Then  (veriler 4. satırdan itibaren başlıyor)
       LabelAdi.Caption = Sheets("Personel").Range("B" & i + 3).Value
       End If
    Next i
End Sub

Yardımcı olursanız sevinirim...Herkese teşekkürler.

 

[Muzaffer Ali]

Value yerine Text yazarak deneyin.

If Textbox1.[COLOR="Red"]Value [/COLOR]= Sheets("Personel").Range("A" & i + 3).[COLOR="red"]Value[/COLOR]

If Textbox1.text= Sheets("Personel").Range("A" & i + 3).text

 

[ByVely]

İlginize teşekkür ederim..
Düzeldi....