Dúvida Excel VBA - Planilha para cadastro

Tecnologia
Badfish  
em 07/02/20 10:43

Comentários

Último comentário 1º comentário do autor Só moderadores Só quem eu sigo Ordenar por gostei
silence_  
em 07/02/2020 10:53
A sua macro precisa incluir uma linha acima, ao final do cadastro do seu cliente. Pra ficar mais fácil, grave uma macro onde você inclui uma linha acima de outra linha. Assim você consegue ver o código correto.
; 2; ; 0;
0 '; 0';
Dúvida Excel VBA - Planilha para cadastro - #1 de 5
pedmio  
em 07/02/2020 10:54
Aparentemente você gravou essa macro. Dê uma pesquisada em como usar referências relativas. 
Você pode gravar sua macro selecionando a primeira celula da base de dados, segurando Ctrl + seta para baixo, para ele escolher a última célula e usar o comando "Activecell.Offset(1,0).Select"

Mas não vai funcionar se não colocar no contexto adequado.

Particularmente, quando vou percorrer uma lista, utillizo uma função pra determinar o número de linhas e adiciono +1.

Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function
; 1; ; 0;
0 '; 0';
Dúvida Excel VBA - Planilha para cadastro - #2 de 5
boxveil  
em 07/02/2020 11:00
Assim, o seu código é bem simples. Copia colar e ordena. EU usaria um pivot table(tabela dinamica) para fazer isso q vc quer.

; 1; ; 0;
0 '; 0';
Dúvida Excel VBA - Planilha para cadastro - #3 de 5
Badfish  
em 07/02/2020 11:32
Refiz aqui do 0 e deu certo. A dificuldade era que eu estava trabalhando em cima de uma lista que ja existia, mas valeu ai pessoal
; 0; ; 0;
0 '; 0';
Dúvida Excel VBA - Planilha para cadastro - #4 de 5
Barto  
em 07/02/2020 13:02
Evite trabalhar com select. Existem formas mais profissionais de fazer mesma coisa.

Uma forma interessante de trabalhar é sempre buscar a última linha dinamicamente. Uma forma para isso é criar uma variável para a mesma:

dim lastrow as long

lastrow = thisworkbook.sheets("Lista_Contatos").cells(rows.count,1).end(xlup).row


Quando for inserir o dado, escreva para sempre inserir uma linha abaixo da variável lastrow:

thisworkbook.sheets("Lista_Contatos").cells(lastrow + 1,1) = "DADO QUE VC QUER INSERIR"

; 1; ; 0;
0 '; 0';
Dúvida Excel VBA - Planilha para cadastro - #5 de 5

5 usuários comentaram este tópico.
Clique para ir para o primeiro comentário do usuário.

Ações Pesquisa Videos Livros Análise de Carteira Desconto FAQs Orientação Esportiva Ofertas e Serviços Bastter System Boletim IR Podcasts Revista Tecnologia - Ajuda Eu Assinar Ações Pesquisa Videos Livros Análise de Carteira Desconto FAQs Ofertas e Serviços Orientação Esportiva Boletim BS Podcasts IR Tecnologia Ajuda eu Revista Assinar Assinar

BastterZap