none
Macro RRS feed

  • Pergunta

  • Prezados boa tarde,

    preciso de uma macro que copiar e cola transpor as informações em outra aba.

    Exemplo: Na A2 tem um nome TR524325  e na B2 tem um nome maçã e na C2 tem outro nome uva, queria uma macro

    que na aba Plan2 iria repetir o nome da A2, e depois outra em baixo mais com o  nome maça e outra uva, colando transpor da plan1.

    Ressalto que os dados ficticios vão estar na Plan1

    domingo, 17 de dezembro de 2017 16:12

Todas as Respostas

  • A sua pergunta deve especificar o assunto. "Macro" é absurdamente genérico.

    A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 domingo, 17 de dezembro de 2017 16:32
    domingo, 17 de dezembro de 2017 16:24
  • Sub Macro1() ' ' Macro1 Macro ' '

    Sheets("Planilha1").Select Range("A2:C2").Select Selection.Copy Sheets("Planilha2").Select Range("A2").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub



    A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz diniabr2011@gmail.com


    domingo, 17 de dezembro de 2017 16:26
  • No lugar de "Planilha1", "Planilha2", escreva os nomes das suas planilhas.

    A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 domingo, 17 de dezembro de 2017 16:32
    domingo, 17 de dezembro de 2017 16:32
  • https://www.youtube.com/results?search_query=gravar+macro

    A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 domingo, 17 de dezembro de 2017 16:35
    domingo, 17 de dezembro de 2017 16:35
  • Boa tarde, 

    muito obrigado, conheci este site agora , teria como dar sequencia conforme print abaixo ?

    os nomes mudam , copiar e colocar em sequencia, e repetir ai quando terminar finalizar a macro.

    domingo, 17 de dezembro de 2017 17:08
  • Option Explicit
    
    Sub Macro2()
    
    Dim LINHA As Long
    
    LINHA = 2
    
    While ThisWorkbook.Sheets("Planilha1").Range("A" & LINHA).Value <> ""
    LINHA = LINHA + 1
    Wend
    
    
    Sheets("Planilha1").Select
        Range("A2:D" & LINHA - 1).Select
        Selection.Copy
        Sheets("Planilha2").Select
        Range("A2").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        ThisWorkbook.Save
    End Sub
    
    Se este código resolve seu problema, marque como resposta.

    A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 domingo, 17 de dezembro de 2017 17:49
    domingo, 17 de dezembro de 2017 17:48