Como fazer funcionar vbOkCancel?  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Como fazer funcionar vbOkCancel?

Mensagempor robgomez » Qui Mar 14, 2019 6:12 pm

Olá a todos!

Pessoas, eu escrevi as condições, mas mas ainda nãos sei como fazer o vbOkCancel funcionar para meu código. Podem me ajudar?
Eu alimento um form através de TextBox e quando vou salvar tudo, uma MsgBox me retorna todas as informações digitadas e pergunta se está tudo certo. Ao dar OK, a MsgBox escreve tudo que foi digitado numa planilha e chama um outro form, mas ao dar Cancel, deveria voltar para o form anterior, para que eu corrigisse o erro ou acrescentasse mais informações. Como fazer isso?

Código: Selecionar todos
Private Sub CommandButton4_Click()
Dim Empresa, Cnpj, Insc, Linha, Responsa, Rg, Cpf, Fone, Marca, Cor, Quant, Parc, Valor1, Valor, Estado, Cidade, Log1, _
Log, Num, Bairro, Complemento, Cep, Centro As String

Sheets("INICIAR").Range("D1:D19").Copy
Sheets("INICIAR").Range("A1").PasteSpecial xlPasteValues

        Empresa = Me.txt_empresa.Text
        Cnpj = txt_cnpj.Text
        Insc = txt_insc.Text
        Linha = txt_linha.Text
        Responsa = txt_responsa.Text
        Rg = txt_rg.Text
        Cpf = txt_cpf.Text
        Fone = txt_fone.Text
        Marca = txt_marca.Text
        Quant = txt_quant.Text
        Parc = cmb_parc.Text
        Valor1 = txt_valor1.Text
        Valor = txt_valor.Text
        Estado = txt_estado.Text
        Cidade = cmb_cidade.Text
        Log1 = cmb_log.Text
        Log = txt_log.Text
        Num = txt_num.Text
        Bairro = txt_bairro.Text
        Complemento = txt_compl.Text
        Cep = txt_cep.Text
        Centro = cmb_centro
        Cor = txt_cor
                               
MsgBox Application.UserName & ": CONFIRA O PEDIDO " _
    & vbCrLf & " " _
    & vbCrLf & "Empresa: " & Empresa _
    & vbCrLf & "Cnpj: " & Cnpj _
    & vbCrLf & "Inscrição Estadual: " & Insc _
    & vbCrLf & "Número(s) da(s) Linha(s): " & Linha _
    & vbCrLf & "Responsável pelo recebimento: " & Responsa _
    & vbCrLf & "Rg: " & Rg & " e Cpf: " & Cpf _
    & vbCrLf & "Telefone de contato: " & Fone _
    & vbCrLf & "Marca/Modelo/cor: " & Marca & " - " & Cor _
    & vbCrLf & "Quantidade: " & Quant _
    & vbCrLf & "Parcela(s): " & Parc _
    & vbCrLf & "Valor da parcela: " & Valor1 _
    & vbCrLf & "Valor da Unidade: " & Valor _
    & vbCrLf & "Endereço Completo de Recebimento (deve ser o mesmo cadastrado na Receita federal): " _
    & vbCrLf & "" & Log1 & " " & Log & ", " & Num _
    & vbCrLf & "Complemento: " & Complemento _
    & vbCrLf & "Bairro: " & Bairro _
    & vbCrLf & "Cidade: " & Cidade & " - " & Estado _
    & vbCrLf & "Cep: " & Cep _
    , vbOKCancel + vbInformation, "RESPOSTA"
robgomez
Membro
Membro
 
Mensagens: 8
Registrado em: Sáb Fev 23, 2019 5:39 pm
Has thanked: 6 times
Have thanks: 0 time

{ SO_SELECT }

Re: Como fazer funcionar vbOkCancel?  [Resolvido]

Mensagempor wagner » Qui Mar 14, 2019 8:01 pm

robgomez,

Boa noite!

