Paulo Watanabe
Membro Júnior-
Posts
3 -
Cadastrado em
-
Última visita
Reputação
0-
Atualizar planilha no vba
Paulo Watanabe respondeu ao tópico de Paulo Watanabe em Microsoft Office e similares
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.
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais