botão alterar Botão alterar

[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.

Editado Junho 13, 2016 por Brunohsc