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