Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Excel ir para últim...
 
Notifications
Clear all

Excel ir para última linha vazia

 
2024 - VBA & Macros
Post Recente por JNEXCEL 7 anos atrás
5 Posts
4 Usuários
0 Reactions
1,136 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Pessoal, eu tenho o seguinte código: 

    Sheets("cadastro").Select
    Range("A2:C2").Select
    Selection.Cut
    Sheets("clientes").Select
    ActiveSheet.Paste
    Range("A2").Select
    Sheets("cadastro").Select
    Range("A2").Select

Para quem for contribuir com sua ajuda, eu já agradeço muito :)

O problema é o seguinte. Quando o form e aberto ele permite digitar os dados no textbox e automaticamente eles vão para a planilha (até aqui tudo bem).

O problema começa agora. :(

você que está colaborando tente realizar dois ou mais cadastros, simplesmente ele não cadastra :(...

o que acontece é que ele substitui o anterior pelo atual.

Faça um teste, tente cadastrar assim:

1º cadastro será: nome: manuel/profissão:pedreiro/cidade:são paulo

2º cadastro será: nome: maria/profissão:fiscal/cidade:rio de janeiro.

agora quando você clicar em todos os clientes, ao invés de aparecer os dois cadastros, vai aparecer apenas o último.

:(

 
Postado : 29/03/2018 11:16 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Ve se vc consegue adaptar este exemplo.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 29/03/2018 11:47 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

JNEXCEL,

Boa tarde!

Veja se é assim.

Cadastro de Clientes.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 29/03/2018 11:57 am
 LustosaG
(@lustosag)
Posts: 39
Eminent Member
 

Bem simples meu caro, 

ultimaLinha = Sheets("NOME DA SUA GUIA ONDE REALIZARA O CADASTRO É AQUI").Range("B65000").End(xlUp).Row + 1

Worksheets("NOME DA SUA GUIA ONDE REALIZARA O CADASTRO É AQUI").Select

'-- Registra os dados -- "
Cells(ultimaLinha, 1) = txtNome.text
Cells(ultimaLinha, 1)

Se quiser alterar onde em qual coluna o dado vai ser colocado troque o 1 pelo respectivo numero de coluna

Range("B65000")

Aqui você define uma coluna para ele seguir, geralmente é o ID ou alguma coluna que SEMPRE vai ter algum dado, pois é com base nela que o resto será colocado.

Cells(ultimaLinha, 1) = txtNome.text

Se quiser que cadastre mais campos é só ir adicionando...
Por exemplo:

Cells(ultimaLinha, 1) = txtNome.text
Cells(ultimaLinha, 2) = txtEndereco.text
Cells(ultimaLinha, 3) = txtSobrenome.text

Espero que eu tenha ajudado.

Att:

Lustosa

 
Postado : 29/03/2018 12:00 pm
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Muito obrigado a todos pela ajuda, consegui resolver com o modelo do wagner ;) ;)

 
Postado : 29/03/2018 12:48 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico