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

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.

olá pessoal, sou novo aqui e já cheguei com umas dúvidas, quem puder me ajudar ficarei grato. Sou corretor de imóveis e precisava de um programa que eu pudesse fazer o cadastro dos meus clientes, então resolvi fazer eu mesmo pelo excel, já que vi que era possível! então procurei vários videos na internet e fui montando meu programa de cadastro de clientes. Só que cheguei a um ponto que não consigo mais ajuda, então recorri aqui pra tentar resolver meu problema. então vamos lá; eu queria que quando eu mudasse algum dado do cadastro desse cliente, eu acionava um botão "atualizar" e esse mesmo atualizava minha planilha, sem ter que salvar novamente em outra linha. por exemplo, fiz uma opção de cadastro "ativo" e "fechado", então quando eu fosse atualizar esse cadastro, ele alterasse na planilha, na mesma linha que já se encontrava esse cadastro. desde já agradeço! Obrigado.