Posta aqui no forum seu modelo compactado que ajudo se conseguir

Posta aqui no forum seu modelo compactado que ajudo se conseguir

Ok, vou separar,

CADASTRO.

Private Sub BTN_INSERIR_Click()

Dim campos As Variant
Dim k As Byte
Dim h As Integer


TXT_CONTREG = Sheets("listas_suspensas").Range("a2")

campos = Array(TXT_CONTREG, TXT_CODTOURO, TXT_NOME, TXT_DTNASC, TXT_NACIO, cmb_apt, cmb_orig, cmb_raca, cmb_parent, TXT_NOMEP, TXT_DTFILM, CMB_TIPFILM, TXT_OBS)

Application.ScreenUpdating = False

Sheets("plan1").Activate
Range("a2").Select


Do While IsEmpty(ActiveCell) = False
    ActiveCell.Offset(1, 0).Select

Loop
For k = 0 To 11
    ActiveCell.Offset(0, k).Value = campos(k).Value
   
Next k

MsgBox "O Touro'" & campos(1) & "-" & campos(2) & " foi cadastrado com sucesso.", vbInformation, "Confirmação de Cadastro"

For k = 0 To 11

   campos(k).Value = Empty
     
Next k

Cells.EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub

Private Sub BTN_LIMPAR_Click()

TXT_CODTOURO = Empty

TXT_CODTOURO = Empty
TXT_NOME = Empty
TXT_DTNASC = Empty
TXT_NACIO = Empty
cmb_apt = Empty
cmb_orig = Empty
cmb_raca = Empty
cmb_parent = Empty
TXT_NOMEP = Empty
TXT_DTFILM = Empty
MB_TIPFILM = Empty
TXT_OBS = Empty


End Sub

Private Sub BTN_PESQUISAR_Click()

pesquisa.Show

End Sub


Private Sub btn_sair_Click()

Unload Cadastro

End Sub

PESQUISA

Private Sub CommandButton1_Click()
Unload Me

End Sub


End Sub

Private Sub CommandButton3_Click()

pesquisa.TXT_CODTOURO.Enabled = True
pesquisa.TXT_NOME.Enabled = True
pesquisa.TXT_DTNASC.Enabled = True
pesquisa.TXT_NACIO.Enabled = True
pesquisa.cmb_apt.Enabled = True
pesquisa.cmb_orig.Enabled = True
pesquisa.cmb_raca.Enabled = True
pesquisa.cmb_parent.Enabled = True
pesquisa.TXT_NOMEP.Enabled = True
pesquisa.TXT_DTFILM.Enabled = True
pesquisa.CMB_TIPFILM.Enabled = True
pesquisa.TXT_OBS.Enabled = True


End Sub

Private Sub ListBox_pesq_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim vl_1 As Variant
Dim vl_2, vl_3, vl_4, vl_5, vl_6, vl_7, vl_8, vl_9, vl_10, vl_11, vl_12, vl_13 As Variant


Dim selecao As Variant

selecao = ListBox_pesq.ListIndex
vl_1 = ListBox_pesq.List(selecao, 0)
vl_2 = ListBox_pesq.List(selecao, 1)
vl_3 = ListBox_pesq.List(selecao, 2)
vl_4 = ListBox_pesq.List(selecao, 3)
vl_5 = ListBox_pesq.List(selecao, 4)
vl_6 = ListBox_pesq.List(selecao, 5)
vl_7 = ListBox_pesq.List(selecao, 6)
vl_8 = ListBox_pesq.List(selecao, 7)
vl_9 = ListBox_pesq.List(selecao, 8)
vl_10 = ListBox_pesq.List(selecao, 9)
vl_11 = ListBox_pesq.List(selecao, 10)
vl_12 = ListBox_pesq.List(selecao, 11)
vl_13 = ListBox_pesq.List(selecao, 12)


pesquisa.TXT_CONTREG = vl_1
pesquisa.TXT_CODTOURO = vl_2
pesquisa.TXT_NOME = vl_3
pesquisa.TXT_DTNASC = vl_4
pesquisa.TXT_NACIO = vl_5
pesquisa.cmb_apt = vl_6
pesquisa.cmb_orig = vl_7
pesquisa.cmb_raca = vl_8
pesquisa.cmb_parent = vl_9
pesquisa.TXT_NOMEP = vl_10
pesquisa.TXT_DTFILM = vl_11
pesquisa.CMB_TIPFILM = vl_12
pesquisa.TXT_OBS = vl_13
   

