Sıfırdan User form oluşturmak isimli konu

[ametal]

merhabalar

Ferhat beyin vermiş olduğu derslerı daha yeni takip edebilme fırsatım oldu bölesi bir konu için başlık açılırmı bılmıyorum fakat ozel msg ıle gonderırsem belkı benım gıbı sorunu olan başka bır arkadasa haksızlık etmıs olurum die dusundum.

sorunum şu functıondan deger gondermeyı beceremedım ogrenme amaclı ferhat beyın anlattıgı adres yonetımı adlı projeyı yapmaya calıstım.
kod ornegı soyledır

Private Function kayıt_kontrol(sonuc As Boolean) As Boolean

'Dim sonuc As Boolean
For i = 2 To Sheets("data").Range("a65536").End(xlUp).Row
If Sheets("data").Range("b" & i).Value = txtAdi.Text And _
Sheets("data").Range("c" & i).Value = txtSoyadi.Text Then
MsgBox "Bu İsimde Bir kayıt zaten var", vbCritical, "MÜKERRER KAYIT BULUNDU"
sonuc = True
Exit Function
Else
sonuc = False
Exit Function

End If
Next i
End Function


Private Sub cmdKayıt_Click()
'Dim Son_Dolu_Satir, Bos_satir As Integer
Dim Mkayit As Boolean
renkdegis

If txtAdi.Text <> "" Then
If txtSoyadi.Text <> "" Then
If yeni_mi = True Then
kayıt_kontrol (Mkayit)


If Mkayit = True Then
MsgBox "mkayit"

Exit Sub
Else
cevap = MsgBox("kayıt işemi yapılıyor", vbOKCancel, "emin misiniz")
If cevap = vbCancel Then
Exit Sub
End If
End If

'txtAdi.BackColor = vbYellow
Son_Dolu_Satir = Sheets("data").Range("A65536").End(xlUp).Row
Bos_satir = Son_Dolu_Satir + 1
Sheets("data").Range("a" & Bos_satir).Value = _
Application.WorksheetFunction.Max(Sheets("data").Range("A:A")) + 1
Sheets("data").Range("b" & Bos_satir).Value = txtAdi.Text
Sheets("data").Range("c" & Bos_satir).Value = txtSoyadi.Text
Sheets("data").Range("d" & Bos_satir).Value = cbxSehir.Column
Sheets("data").Range("e" & Bos_satir).Value = cbxUlke.Column
'Sheets("data").Select

lbxData.RowSource = "data!b2:c" & Sheets("data").Range("a65536").End(xlUp).Row

Else
degistirilecek_satir = lbxData.ListIndex + 2
Sheets("data").Range("b" & degistirilecek_satir).Value = txtAdi.Text
Sheets("data").Range("c" & degistirilecek_satir).Value = txtSoyadi.Text

End If
'Unload frmKayıt

Else
MsgBox "Soyİsim Girmeniz gerekiyor"
End If
Else
MsgBox "İsim Girmeniz gerekiyor"
End If

'Sheets("data").Select
'Unload frmKayıt

End Sub