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
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.
Access Çekirgesi
Son Düzenleme: 14/03/2021, 16:20, Düzenleyen: Oğuz Türkyılmaz.