pesquisa.TXT_CODTOURO.Enabled = False
pesquisa.TXT_CONTREG.Enabled = False
pesquisa.TXT_NOME.Enabled = False
pesquisa.TXT_DTNASC.Enabled = False
pesquisa.TXT_NACIO.Enabled = False
pesquisa.cmb_apt.Enabled = False
pesquisa.cmb_orig.Enabled = False
pesquisa.cmb_raca.Enabled = False
pesquisa.cmb_parent.Enabled = False
pesquisa.TXT_NOMEP.Enabled = False
pesquisa.TXT_DTFILM.Enabled = False
pesquisa.CMB_TIPFILM.Enabled = False
pesquisa.TXT_OBS.Enabled = False


End Sub



Private Sub UserForm_Initialize()

With Sheets("plan1").UsedRange

    ListBox_pesq.ColumnCount = 13
    ListBox_pesq.RowSource = .Address
    
End With

lbl_totalregistro.Caption = " Total de Registro(s):" & ListBox_pesq.ListCount - 1

End Sub

Para o botão inserir

Private Sub BTN_INSERIR_Click()

Dim campos As Variant
Dim k As Byte
Dim h As Integer

Application.ScreenUpdating = False
Sheets("plan1").Activate

Range("a" & Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1).Select

TXT_CONTREG = Application.WorksheetFunction.Max(Range("A2:A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row)) + 1

campos = Array(TXT_CONTREG, TXT_CODTOURO, TXT_NOME, TXT_DTNASC, TXT_NACIO, cmb_apt, cmb_orig, cmb_raca, cmb_parent, TXT_NOMEP, TXT_DTFILM, CMB_TIPFILM, TXT_OBS)


For k = 0 To 12
    ActiveCell.Offset(0, k).Value = campos(k).Value
Next k

MsgBox "O Touro'" & campos(1) & "-" & campos(2) & " foi cadastrado com sucesso.", vbInformation, "Confirmação de Cadastro"

For k = 0 To 12

   campos(k).Value = Empty
     
Next k

Cells.EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub

Para o botão inserir

Private Sub BTN_INSERIR_Click()

Dim campos As Variant
Dim k As Byte
Dim h As Integer

Application.ScreenUpdating = False
Sheets("plan1").Activate

Range("a" & Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1).Select

TXT_CONTREG = Application.WorksheetFunction.Max(Range("A2:A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row)) + 1

campos = Array(TXT_CONTREG, TXT_CODTOURO, TXT_NOME, TXT_DTNASC, TXT_NACIO, cmb_apt, cmb_orig, cmb_raca, cmb_parent, TXT_NOMEP, TXT_DTFILM, CMB_TIPFILM, TXT_OBS)


For k = 0 To 12
    ActiveCell.Offset(0, k).Value = campos(k).Value
Next k

MsgBox "O Touro'" & campos(1) & "-" & campos(2) & " foi cadastrado com sucesso.", vbInformation, "Confirmação de Cadastro"

For k = 0 To 12

   campos(k).Value = Empty
     
Next k

Cells.EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub

brigado pelo ajuda, ja é mais um passo! obrigado mesmo

Para o Botão Excluir

Private Sub CommandButton2_Click()
Dim i As Integer, nLin As Integer
For i = 0 To ListBox_pesq.ListCount - 1
    If ListBox_pesq.Selected(i) Then
        nLin = Application.Match(ListBox_pesq.List(ListBox_pesq.ListIndex, 0), Sheets("Plan1").Range("A:A"), 0)
    End If
Next i
If MsgBox("Deseja Excluir o Registro: " & Sheets("Plan1").Cells(nLin, 1) & " - " & Sheets("Plan1").Cells(nLin, 2), _
    vbQuestion + vbYesNo, "Confirmação") = vbYes Then
    Sheets("Plan1").Range("A" & nLin).Select
    Selection.EntireRow.Delete
    lbl_totalregistro.Caption = " Total de Registro(s):" & ListBox_pesq.ListCount - 1
End If
End Sub