none
Copiar e colar transpondo selecionando-se células de destino RRS feed

  • Pergunta

  • Ei aí pessoal, tudo bem?

    Preciso muito de ajuda com uma macro. Recebo direto no trabalho algumas planilhas de outro setor com informações ordenadas em colunas. Porém, necessito copiar essas informações para uma linha. Contudo os parâmetros nessa outra linha estão fora de ordem e espaçados, além de conterem outros a serem preenchidos com novos dados. 

    Gostaria de saber se é possível (e como) criar uma macro que já automatize esse processo, copiando os campos da coluna e colando ja fazendo a transposição e a associação com os campos corretos nas novas linhas.

    

    Fiz uma simples demonstração no excel. 

    Tipo Madeira    Cor Armação Qualidade Resis. Bio. Tipo Código Preço Textura Textura
    Qualidade 5.5    azul
    5.5     Madeira   15.5   sim
    Cor azul
    Textura Sim
    Preço 15,50

    sexta-feira, 2 de março de 2018 01:30

Todas as Respostas

  • Baseado no seu exemplo.

    Sub teste()
        ultima_linha = Range("A2").End(xlDown).Row - 1
        ultima_col = Range("A1").End(xlToRight).Column + 1
    
        dados1 = Application.Transpose(Cells(2, 1).Resize(ultima_linha, 1).Value)
        dados2 = Application.Transpose(Cells(2, 2).Resize(ultima_linha, 1).Value)
    
        Cells(1, ultima_col).Resize(1, UBound(dados1)) = dados1
        Cells(2, ultima_col).Resize(1, UBound(dados2)) = dados2
    End Sub


    • Editado Renato MDSP terça-feira, 13 de março de 2018 11:58
    quinta-feira, 8 de março de 2018 14:21