Atualizar planilha no vba

[Paulo Watanabe]

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.

[DJunqueira]

Não seria mais fácil simplesmente copiar a linha inteira?

 

Tb tem outras formas de copiar um bloco inteiro de dados q satisfaz determinada condição, mas p/ isso o ideal é você disponibilizar sua planilha.

[Paulo Watanabe]

Como seria isso? como eu disse eu não entendo nada de programação, eu meti a cara para fazer esse projeto porque queria aprender. rs

[DJunqueira]

Na planilha anexa tem um exemplo de como copiar linhas inteiras p/ passar p/ tabelas.

Esta planilha tem uma aba p/ entrada de dados simulando um formulário, os campos de entrada estão separados por linhas, mas com procedimentos simples eu os alinho e depois colo na tabela, muitas vezes com apenas uma linha de código.

Inventário.zip