Copiar planilha matriz para outra planilha

Vinicius Valentin · 30 de dezembro de 2014

Pessoal preciso de uma ajuda tentei e não consegui.

Eu gostaria que o conteúdo da planilha 'Matriz", fosse copiado para a nova planilha e que o conteúdo da célula a1 & B1 & C1 fossem o nome da planilha.

E q também se crie apenas uma nova aba

eu usei esse código

 Sub Nova_Aba()' Criação de novas abas com nomes pre-estabelecidos    'declarando variáveis    Dim contacoluna As Integer    Dim nome As String    'congela a tela do Excel para não ficar mostrando execução de linha a linha da macro    Application.ScreenUpdating = False        'contando quantas células (colunas) estão preenchidas a partir da A1, leitura da esquerda para direita.    Sheets("Matriz").Select    Range("A1").Select    Selection.End(xlToRight).Select    contacoluna = ActiveCell.Column    Range("A1").Select    'repetição for até o fim da coluna preenchida    For i = 1 To 1            'cria uma nova planilha        Sheets.Add After:=ActiveSheet            'nomeia a nova planilha criada        Sheets("Matriz").Select        nome = ActiveCell.Offset(0, contacoluna - i).Value        ActiveSheet.Next.Select        ActiveSheet.Name = nome        Sheets("Matriz").Select           Next iEnd Sub

e também queria completar com esse

Sub Botão232_Clique()           Dim Response As VbMsgBoxResult    Dim sht As Worksheet    Response = MsgBox("Deseja inserir uma nova estatistica de jogo?" _        , vbQuestion + vbYesNoCancel)    If Response = vbYes Then            Sheets("Matriz").Copy After:=Sheets(Sheets.Count)            ActiveSheet.Name = "jogo " & ActiveWorkbook.Sheets.Count & ""    ElseIf Response = vbNo Then        Worksheets.Add    Else        Exit Sub    End If       MsgBox "Nova aba adicionada", vbInformation, "Adicionar nova aba"End Sub

só para ter uma cara de mais profissional

nova_aba (1).xlsx