Feraz Hocam İlk Kaydı düzgün yaptı 2.sinde resimdeki gibi kaydetti. Eğer aynı kayıttan varsa 2.sini düzgün kaydediyor ama aynı kayıttan yoksa yeni kaydı resimdeki gibi yapıyor.

Private Sub btn_KayitEkle_Click()



If MsgBox("Girdiginiz veriler kaydedilecektir, Emin misiniz...?", vbExclamation + vbYesNo, "Firma Tanımlama Formu") = vbNo Then Exit Sub



Dim Firma, YeniFirma



Firma = TextBox_FirmaAdi.Value



YeniFirma = IIf(Application.CountIf(Columns(2), Firma) > 0, 1, 0)



If YeniFirma > 0 And TextBox_FirmaAdi.Value <> "" Then



If MsgBox("Aynı Adla Yapılmış Firma Kaydı Bulundu...Kayıt Yapılsın mı...?", vbExclamation + vbYesNo, "Firma Tanımlama Formu") = vbNo Then Exit Sub



Else



Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Firma



End If





' Application.ScreenUpdating = False



    With ThisWorkbook.Worksheets("Ana_Sayfa")

    '    .Unprotect sifre

        'SonSatir = WorksheetFunction.CountA(.Range("A:A")) + 1

        

        SonSatir = .Range("A" & Rows.Count).End(3).Row + 1

        .Cells(SonSatir, 1) = WorksheetFunction.Max(.Range("A2:A" & Rows.Count)) + 1