Onde esta o erro

Question

Quero que quando carrego na caixa de dialogo no ele feche o Formulario e va para a folha "Com", ultima linha com dados

MsgBox "Registro Inserido", 6, "Inserir" 

resposta = MsgBox("Novo Registro?", 36, "Inserir") 

If resposta = vbYes Then 

    Dim objeto As Control 

    For Each objeto In Me.Controls 

        If TypeName(objeto) = "TextBox" Or TypeName(objeto) = "ComboBox" Then 

            Select Case objeto.Name 

                ' /\* Keep the values you have entered. \*/ 

                Case "txtdata", "ComboBox1", "Fatura", "ComboBox2", "ComboBox3" 

                    ' Do nothing here. 

                Case Else 

                    objeto.Text = "" 

            End Select 

        End If 

    Next 

  End If 

If resposta = vbNo Then

Unload Geral 

    Sheets("Com").Select 

    Sheets("Com").Activete 

    End If 

End Sub

Answer 1

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Olá AdrianoPaulo,

Obrigado por visitar a Comunidade da Microsoft.

Eu entendo que você está tendo problemas com o VBA. Como há menos envolvimento com o conteúdo do VBA nesta comunidade, é recomendável que você poste suas perguntas relacionadas no Stack Overflow (somente em inglês) https://stackoverflow.com/questions/tagged/vba, onde há profissionais mais experientes que podem oferecer conselhos.

Isenção de responsabilidade: a Microsoft não oferece garantias implícitas ou outras garantias e não é responsável por informações obtidas de sites de terceiros vinculados ou por qualquer suporte técnico relacionado à tecnologia fornecida por esses sites.

Vou manter este tópico aberto em antecipação aos nossos maravilhosos voluntários que podem fornecer orientação.

Atenciosamente

Jonathan Z - MSFT | Especialista em suporte da comunidade Microsoft