Inquiridor
Macro

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
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
-
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
- Editado AndersonFDiniz2 domingo, 17 de dezembro de 2017 16:28
- Sugerido como Resposta AndersonFDiniz2 domingo, 17 de dezembro de 2017 16:28
-
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
-
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
-
-
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