Brunohsc

Olá! Estou criando um formulário para controle. E não estou conseguindo configurar o botão alterar. O meu formulário faz uma pesquisa de um determinado valor, e após tenho a opção de editar os valores encontrados, porem não sei como fazer para incerir os valores nas células onde foram encontrado os valores. Esta é a planilha Quando iniciado o Formulário. Após inserir valor no campo "Guia" O botão que preciso que funcione é o Editar. Quando clicado preciso que ele altere os valores inseridos nas células onde esta localizado o valor da pesquisa, neste caso a A;2 os códigos são: Private Sub Incluir_guias_Click() INCLUIRGUIA.Show End Sub Private Sub LIMPAR_Click() TextBox1.Text = Empty TextBox2.Text = Empty TextBox4.Text = Empty cbo_1.Value = Empty TextBox6.Text = Empty Lab_5.Visible = False Label5.Visible = False EDITAR_BT.Visible = False Lab_4.Visible = False TextBox4.Visible = False Label1.Visible = False cbo_1.Visible = False TextBox6.Visible = False LIMPAR.Visible = False Label6.Caption = Empty Me.TextBox1.SetFocus End Sub Private Sub SAIR_Click() Unload Me End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Aqui é selecionado a Planilha com seus dados (Plan1) no nosso exemplo With Plan1.Range("a:a") 'Aqui onde será digitado o que procurar Set c = .Find(TextBox1.Value, LookIn:=xlValues, LOOKAT:=xlWhole) 'Aqui outra tomada de decisão, caso encontre sua pesquisa, será retornado nas caixas de textbox. If Not c Is Nothing Then EDITAR_BT.Visible = True LIMPAR.Visible = True Lab_4.Visible = True TextBox4.Visible = True Label1.Visible = True cbo_1.Visible = True Lab_5.Visible = True Label5.Visible = True TextBox6.Visible = True Me.TextBox1.SetFocus Label2.Caption = c.Offset(0, 6) TextBox2.Text = c.Offset(0, 1) TextBox4 = Date + 1 TextBox6.Text = c.Offset(0, 5) 'Fim da Pesquisa End If If c Is Nothing Then Dim resultado As VbMsgBoxResult resultado = MsgBox("Deseja incluir novo?", vbYesNo, "Guia não localizada") If resultado = vbYes Then INCLUIRGUIA.Show LIMPAR.Visible = True Else TextBox1.Text = "" TextBox2.Text = "" TextBox4.Text = "" cbo_1.Value = "" TextBox6.Text = "" EDITAR_BT.Visible = False Lab_4.Visible = False TextBox4.Visible = False Label1.Visible = False cbo_1.Visible = False TextBox6.Visible = False LIMPAR.Visible = False Lab_5.Visible = False Label5.Visible = False End If End If End With End Sub Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean) LIMPAR.Visible = True Label6.Caption = TextBox4 End Sub Private Sub UserForm_Initialize() Label2 = Date TextBox1.Text = "" TextBox2.Text = "" TextBox4.Text = "" cbo_1.Value = "" TextBox6.Text = "" EDITAR_BT.Visible = False Lab_4.Visible = False Lab_5.Visible = False TextBox4.Visible = False Label1.Visible = False cbo_1.Visible = False TextBox6.Visible = False LIMPAR.Visible = False Label5.Visible = False lin = 2 With cbo_1 .ColumnCount = 1 .ColumnWidths = "50" .ColumnHeads = False 'AddItem method will not work if ListBox is bound to data, hence RowSource is cleared if it had been set .RowSource = "" End With cbo_1.AddItem "AIRTON" cbo_1.AddItem "ANTONIO" cbo_1.AddItem "CARLOS" cbo_1.AddItem "EDUARDO" cbo_1.AddItem "ELISEU" cbo_1.AddItem "JOAO" cbo_1.AddItem "LENO" cbo_1.AddItem "MARCOS" cbo_1.AddItem "PEDRO" cbo_1.AddItem "ROBERTO" cbo_1.AddItem "VALDIR" cbo_1.AddItem "WAGNER" cbo_1.AddItem "ZE HAMILTON" End Sub Segue link para download da planilha.. >> https://mega.nz/#!fgAAQAhT!rm3FsdFE0jHTOEpUwybXxM6zlOAhRWRCPwuc46_KG6w << Desde já agradeço.