none
Como criar um botão Editar usando Form. RRS feed

  • Pergunta

  • Boa tarde Pessoal,

    Não conheço de VBA, mas vi que pode ser uma ferramenta excelente para otimização, então devido a isso estou me aventurando nesse mundo. Gostaria de uma ajuda para desenvolver um botão "Editar" dentro de um formulário, vou explicar abaixo um pouco melhor minha necessidade.

    Criei um formulário para cadastro de algumas informações, nesse formulário inclui uma pesquisa avançada, no qual você informa um dado que esteja procurando e dando um tab ele te resumi na tela os outros campos, ai OK. Preciso de ajuda para que após ele completar as informações eu altere um textbox qualquer e ele simplesmente entender o campo que fiz alteração e salvar após clicar no botão editar mantendo na planilha a mesma célula que já estava cadastrada.

    Olha minha configuração de Localizar como esta configurada, preciso de ajuda agora para quando clicar em editar ele salvar a alteração que fiz, se puderem me ajudar agradeço muito.

    Private Sub TextBox17_AfterUpdate()

    Dim intervalo As Range
    Dim texto As String
    Dim hostname
    Dim pesquisa
    Dim mensagem

    hostname = TextBox17.Text
    Sheets("Cadastro").Select
    Set intervalo = Range("A:Q")

    On Error GoTo trataErro

    pesquisa = Application.WorksheetFunction.VLookup(hostname, intervalo, 5, False)
    pesq1 = Application.WorksheetFunction.VLookup(hostname, intervalo, 16, False)
    pesq2 = Application.WorksheetFunction.VLookup(hostname, intervalo, 15, False)
    pesq3 = Application.WorksheetFunction.VLookup(hostname, intervalo, 14, False)
    pesq4 = Application.WorksheetFunction.VLookup(hostname, intervalo, 13, False)
    pesq5 = Application.WorksheetFunction.VLookup(hostname, intervalo, 12, False)
    pesq6 = Application.WorksheetFunction.VLookup(hostname, intervalo, 11, False)
    pesq7 = Application.WorksheetFunction.VLookup(hostname, intervalo, 10, False)
    pesq8 = Application.WorksheetFunction.VLookup(hostname, intervalo, 9, False)
    pesq9 = Application.WorksheetFunction.VLookup(hostname, intervalo, 8, False)
    pesq10 = Application.WorksheetFunction.VLookup(hostname, intervalo, 7, False)
    pesq11 = Application.WorksheetFunction.VLookup(hostname, intervalo, 6, False)
    pesq13 = Application.WorksheetFunction.VLookup(hostname, intervalo, 1, False)
    pesq14 = Application.WorksheetFunction.VLookup(hostname, intervalo, 2, False)
    pesq15 = Application.WorksheetFunction.VLookup(hostname, intervalo, 4, False)
    pesq16 = Application.WorksheetFunction.VLookup(hostname, intervalo, 17, False)

    TextBox12.Text = pesquisa
    TextBox1.Text = pesq1
    TextBox2.Text = pesq2
    TextBox3.Text = pesq3
    TextBox4.Text = pesq4
    TextBox5.Text = pesq5
    TextBox6.Text = pesq6
    TextBox7.Text = pesq7
    TextBox8.Text = pesq8
    TextBox9.Text = pesq9
    TextBox10.Text = pesq10
    TextBox11.Text = pesq11
    TextBox13.Text = pesq13
    TextBox14.Text = pesq14
    TextBox15.Text = pesq15
    TextBox16.Text = pesq16
    TextBox17.SetFocus

    Exit Sub
    trataErro:
       texto = "Servidor não localizado!"
       mensagem = MsgBox(texto, vbOKOnly + vbInformation)
       
    End Sub

    quinta-feira, 11 de abril de 2019 17:26

Respostas