Macro

Question

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

Answer 1

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 [e-mail]

Answer 2

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 [e-mail]

Answer 3

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 [e-mail]

Answer 4

https://www.youtube.com/results?search_query=gravar+macro

---

A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz [e-mail]

Answer 5

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.

Answer 6

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 [e-mail]