Macro para transfor...
 
Notifications
Clear all

Macro para transformar Colunas em linhas de acordo com intervalo


diasbh
Posts: 4
Registered
Topic starter
(@diasbh)
New Member
Entrou: 2 meses atrás

Boa tarde,

Estou a procura de uma macro para automatizar a opção de transpor colunas para linhas automaticamente,

agrupando as linhas tendo como referência os intervalos iguais encontrados na coluna POSIÇÃO.

No exemplo fiz manualmente como a opção copiar e transpor.

Responder
Tags do Tópico
5 Respostas
3 Respostas
EdsonBR
Moderator
(@edsonbr)
Entrou: 6 anos atrás

Prominent Member
Posts: 871

Boa tarde e bem vindo, @diasbh 

Poste um arquivo Excel. A imagem que vc mostrou até serve pra ilustrar o que vc pretende, mas se tivesse um arquivo Excel, outros usuários poderiam se interessar mais em tentar ajudar pois não teriam que digitar tudo do zero pra testar as fórmulas, ok?

Responder
diasbh
Registered
(@diasbh)
Entrou: 2 meses atrás

New Member
Posts: 4

@edsonbr  

Obrigado, postei o arquivo em Excel.

Responder
Televisaos
Registered
(@televisaos)
Entrou: 1 ano atrás

Eminent Member
Posts: 42

Olá @diasbh ,

Veja se este código resolve seu problema:

 

Sub transpor_coluna()

Dim ultimalinha As Integer
Dim primeiracoluna As Integer
Dim ultimacoluna As Integer
Dim linpos As Integer
Dim colpos As Integer
Dim aux As Integer

ultimalinha = Cells.Find(What:="POSIÇÃO", LookAt:=xlWhole).End(xlDown).Row
primeiracoluna = Cells.Find(What:="POSIÇÃO", LookAt:=xlWhole).End(xlToLeft).Column
ultimacoluna = Cells.Find(What:="POSIÇÃO", LookAt:=xlWhole).End(xlToRight).Column
linpos = Cells.Find(What:="POSIÇÃO", LookAt:=xlWhole).Row
colpos = Cells.Find(What:="POSIÇÃO", LookAt:=xlWhole).Column
aux = linpos + 1

For linha = linpos + 1 To ultimalinha
    If Cells(linha + 1, colpos) <> Cells(linha, colpos) Then
        Range(Cells(aux, primeiracoluna), Cells(linha, ultimacoluna)).Copy
        Cells(aux, ultimacoluna).Offset(0, 2).PasteSpecial Transpose:=True
        aux = linha + 1
    End If
Next linha

End Sub
Responder
Televisaos
Posts: 42
Registered
(@televisaos)
Eminent Member
Entrou: 1 ano atrás

Boa tarde,

Sou leigo em tabela dinâmica mas ela não resolveria teu problema?

 

Att

Responder
1 Responder
diasbh
Registered
(@diasbh)
Entrou: 2 meses atrás

New Member
Posts: 4

Bom dia, também sou.

Dei uma olhada em exemplos de tabela dinâmica e só encontrei utilização para somatórios, talvez possa servir, mas ainda não descobri como.

Responder