Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Somar valor da Colu...
 
Notifications
Clear all

Somar valor da Coluna e Deletar

 
2024 - VBA & Macros
Post Recente por Trindade 10 anos atrás
3 Posts
2 Usuários
0 Reactions
789 Visualizações
RSS
 Trindade
(@trindade)
Posts: 0
New Member
Topic starter
 

Boa tarde, Srs.

Encontrei aqui no Fórum parcial o código que deleta as colunas no caminho : http://www.planilhando.com.br/forum/viewtopic.php?t=8665&p=45741
Eu queria ajuda dos senhores para tentar fazer o seguinte, somar a coluna inteira dentro do intervalo se o valor da soma for igual a zero deletar a coluna.

Exemplo:
Intervalo => ("AR:MY") ou se possível deixar dinâmico a partir de ("AR") ate a ultima coluna com cabeçalho;
Coluna => Percorrer colunar por coluna realizando a soma e deletando se for igual a zero;
* SOMA(AR2:AR65536) = 0 (DELETAR) próximo SOMA(AS2:AS65536) = 0 (DELETAR) e assim até a ultima coluna preenchida.

Até tentei montar uma lógica mas sem sucesso.

Toda e qualquer ideia/ajuda sempre é bem vinda.

 
Postado : 09/01/2015 10:01 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Ve se ajuda:

Sub deleta_coluna_GT()

Application.ScreenUpdating = False

Const li    As Long = 2
Const lf    As Long = 65536

Dim ci      As Long
Dim cf      As Long
Dim c       As Long
Dim soma    As Double

ci = 44 'Coluna AR
cf = Cells(1, Columns.Count).End(xlToLeft).Column

For c = cf To ci Step -1
    soma = Application.WorksheetFunction.Sum(Range(Cells(li, c), Cells(lf, c)))
    If soma = 0 Then Columns(c).Delete
Next c

Application.ScreenUpdating = True

End Sub
 
Postado : 09/01/2015 10:24 am
 Trindade
(@trindade)
Posts: 0
New Member
Topic starter
 

Boa tarde, gtsalikis.

Exatamente isso, muito obrigado pela ajuda e pelo código.

 
Postado : 09/01/2015 10:34 am
Forum Jump:
  Tópico Anterior
Próximo Tópico