Excel Vba İle Userform Üzerinden Kayıt Silme Hakkında.

gerçi soru çözüldü ama farklı bir yöntem buldum onu da eklemek istedim
Not1: aslında her silmeden sonra firmaunvan açılır kutusu güncellenmeli
Not2: bu kadar az veriyle hızını kontrol edemedim hızla ilgili bilgi verirseniz sevinirim

Sub KytSil(ByVal IDBul As String)



Dim tbl As ListObject

Dim Sonuc As Range

Dim IDBul As String



With ThisWorkbook.Worksheets("ana_sayfa")

  

  Set tbl = .ListObjects("Tablo1")



'1. sütunda veri arama

  On Error Resume Next

  Set Sonuc = tbl.DataBodyRange.Columns(1).Find(IDBul, LookAt:=xlWhole)

  On Error GoTo 0



'bulunan verini silinmesi

        .Unprotect "171717"

            If Not Sonuc Is Nothing Then

              xTblBul = tbl.ListRows(Sonuc.row - tbl.HeaderRowRange.row).Index

              tbl.ListRows(xTblBul).Delete

            End If

        .Protect "171717"

End With

End Sub

kayıt silince combodan da o değeri silen kod eklenmiştir
ComboBox_FirmaUnvani.RemoveItem (Me.ComboBox_FirmaUnvani.ListIndex) '<== combodan değer silme

Private Sub btn_KayitSil_Click()

If Len(TextBox_ID & "") = 0 Then Exit Sub

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



    With ThisWorkbook.Worksheets("Ana_Sayfa")

            KytSil (TextBox_ID)

            ComboBox_FirmaUnvani.RemoveItem (Me.ComboBox_FirmaUnvani.ListIndex) '<== combodan değer silme

            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

Modüle eklenen kayıt silme kodu

Sub KytSil(ByVal IDBul As String)



Dim tbl As ListObject

Dim Sonuc As Range



With ThisWorkbook.Worksheets("ana_sayfa")

  

  Set tbl = .ListObjects("Tablo1")



'1. sütunda veri arama

  On Error Resume Next

  Set Sonuc = tbl.DataBodyRange.Columns(1).Find(IDBul, LookAt:=xlWhole)

  On Error GoTo 0



'bulunan verini silinmesi

        .Unprotect "171717"

            If Not Sonuc Is Nothing Then

              xTblBul = tbl.ListRows(Sonuc.row - tbl.HeaderRowRange.row).Index

              tbl.ListRows(xTblBul).Delete

            End If

        .Protect "171717"

End With

End Sub

Buda alternatif olsun dictionary ve dizi ile

Private Sub btn_KayitSil_Click()

    Dim dic As Object, i As Long

    Dim dizi, sonTabloSatr As Long, aranan

    

    If Len(Trim(TextBox_ID.Value)) = 0 Then Exit Sub

    If Len(Trim(ComboBox_FirmaUnvani.Value)) = 0 Then Exit Sub

    If MsgBox("Veriler Silinecek, Emin misiniz...?", vbExclamation + vbYesNo, "Firma Tanýmlama Formu") = vbNo Then Exit Sub



    With ThisWorkbook.Worksheets("Ana_Sayfa")

        sonTabloSatr = .Cells.Find("*", _

                                    SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row

    

        If WorksheetFunction.CountA(.Range("A2:A" & Rows.Count)) = 0 Then Exit Sub

        If sonTabloSatr < 2 Then Exit Sub

        Set dic = CreateObject("scripting.dictionary")

        If WorksheetFunction.CountA(.Range("A2:A" & Rows.Count)) = 1 Then

            dic.Add CStr(.Range("A" & sonTabloSatr).Value), 2

        ElseIf WorksheetFunction.CountA(.Range("A2:A" & Rows.Count)) > 1 Then

            dizi = .Range("A2:A" & sonTabloSatr).Value

            For i = LBound(dizi) To UBound(dizi)

                aranan = CStr(dizi(i, 1))

                If dic.Exists(aranan) = False Then dic.Add aranan, i + 1

            Next

            Erase dizi

        End If

        

        If dic.Count = 0 Then Exit Sub

        .Unprotect "171717"

        .Rows(dic(CStr(Me.TextBox_ID.Value))).Delete

        UserForm_Initialize

        .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

    Set dic = Nothing

    MsgBox "Kayit silindi..", vbInformation, "Bilgi"

End Sub

Feraz Hocam Zahmet oldu size de ama anladım çok teşekkür ederin.

Berduş hocam teşekkür ederim bende bu sorunu me.requery ile çözmeye çalışıyordum.
Kodların en son halini bu şekilde düzenledim. Sorunsuz çalışıyor. Feraz hocam la sizin kodların mixini yapmış oldum gibi oldu.

Hızda yavaşlama olmaz abey hiçbir kodda.