Macro copiar aba de

Question

Bom dia

Alguém poderia me ajudar com o seguinte problema, preciso de uma macro para o Excel 

Tenho uma planilha com várias abas ( o conteúdo tem o mesmo número de colunas, porém as linhas tem quantidade e formatos diferentes - formatação)

Na ABA 1 (criei uma lista com o nome de todas as outras abas), preciso que quando selecionada na aba 1 o nome de uma aba ,a macro copie todo o conteúdo com a mesma formatação para a aba 1, porém quando selecionada na aba 1 outra aba a macro deve copiar abaixo da ação anterior , isso poderá ocorrer até 30x

É como se eu fosse copiando o conteúdo de determinada aba uma em baixo da outra com o comando Control C e V

Isso é possível?

Agradeço a ajuda

Answer 1

Option Explicit

Sub Macro1()
'
' Macro1 Macro
'

'

Dim LINHA As Long
Sheets("Planilha2").Select
  'SELECIONA TODO O INTERVALO PREENCHIDO NA PLANILHA 2
    Sheets("Planilha2").UsedRange.Select
    'COPIA O INTERVALO SELECIONADO
    Selection.Copy
    'PROCURA A PRÓXIMA LINHA EM BRANCO
    LINHA = 1
    While Sheets("Planilha1").Cells(LINHA, 1) <> ""
    
    LINHA = LINHA + 1
    
    Wend
    'SELECIONA A LINHA EM BRANCO E COLA
    Sheets("Planilha1").Select
    Sheets("Planilha1").Cells(LINHA, 1).Select
    ActiveSheet.Paste
    
End Sub

---

Anderson Diniz

Answer 2

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sh As Worksheet
Dim celula As String
celula = Target.Address
For Each sh In ThisWorkbook.Sheets


If sh.Name = ThisWorkbook.Sheets("Planilha1").Range(celula).Value Then
Application.EnableEvents = False

sh.Select
Call Macro1
Application.EnableEvents = True

End If

Next sh


End Sub

---

Anderson Diniz

Answer 3

https://drive.google.com/file/d/0B5y9tcyfn9D3bUlJaG5XTWE0bjQ/view?usp=sharing

---

Anderson Diniz

Answer 4

Amigo, muito obrigado pela ajuda

Funcionou direito