Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
TRANSPOR COLUNAS EM...
 
Notifications
Clear all

TRANSPOR COLUNAS EM LINHAS SEM PERDER CONDICIONAIS

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
1,002 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

 
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
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu fico feliz por ajudar :D

Att

 
Postado : 08/12/2013 8:12 am
Forum Jump:
  Tópico Anterior
Próximo Tópico