Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
excluir quantidade ...
 
Notifications
Clear all

excluir quantidade variável de linhas

 
2024 - VBA & Macros
Post Recente por juliowd 10 anos atrás
4 Posts
3 Usuários
0 Reactions
751 Visualizações
RSS
 juliowd
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

Olá. Já pesquisei extensamente pelo fórum e não encontrei.
Já pesquisa pelo google e não encontrei também.
To ficando meio nervoso já... rsrsrs
É que eu to achando que não é possível...
É que eu preciso deletar uma quantidade de linhas que estará definido numa célula, por exemplo a4 (que será resultado do cálculo de 10 - (A2 + A3).
Em A2 terá, por exemplo, o número 1 até 4 (que eu vou inserir através de INPUTBOX) e em A3 virá automaticamente na planilha (mas pode ser 1, 2, 3, 4 ou 5)
Então eu somarei estes dois valores e vou subtraí-los a partir do valor fixo de 10. Este resultado é a quantidade de linhas que preciso excluir na minha planilha.
Para chegar na linha que eu vou excluir, eu sei fazer.
É possível eu deletar uma quantidade de linhas que a quantidade está definida em uma range?
Obrigado!!!

 
Postado : 01/07/2014 2:35 pm
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
 

muito fácil
adicionar excluir
é só adaptar.
download/file.php?id=13026

pode ser modificado para linhas inteiras ou definir um valor além do vazio

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 01/07/2014 4:02 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 
Sub Deleta_variável_GT()
Application.ScreenUpdating = False

Dim Linha       As Long
Dim Quantidade  As Long

Linha = 5
Quantidade = 10 - (Range("A2").Value2 + Range("A3").Value2)

Rows(Linha & ":" & Linha + Quantidade).Delete

Application.ScreenUpdating = True
End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 01/07/2014 4:22 pm
 juliowd
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

Era isso que eu precisava!!!
Desculpe a demora em responder. Agora que pude testar a programação.
Muito obrigado amigos!

 
Postado : 10/07/2014 12:52 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico