- 24 Jun 2019 às 09:44
#45033
Bom dia!!
Estou com um problema que ta me fervendo a cabeça, pois não consigo resolver... Estou tentando criar um botão de edição no meu fomulário porém quando peço pra ele atualizar as informação que foram modificadas os valores estão indo para a ultima linha vazia da planilha e não para a linha equivalente ao registro a ser editado.
Estou usando a seguinte linda de códigos
Dim EDITLAM As String
EDITLAM = TextBox9
On Error Resume Next
B = Application.WorksheetFunction.Match(EDITLAM, Plan2.Columns(1), 1)
'=================='
Plan5.Cells(B, 5) = TextBox7
Onde a Textbox9 é uma concatenação de duas outras Textbox, que quando é salvo o fom. elas enviam o nome completo de registro que serve de referencia para a busca.
Observação o form. usa no botão, de busca o mesmo esquema de concatenação na textbox9 e a busca funciona bonitinha.
Desde já agradeço a atenção de todos.
Estou com um problema que ta me fervendo a cabeça, pois não consigo resolver... Estou tentando criar um botão de edição no meu fomulário porém quando peço pra ele atualizar as informação que foram modificadas os valores estão indo para a ultima linha vazia da planilha e não para a linha equivalente ao registro a ser editado.
Estou usando a seguinte linda de códigos
Dim EDITLAM As String
EDITLAM = TextBox9
On Error Resume Next
B = Application.WorksheetFunction.Match(EDITLAM, Plan2.Columns(1), 1)
'=================='
Plan5.Cells(B, 5) = TextBox7
Onde a Textbox9 é uma concatenação de duas outras Textbox, que quando é salvo o fom. elas enviam o nome completo de registro que serve de referencia para a busca.
Observação o form. usa no botão, de busca o mesmo esquema de concatenação na textbox9 e a busca funciona bonitinha.
Desde já agradeço a atenção de todos.
