VBA Para cadastro com error de compilação: Método ou membro de dados não encontrado

[Yago bezerra]

Bom dia. 

Já verifiquei os nomes das teclas do userform com o código porém continuo com esse erro.
diversas vezes postei no ChatGPT e ele corrigiu mas o erro persiste.

 

Sub B_cadastrarauditor_Click()

Dim audit_off As Object
Dim audit_man As Object
Dim a_man As Object
Dim a_off As Object
Dim TXT_auditorname As MSForms.TextBox
Set TXT_auditorname = Me.TXT_auditorname
Dim ws As Worksheet
Dim OB_off As MSForms.OptionButton
Set OB_off = Me.OB_off
Dim OB_man As MSForms.OptionButton
Set OB_man = Me.OB_man
Dim nextRow As Long

    If OB_off = False And OB_man = False Then
        MsgBox "Selecione em qual área será cadastrado o auditor"
        Exit Sub
    ElseIf TXT_auditorname = "" Then
        MsgBox "Preencha o nome do auditor"
    End If

    
    If OB_off = True Then
        Set ws = ThisWorkbook.Sheets("Database_tables")
    
        'Get the next empty row in the table
        nextRow = ws.ListObjects("audit_off").Range.Rows.Count + 1
    
        'Capture data from the UserForm text box
        ws.ListObjects("audit_off").ListRows.Add.Range(1, 1).Value = TXT_auditorname.Value
    
        'Clear the UserForm text box after data is captured
        TXT_auditorname.Value = ""
        
        MsgBox "Auditor cadastrado com sucesso"
        
    ElseIf OB_man = True Then
        Set ws = ThisWorkbook.Sheets("Database_tables")
    
        'Get the next empty row in the table
        nextRow = ws.ListObjects("audit_man").Range.Rows.Count + 1
    
        'Capture data from the UserForm text box
        ws.ListObjects("audit_man").ListRows.Add.Range(1, 1).Value = TXT_auditorname.Value
    
        'Clear the UserForm text box after data is captured
        TXT_auditorname.Value = ""
        
        MsgBox "Auditor cadastrado com sucesso"
        
    End If

    reg_auditor.Close
   
    
End Sub

 

Editado Fevereiro 7, 2023 por Yago bezerra

[Basole]

@Yago bezerraboa tarde

Qual o erro apresentado? E em qual linha apresenta o erro? 

 

 

[Yago bezerra]

DEsculpe, achei que havia descrito o erro

ele já aparece no titulo da sub

 

[Basole]

O que seria o objeto reg_auditor? 

 

[Yago bezerra]

User form

[Basole]

Altere a linha

reg_auditor.Close 

para

Unload reg_auditor

[Yago bezerra]

Deu boa!!

agora estou com outro problema hahaha

mas esse foi resolvido! 

Obrigado.