Makro ile veri bulup,tabloda güncelleme yapma

[winson]

Merhabalar, benim problemim şu şekilde;
Tabloda adayın ismini bulup, sonuç kısmına girdiğim bilgiyi ilgili adayın sonuç kısmına yazmasını istiyorum. Kodlar şu şekilde;

Sayfa2.Activate
If adi.Text = "" Or iksonuc.Value = "" Then
MsgBox ("GÜNCELLEME YAPABİLMEK İÇİN TÜM ALANLARI DOLDURMALISINIZ!"), vbExclamation
Else
If Not IsError(Application.Match(CDbl(adi.Text), Sayfa2.Range("b:b"), 0)) Then
satir = Application.Match(CDbl(adi.Text), Sayfa2.Range("b:b"), 0)
Cells(satir, 12).Value = Format(Now, "dd.mm.yyyy")
Cells(satir, 13).Value = iksonuc.Value
Else
MsgBox ("GİRİLEN AD VE SOYAD SİSTEMDE KAYITLI DEĞİL!"), vbInformation
End If
End If
adi.Text = ""
iksonuc.Value = ""

Fakat hata alıyorum.
If Not IsError(Application.Match(CDbl(adi.Text), Sayfa2.Range("b:b"), 0)) Then
Bu satırda veri uyumsuzluğu olan type missmatch hatası alıyorum.
Yardımlarınız için şimdiden teşekkürler