Bom dia,
Pessoal, eu criei um botão "atualizar" para que eu altere os dados dos meus clientes. Eu copiei um código da internet e fiz algumas alterações, já que eu não sou entendido do assunto.
Só que quando eu faço as alterações e clico em "atualizar", só altera as 3 primeiras células. Vou postar o código aqui, e eu peço que quem puder ver o que está de errado, me ajuda por favor.
Segue o código:
Private Sub atualizar_Click()
linha = 2
Worksheets("BancodeDados").Select
Do Until Worksheets("BancodeDados").Cells(linha, 1) = ""
'condição para localozar o código
If Worksheets("BancodeDados").Cells(linha, 1) = codigo Then
Worksheets("Bancodedados").Cells(linha, 1).Select
'Aqui começa a gravação dos dados.
ActiveCell.Offset(0, 1).Select
ActiveCell = status
ActiveCell.Offset(0, 1).Select
ActiveCell = Atendimento
ActiveCell.Offset(0, 1).Select
ActiveCell = Nome
ActiveCell.Offset(0, 1).Select
ActiveCell = Cpf
ActiveCell.Offset(0, 1).Select
ActiveCell = Nascimento
ActiveCell.Offset(0, 1).Select
ActiveCell = estadocivil
ActiveCell.Offset(0, 1).Select
ActiveCell = Telefone
ActiveCell.Offset(0, 1).Select
ActiveCell = Whatsapp
ActiveCell.Offset(0, 1).Select
ActiveCell = Renda
ActiveCell.Offset(0, 1).Select
ActiveCell = caixa_fgts
ActiveCell.Offset(0, 1).Select
ActiveCell = caixa_dep
ActiveCell.Offset(0, 1).Select
ActiveCell = caixa_dois
ActiveCell.Offset(0, 1).Select
ActiveCell = SegundoComprador
ActiveCell.Offset(0, 1).Select
ActiveCell = PrimeiroContato
ActiveCell.Offset(0, 1).Select
ActiveCell = Proprietario
ActiveCell.Offset(0, 1).Select
ActiveCell = CaixaLocal
ActiveCell.Offset(0, 1).Select
ActiveCell = CaixaValor
ActiveCell.Offset(0, 1).Select
ActiveCell = Obs
ActiveCell.Offset(0, 1).Select
ActiveCell = Profissão
ActiveCell.Offset(0, 1).Select
ActiveCell = Empresa
ActiveCell.Offset(0, 1).Select
ActiveCell = TempoEmpresa
ActiveCell.Offset(0, 1).Select
ActiveCell = Endereço
ActiveCell.Offset(0, 1).Select
ActiveCell = Bairro
ActiveCell.Offset(0, 1).Select
ActiveCell = Cidade
ActiveCell.Offset(0, 1).Select
ActiveCell = UF
End If
linha = linha + 1
Loop
End Sub
Desde já agradeço.