none
tenho o seguinte código para salvar, preciso de um comando para atualizar os dados! RRS feed

  • Pergunta

  • Private Sub Botão_salvar_Click()

    'Abaixo criei a variável total registro onde irá armazenar a quantidade de linhas que foram preenchidas
    totalregistro = Worksheets("Bancodedados").UsedRange.Rows.Count + 1

    Worksheets("Bancodedados").Select

    'Aqui começa agravação dos dados
    Cells(totalregistro, 1) = caixa_empresa
    Cells(totalregistro, 2) = caixa_cnpj
    Cells(totalregistro, 3) = caixa_ie
    Cells(totalregistro, 4) = caixa_endereço
    Cells(totalregistro, 5) = caixa_numero
    Cells(totalregistro, 6) = caixa_bairro
    Cells(totalregistro, 7) = caixa_cidade
    Cells(totalregistro, 8) = Caixa_uf
    Cells(totalregistro, 9) = caixa_cep
    Cells(totalregistro, 10) = caixa_ddd1
    Cells(totalregistro, 11) = caixa_telefone1
    Cells(totalregistro, 12) = caixa_ddd2
    Cells(totalregistro, 13) = caixa_telefone2
    Cells(totalregistro, 14) = caixa_ddd3
    Cells(totalregistro, 15) = caixa_telefone3
    Cells(totalregistro, 16) = caixa_contato
    Cells(totalregistro, 17) = caixa_email
    Cells(totalregistro, 18) = caixa_observação

    'mensagem de gravação concluída
    MsgBox "Dados gravados com sucesso", vbInformation, "Sistema"

    'limpar dados das caixas

    caixa_empresa = ""
    caixa_cnpj = ""
    caixa_ie = ""
    caixa_endereço = ""
    caixa_numero = ""
    caixa_bairro = ""
    caixa_cidade = ""
    Caixa_uf = ""
    caixa_cep = ""
    caixa_ddd1 = ""
    caixa_telefone1 = ""
    caixa_ddd2 = ""
    caixa_telefone2 = ""
    caixa_ddd3 = ""
    caixa_telefone3 = ""
    caixa_contato = ""
    caixa_email = ""
    caixa_observação = ""

    'colocar foco na caixa empresa

    caixa_empresa.SetFocus

    'código para preencher a caixa localizar
    totaldelinhas = Worksheets("Bancodedados").UsedRange.Rows.Count + 1
    caixa_localizar.RowSource = "Bancodedados!a2: a" & totaldelinhas

    'comando para classificar os nomes em ordem alfabética

    Ordenar

    ' comando para salvar automatico
    ActiveWorkbook.Save


    End Sub
    quarta-feira, 21 de janeiro de 2015 17:51

Todas as Respostas

  • tenho o seguinte código para salvar, preciso de um comando para atualizar os dados!

    Private Sub Botão_salvar_Click()
    'Abaixo criei a variável total registro onde irá armazenar a quantidade de linhas que foram preenchidas
    totalregistro = Worksheets("Bancodedados").UsedRange.Rows.Count + 1

    Worksheets("Bancodedados").Select

    'Aqui começa agravação dos dados
    Cells(totalregistro, 1) = caixa_empresa
    Cells(totalregistro, 2) = caixa_cnpj
    Cells(totalregistro, 3) = caixa_ie
    Cells(totalregistro, 4) = caixa_endereço
    Cells(totalregistro, 5) = caixa_numero
    Cells(totalregistro, 6) = caixa_bairro
    Cells(totalregistro, 7) = caixa_cidade
    Cells(totalregistro, 8) = Caixa_uf
    Cells(totalregistro, 9) = caixa_cep
    Cells(totalregistro, 10) = caixa_ddd1
    Cells(totalregistro, 11) = caixa_telefone1
    Cells(totalregistro, 12) = caixa_ddd2
    Cells(totalregistro, 13) = caixa_telefone2
    Cells(totalregistro, 14) = caixa_ddd3
    Cells(totalregistro, 15) = caixa_telefone3
    Cells(totalregistro, 16) = caixa_contato
    Cells(totalregistro, 17) = caixa_email
    Cells(totalregistro, 18) = caixa_observação

    'mensagem de gravação concluída
    MsgBox "Dados gravados com sucesso", vbInformation, "Sistema"

    'limpar dados das caixas

    caixa_empresa = ""
    caixa_cnpj = ""
    caixa_ie = ""
    caixa_endereço = ""
    caixa_numero = ""
    caixa_bairro = ""
    caixa_cidade = ""
    Caixa_uf = ""
    caixa_cep = ""
    caixa_ddd1 = ""
    caixa_telefone1 = ""
    caixa_ddd2 = ""
    caixa_telefone2 = ""
    caixa_ddd3 = ""
    caixa_telefone3 = ""
    caixa_contato = ""
    caixa_email = ""
    caixa_observação = ""

    'colocar foco na caixa empresa

    caixa_empresa.SetFocus

    'código para preencher a caixa localizar
    totaldelinhas = Worksheets("Bancodedados").UsedRange.Rows.Count + 1
    caixa_localizar.RowSource = "Bancodedados!a2: a" & totaldelinhas

    'comando para classificar os nomes em ordem alfabética

    Ordenar

    ' comando para salvar automatico
    ActiveWorkbook.Save


    End Sub


    quarta-feira, 21 de janeiro de 2015 17:12
  • Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

    ---

    Sobre sua dúvida, poderia explicar melhor o que pretende fazer? Não consegui compreender.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quinta-feira, 22 de janeiro de 2015 23:03
    Moderador