Ir ao conteúdo
  • Cadastre-se
Marcos Pensador

RESOLVIDO Agrupar linhas usando macro

Recommended Posts

Boa tarde

Tenho uma planilha que tem inumeras linhas, das quais quero agrupar algumas após uma determinada frase (Totais).

 

Resumindo, preciso que as 3 linhas que estão no quadrado preto da imagem fiquem numa só sempre que aparecem, mas esse "mesmo quadrado" aparece inumeras vezes ao longo da planilha

post-730443-0-80425600-1405530207_thumb.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Marcos,

 

Boa tarde !!!

 

Veja se código atende ...

 

Sub Agrupar_Linhas()
 
Finalrow = Cells(Rows.Count, 6).End(xlUp).Row
 
Application.ScreenUpdating = False
 
For I = 2 To Finalrow
 
    If Cells(I, 9) = "Total" Then
    
    Cells(I, 9).Select
    ActiveCell.Offset(1, -5).Select
    Selection.Cut
    ActiveCell.Offset(-1, 0).Select
    ActiveSheet.Paste
 
    ActiveCell.Offset(2, 2).Select
    Selection.Cut
    ActiveCell.Offset(-2, 0).Select
    ActiveSheet.Paste
    
    ActiveCell.Offset(1, 6).Select
    Selection.Cut
    ActiveCell.Offset(-1, 0).Select
    ActiveSheet.Paste
        
    End If
 
Next I
 
Application.CutCopyMode = False
    
Application.ScreenUpdating = True
 
End Sub
 

Segue link para acesso a planilha:

 

https://www.sendspace.com/file/cfp43g

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×