Inquiridor
Macro copiar aba de

Discussão Geral
-
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
Todas as Respostas
-
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
-
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
-
-