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
