TRANSPOR COLUNAS EM LINHAS SEM PERDER CONDICIONAIS

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

4 Posts

2 Usuários

0 Reactions

1,007 Visualizações

RSS

BOSSAN

(@bossan)

Posts: 21

Eminent Member

Topic starter

Amigos,
Tenho um arquivo com 3 planilhas (Loja1, Loja2 , Painel).
Preciso que os dados contantes na planilha Loja1 (intervalo Coluna I11:I71) sejam transpostos para a planilha painel (intervalo Linha B4:BJ4) e que os dados constantes na planilha Loja2 (intervalo Coluna I11:I71) sejam transpostos para a planilha painel (intervalo Linha B5:BJ5). A dificuldade maior é manter as cores das celulas originais que são resultantes de formatação condicional.
Desde já agradeço.
Abraço.
Bossan

Obs. segue planilha anexa

Cronograma de implantação - TESTE transpor.xlsm

Postado : 07/12/2013 7:44 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Tente assim

Sub AleVBA_9862()

Sheets("Loja1").Range("I11:I71").Copy
Sheets("Painel").Range("B4").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True

Sheets("Loja2").Range("I11:I71").Copy
Sheets("Painel").Range("B5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True

End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 07/12/2013 6:18 pm

BOSSAN

(@bossan)

Posts: 21

Eminent Member

Topic starter

Valeu mais uma vez Alexandre.
Na verdade eu precisava que as cores de células, resultantes de formatação condicional, também fossem transpostas.
Mas achei uma solução. Transformei os dados da coluna original em texto (0, 1, 2, falso) em uma nova coluna, fiz a trasposição desta nova coluna com seu código e atribui novas regras de formatação condicional na nova planilha. Funcionou perfeito.
Obrigado pela ajuda.
Abraço.

Postado : 08/12/2013 8:10 am