Você tem uma coluna de texto. Para cada texto na coluna, você deseja inserir uma nova planilha e nomear essa planilha para o valor da célula.
Assistir vídeo
- Pam quer criar uma planilha para cada número de conta
- Atualmente, ela está usando Mostrar páginas de filtro de relatório
- Procurando uma maneira mais rápida
- Salve a pasta de trabalho como XLSM
- Verifique a segurança da macro com alt = "" + TMS e defina para o segundo nível
- Alt + F11
- Módulo de inserção
- Digite o código conforme mostrado
- Alt + Q para retornar ao Excel
- Alt + F8
- Selecione a macro e clique em Opções
- Atribuir a Ctrl + Shift + W
Transcrição de vídeo
Aprenda Excel com o Podcast, Episódio 2082: Criar Macro de Planilhas
Ei, bem-vindo de volta ao netcast, sou Bill Jelen. Bem, na semana passada eu estava em Bloomington e Indianápolis, Indiana dando dois seminários lá e Pam do seminário Indy disse que ela tem esta planilha, e para cada célula na Coluna A ela quer criar uma nova planilha e então eu inventei esta parte , coloque a célula correspondente da Coluna B na Célula B1.
Quero dizer, atualmente, Pam notou que ela está fazendo isso de uma maneira muito inteligente, como criar todas aquelas planilhas, mas ainda é um incômodo. Ela vai em Inserir, Tabela Dinâmica, OK e a partir dessa nova Tabela Dinâmica, ela coloca a Conta na área Filtros e então Dados na área de valores assim. E então, ela vai para Opções, Mostrar páginas de filtro de relatório, Mostrar todas as páginas da conta e BAM! Ela acerta os lençóis como ela quer. Agora que os dados estão no lugar errado, ela realmente diz que neste ponto ela simplesmente analisa todos os grupos e, em seguida, exclui aquelas tabelas dinâmicas assim, certo? Então, esse é o método que ela está usando agora e eu quero ver se posso fazer algo mais rápido com essa planilha.
Então, da maneira que vamos fazer isso, você terá que pré-selecionar as folhas, pré-selecionar as folhas. E também, se você nunca fez macros antes, use Alt + T para Tom, M para Mary, S para Sam e mude da primeira escolha para a segunda escolha. Além disso, muito, muito importante, seu arquivo, garanto, está salvo como .xlsx. Não vai funcionar se você deixar assim, você tem que fazer Arquivo, Salvar como e escolher esta pasta de trabalho habilitada para macro do Excel. O principal é o padrão e o principal é o formato de arquivo horrível que não tem permissão para usar macros.
Tudo bem, então vamos selecionar os dados Alt + F11 para abrir o Editor de VBA. Se você nunca fez VBA antes, verá essa tela feia aqui. Dirá Insert, Module e aí está nosso novo módulo e você vai digitar este código: a palavra Sub CreateSheets (). Assim que você digitar isso, eles colocarão um End Sub, mas entre os dois vamos dizer For Each cell in Selection. Vamos definir a planilha e provavelmente deveríamos fazer Dim WS como planilha. Deseja definir worksheet = Worksheets. Adicionar. Agora, Worksheets.Add precisa saber onde queremos adicioná-lo e o que eu quero fazer é apenas adicionar esta planilha após o último trabalho que ela está na pasta de trabalho. Então, vou dizer quantas planilhas temos agora. E aqui vamos apenas tentar, digamos: Debug.Print worksheets.Count.Tudo bem, diz que temos 4, vamos voltar ao Excel e verificar isso. 1 2 3 4 então vamos adicioná-lo após a 4ª folha. Assim, após o encerramento, devemos ver uma nova planilha e essa planilha é onde colocaremos os dados da conta 100.
Tudo bem agora, WS.Name = cell.Value e então decidimos que vamos pegar o que estiver à direita da conta: os dados. E vamos pegar esses dados e colocá-los na célula B1 da nova planilha que acabamos de criar. Então, da célula, certo, para cada célula vamos deslocar 0 linhas 1 coluna e pegar esse valor, certo? Então temos nossa macro: Arquivo, Fechar e Retornar ao Microsoft Excel e então pressionar Alt + F8. Alt + F8, CreateSheets, irá para Opções. Rapaz, o que vai ser bom? Ctrl + Shift + W. W para planilhas. Então, pressiono Shift + W lá, clico em OK e podemos clicar em Cancelar. Tudo bem, selecione essas células e, em seguida, Ctrl + Shift + W. Assista aqui depois de Wrap Up - BAM! Tem em cada um. Ele obteve os dados de cada folha individual. Maneira legal de ir.
Ser capaz de criar muitas planilhas na hora e, é claro, funcionaria para muito mais do que isso. Vamos fazer uma = ROW * 2 copiar isso para baixo, para baixo, para baixo, para baixo, para baixo e selecionar todos aqueles - Oh, espere, temos que colocar alguns dados lá. Vamos preenchê-lo com 2, certo. E então Ctrl + Shift + W. BAM! Oh, eu já usei uma folha 49. Mas olha, nós estávamos todo o caminho até o próximo, o fim rápido e rápido. Como criar várias planilhas diferentes dinamicamente.
Tudo bem, tópicos deste episódio: Pam de Indy deseja criar uma planilha para cada número de conta na Coluna A. Atualmente, ela está usando Mostrar Páginas de Filtro de Relatório de Tabelas Dinâmicas. Ela está procurando um jeito mais rápido, certo? Então, vamos salvar a pasta de trabalho como XLSM. Vamos usar Alt + TMS e definir a segunda opção, não a primeira opção. Alt + F11, agora estamos em VBA, Inserir Módulo, Digite o código conforme mostrado, Alt + Q para retornar ao Excel, Alt + F8, selecione o nome da macro e clique em Opções, atribua a Ctrl + Shift + W.
Ei, quero agradecer a Pam por estar no meu seminário em Indianápolis. Nós nos divertimos muito lá, bom grupo. E eu quero agradecer por você passar por aqui. Nos vemos na próxima vez para outro netcast de.
⇬ Fazer download do arquivo
Baixe o arquivo de amostra aqui: Podcast2082.xlsm
