none
Macro copiar aba de RRS feed

  • 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

    quarta-feira, 13 de setembro de 2017 12:47

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

    quarta-feira, 13 de setembro de 2017 13:28
  • 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

    quarta-feira, 13 de setembro de 2017 13:42
  • Amigo, muito obrigado pela ajuda

    Funcionou direito

    quinta-feira, 14 de setembro de 2017 12:14