Faça assim:
Código: Selecionar todos
Private Sub CommandButton4_Click()
    Dim Empresa As String
    Dim Cnpj As String
    Dim Insc As String
    Dim Linha As String
    Dim Responsa As String
    Dim Rg As String
    Dim Cpf As String
    Dim Fone As String
    Dim Marca As String
    Dim Cor As String
    Dim Quant As String
    Dim Parc As String
    Dim Valor1 As String
    Dim Valor As String
    Dim Estado As String
    Dim Cidade As String
    Dim Log1 As String
    Dim Log As String
    Dim Num As String
    Dim Bairro As String
    Dim Complemento As String
    Dim Cep As String
    Dim Centro As String
    Dim Resposta As Integer
    Dim Msg As String
   
    Sheets("INICIAR").Range("D1:D19").Copy
    Sheets("INICIAR").Range("A1").PasteSpecial xlPasteValues

    Empresa = Me.txt_empresa.Text
    Cnpj = txt_cnpj.Text
    Insc = txt_insc.Text
    Linha = txt_linha.Text
    Responsa = txt_responsa.Text
    Rg = txt_rg.Text
    Cpf = txt_cpf.Text
    Fone = txt_fone.Text
    Marca = txt_marca.Text
    Quant = txt_quant.Text
    Parc = cmb_parc.Text
    Valor1 = txt_valor1.Text
    Valor = txt_valor.Text
    Estado = txt_estado.Text
    Cidade = cmb_cidade.Text
    Log1 = cmb_log.Text
    Log = txt_log.Text
    Num = txt_num.Text
    Bairro = txt_bairro.Text
    Complemento = txt_compl.Text
    Cep = txt_cep.Text
    Centro = cmb_centro
    Cor = txt_cor

    Msg = Application.UserName & ": CONFIRA O PEDIDO " _
    & vbCrLf & " " _
    & vbCrLf & "Empresa: " & Empresa _
    & vbCrLf & "Cnpj: " & Cnpj _
    & vbCrLf & "Inscrição Estadual: " & Insc _
    & vbCrLf & "Número(s) da(s) Linha(s): " & Linha _
    & vbCrLf & "Responsável pelo recebimento: " & Responsa _
    & vbCrLf & "Rg: " & Rg & " e Cpf: " & Cpf _
    & vbCrLf & "Telefone de contato: " & Fone _
    & vbCrLf & "Marca/Modelo/cor: " & Marca & " - " & Cor _
    & vbCrLf & "Quantidade: " & Quant _
    & vbCrLf & "Parcela(s): " & Parc _
    & vbCrLf & "Valor da parcela: " & Valor1 _
    & vbCrLf & "Valor da Unidade: " & Valor _
    & vbCrLf & "Endereço Completo de Recebimento (deve ser o mesmo cadastrado na Receita federal): " _
    & vbCrLf & "" & Log1 & " " & Log & ", " & Num _
    & vbCrLf & "Complemento: " & Complemento _
    & vbCrLf & "Bairro: " & Bairro _
    & vbCrLf & "Cidade: " & Cidade & " - " & Estado _
    & vbCrLf & "Cep: " & Cep
    Resposta = MsgBox(Msg, vbOKCancel + vbInformation, "RESPOSTA")
    'Se o botão for OK
    If Resposta = 1 Then
        'Código para OK
    End If
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
robgomez (Qua Mar 20, 2019 10:57 pm)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5252
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 93 times
Have thanks: 2246 times

Re: Como fazer funcionar vbOkCancel?

Mensagempor robgomez » Dom Mar 17, 2019 11:43 pm

wagner,

Muito obrigado!
Funcionou perfeitamente!
Comunidade muito incrível!
robgomez
Membro
Membro
 
Mensagens: 8
Registrado em: Sáb Fev 23, 2019 5:39 pm
Has thanked: 6 times
Have thanks: 0 time

Re: Como fazer funcionar vbOkCancel?

Mensagempor wagner » Seg Mar 18, 2019 10:09 am

Ok.

De nada!

Peço votar positivamente clicando na mãozinha existente ao lado da ferramenta CITAR.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
robgomez (Qua Mar 20, 2019 10:57 pm)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5252
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 93 times
Have thanks: 2246 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot] e 5 visitantes