Boa Noite a Todos
Me chamo Eduardo Freitas e estou com um problema que não consigo resolver
criei todo um formulário VBA 2010 e o unico botão que eu não consigo colocar para funcionar é ALTERAR
o código que estou usando é esse
Private Sub botao_alterar_Click()
linha = 2
If Sheets("bancodedados").Cells(linha, 1) = clientes.box_nome_cliente.Text Then
Sheets("bancodedados").Cells(linha, 2) = clientes.box_empresa.Text
Sheets("bancodedados").Cells(linha, 3) = clientes.box_telefone_fixo.Text
Sheets("bancodedados").Cells(linha, 4) = clientes.box_telefone_fax.Text
Sheets("bancodedados").Cells(linha, 5) = clientes.box_celular.Text
Sheets("bancodedados").Cells(linha, 6) = clientes.box_endereco_web.Text
Sheets("bancodedados").Cells(linha, 7) = clientes.box_email.Text
Sheets("bancodedados").Cells(linha, = clientes.box_observacao.Text
Sheets("bancodedados").Cells(linha, 9) = clientes.box_registro.Text
'mensagem após a alteração
MsgBox "Cadastro Alterado com Sucesso !", vbInformation, "CONFIRMAÇÃO DE ALTERAÇÃO"
ActiveWorkbook.Save
clientes.box_nome_cliente.Text = ""
clientes.box_empresa.Text = ""
clientes.box_telefone_fixo.Text = ""
clientes.box_telefone_fax.Text = ""
clientes.box_celular.Text = ""
clientes.box_endereco_web.Text = ""
clientes.box_email.Text = ""
clientes.box_observacao.Text = ""
clientes.box_registro.Text = ""
'colocar cursor na caixa nome
box_registro.SetFocus
End If
linha = linha + 1
End Sub
eu preciso de ajuda
Me chamo Eduardo Freitas e estou com um problema que não consigo resolver
criei todo um formulário VBA 2010 e o unico botão que eu não consigo colocar para funcionar é ALTERAR
o código que estou usando é esse
Private Sub botao_alterar_Click()
linha = 2
If Sheets("bancodedados").Cells(linha, 1) = clientes.box_nome_cliente.Text Then
Sheets("bancodedados").Cells(linha, 2) = clientes.box_empresa.Text
Sheets("bancodedados").Cells(linha, 3) = clientes.box_telefone_fixo.Text
Sheets("bancodedados").Cells(linha, 4) = clientes.box_telefone_fax.Text
Sheets("bancodedados").Cells(linha, 5) = clientes.box_celular.Text
Sheets("bancodedados").Cells(linha, 6) = clientes.box_endereco_web.Text
Sheets("bancodedados").Cells(linha, 7) = clientes.box_email.Text
Sheets("bancodedados").Cells(linha, = clientes.box_observacao.Text
Sheets("bancodedados").Cells(linha, 9) = clientes.box_registro.Text
'mensagem após a alteração
MsgBox "Cadastro Alterado com Sucesso !", vbInformation, "CONFIRMAÇÃO DE ALTERAÇÃO"
ActiveWorkbook.Save
clientes.box_nome_cliente.Text = ""
clientes.box_empresa.Text = ""
clientes.box_telefone_fixo.Text = ""
clientes.box_telefone_fax.Text = ""
clientes.box_celular.Text = ""
clientes.box_endereco_web.Text = ""
clientes.box_email.Text = ""
clientes.box_observacao.Text = ""
clientes.box_registro.Text = ""
'colocar cursor na caixa nome
box_registro.SetFocus
End If
linha = linha + 1
End Sub
eu preciso de ajuda