Kodların en son halini bu şekilde düzenledim. Sorunsuz çalışıyor. Feraz hocam la sizin kodların mixini yapmış oldum gibi oldu. Hız konusunda ilerde bilgi verebilirim ancak. Kodların bu şekliyle kayıtları girmeye yeni başlıyorum. Yeterince kayıt girdikten sonra hızda bir yavaşlama algılarsam mutlaka sizin ve feraz hocamın yeni kodlarıyla da deneme yapar bilgi veririm.
Kod:
Private Sub btn_KayitSil_Click()
If ComboBox_FirmaUnvani.Tag = "" Or TextBox_ID.Value = "" Then
MsgBox "Firma Ünvanları Seçeneğinden Silmek İstediğiniz Kaydı Seçmelisiniz...", vbCritical, "Hata"
Exit Sub
End If
If MsgBox("Veriler Silinecek, Emin misiniz...?", vbExclamation + vbYesNo, "Firma Tanımlama Formu") = vbNo Then Exit Sub
With ThisWorkbook.Worksheets("Ana_Sayfa")
.Unprotect "171717"
.Rows(ComboBox_FirmaUnvani.Tag).EntireRow.Delete
ComboBox_FirmaUnvani.RemoveItem (Me.ComboBox_FirmaUnvani.ListIndex)
ComboBox_FirmaUnvani.Tag = ""
.Protect "171717"
Call temizle
TextBox_Tarih = Format(Date, "dd.mm.yyyy")
End With
TextBox_Tarih.SetFocus
With TextBox_Tarih
.SelStart = 0
.SelLength = .TextLength
End With
btn_KayitEkle.Enabled = True
End Sub