Notifications
Clear all

Apagar primeiro dado lançado em determinada coluna

9 Posts
4 Usuários
0 Reactions
1,770 Visualizações
(@marciofsa)
Posts: 7
Active Member
Topic starter
 

Boa tarde,

Estou começando em VBA e tenho uma dúvida. Pesquisei vários tópicos, tentei adaptações de código mais não consegui o que queria. O código ( .Cells(Rows.Count, "A").End(xlUp).clearcontent), pega o ultimo dado preenchido na coluna A e apaga, e assim vai subindo linha a linha na medida que o código é executado certo?

O que quero é o inverso. Que ele pegue o primeiro dado e desça apagando linha a linha na medida que o código for executado. É possivel?.

Desde já agradeço

 
Postado : 07/10/2015 9:08 am
(@mprudencio)
Posts: 2749
Famed Member
 

E so selecionar a primeira linha da tabela que se deseja apagar e deletar

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 : 07/10/2015 9:40 am
(@marciofsa)
Posts: 7
Active Member
Topic starter
 

E so selecionar a primeira linha da tabela que se deseja apagar e deletar

Beleza. Mais em código VBA como ficaria?

 
Postado : 07/10/2015 10:02 am
(@duvidoso)
Posts: 35
Eminent Member
 

Onde os dados iniciam? Por exemplo
Linha |Nome
1. |Marcio
2. |FSA
3. |Forum
4. |Plan

No caso os dados começam na linha 1 em ordem inversa na linha 4, onde seus dados nessa planilha começam, se quiser pode me passar uma com um exemplo seu descrevendo o que quer

 
Postado : 07/10/2015 11:48 am
(@messiasmbm)
Posts: 223
Estimable Member
 

troque .End(xlUp) por .End(xlDown)

 
Postado : 07/10/2015 12:13 pm
(@marciofsa)
Posts: 7
Active Member
Topic starter
 

Onde os dados iniciam? Por exemplo
Linha |Nome
1. |Marcio
2. |FSA
3. |Forum
4. |Plan

No caso os dados começam na linha 1 em ordem inversa na linha 4, onde seus dados nessa planilha começam, se quiser pode me passar uma com um exemplo seu descrevendo o que quer

Vou anexar um exemplo resumido.

troque .End(xlUp) por .End(xlDown)

Já tentei e nada acontece. Deve ser um erro bobo mais não encontrei de jeito nenhum.. :D

 
Postado : 07/10/2015 12:19 pm
(@duvidoso)
Posts: 35
Eminent Member
 

Como o amigo citou sobre trocar, la vai um exemplo

 
Postado : 07/10/2015 12:20 pm
(@duvidoso)
Posts: 35
Eminent Member
 

Se precisar de mais explicação avisa, ou ajuda

 
Postado : 07/10/2015 12:24 pm
(@marciofsa)
Posts: 7
Active Member
Topic starter
 

Se precisar de mais explicação avisa, ou ajuda

Muito Obrigado.

Valeu Mesmo.

Grande Abraço!!

 
Postado : 07/10/2015 12:27 pm