-
Posts
6 -
Cadastrado em
-
Última visita
Reputação
0-
Loliveira103 alterou sua foto pessoal
-
Excel Macro para criar nova planilha com a mesma formatação
Loliveira103 respondeu ao tópico de Loliveira103 em Microsoft Office e similares
Osvaldo, me desculpe, realmente acabei me enrolado. Fica a dica para usuários que possam utilizar o código citado: Salvem a pasta de trabalho antes de utilizar a macro!!! Eu estava utilizado a macro antes de salvar e por isso estava em dúvida sobre ela não salvar os dados da pasta anterior. Por fim gostaria da sua ajuda com o post#3 -
Excel Macro para criar nova planilha com a mesma formatação
Loliveira103 respondeu ao tópico de Loliveira103 em Microsoft Office e similares
Sim, eu tenho conhecimento disso. Porém ao executar o comando completo (mesmo que o outro arquivo não esteja mais aberto) ele modifica os dados do arquivo anterior e não o do arquivo criado pela linha de "Salvar como". Exemplo: Executei a macro no arquivo 2018. O "Salvar como" abre, salvo como 2019. O Excel fecha o arquivo 2018 e mantém aberto o 2019. Porém as linhas que limpariam os dados são executadas no arquivo 2018 também! Isso! E no caso cada arquivo Excel seria um ano. -
Excel Macro para criar nova planilha com a mesma formatação
Loliveira103 respondeu ao tópico de Loliveira103 em Microsoft Office e similares
Isso! Desculpe o erro cometido. Comandos que tentei montar para executar o procedimento citado. Essa linha (Application.Dialogs(xlDialogSaveAs).Show nomeArq & ".xls") salva uma nova pasta e também a pasta já aberta (porém com as modificações feitas). No caso seria para cada ano, a partir de 2018. -
Excel Macro para criar nova planilha com a mesma formatação
Loliveira103 respondeu ao tópico de Loliveira103 em Microsoft Office e similares
Certo, não havia pensado por esse lado! Eu preciso do seguinte: Tenho uma planilha do ano de 2018 com os anos e seus respectivos dados e ao chegar no mês de Dezembro a pessoa que irá utilizar precisará "fechar" o ano e abrir um novo. O que preciso é de uma macro que zere a planilha e abra um novo ano sem afetar os dados salvos do ano anterior Acontece que ao executar alguns comandos testados, o Excel exclui os dados da planilha anterior e salva ambas as pastas da mesma forma (sem dados). Estou tentando automatizar esse processo, pois a pessoa que me pediu não tem conhecimentos com informática e isso iria, ao meu ver, tornar o processo de contabilidade mais fácil. Segue o arquivo base em .rar (o fórum não permite subir o arquivo xlsm). Versão Plus 2013 do Excel! Obrigado pela ajuda base.rar -
Excel Macro para criar nova planilha com a mesma formatação
Loliveira103 respondeu ao tópico de Loliveira103 em Microsoft Office e similares
Osvaldo, Aproveitando sua ajuda: Tenho essa macro para gerar novos meses, porém sempre que clico no botão cancelar do box me gera um erro. Como poderia solucionar isso? Sub DuplicaERenomeia() 'primeiro, faz a cópia da planilha Sheets(1).Copy After:=Sheets(ThisWorkbook.Worksheets.Count) 'como foi movida para o final, pega a última Dim newSheet As Worksheet Set newSheet = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) newSheet.Name = InputBox("O nome da nova planilha é:", "Renomeando...", newSheet.Name) MsgBox "Feito!" End Sub Quanto a macro anterior, obrigado pela sugestão! Não me atendeu como esperava, mas solucionei de outra forma. -
Excel Macro para criar nova planilha com a mesma formatação
Loliveira103 postou um tópico em Microsoft Office e similares
Olá pessoal, Eu estou trabalhando numa planilha que trabalha com os doze meses do ano, nela preciso de uma macro que sempre que a pessoa necessite fechar o ano, ela salve o novo e ano e zere essa planilha (Tanto os dados quanto os meses (abas)). Eu cheguei a estrutura uma macro, porém sempre que eu executo ela, os meses (abas) são apagadas no ano anterior também. Queria que os meses, por exemplo, do ano 2018 ficassem intactos e quanto ao ano de 2019 fosse zerada até janeiro. Ressalto que a pessoa que irá utilizar essa planilha, ficará por longos anos com ela, não se limitando aos anos de 2018 e 2019. Segue o que já foi tentado Sub SalvarNovoAno() Application.Dialogs(xlDialogSaveAs).Show nomeArq & ".xls" Range("G10:W40").Select - Área dos dados na qual a pessoa irá digitar Selection.ClearContents Range("Tabela3[VALORES]").Select - Área dos dados na qual a pessoa irá digitar Selection.ClearContents Call ZerarPlanilhaNovoAno End Sub Sub ZerarPlanilhaNovoAno() Dim j As Long Dim k As Long Application.ScreenUpdating = False Application.DisplayAlerts = False j = Worksheets.Count For k = j To 2 Step -1 Sheets(k).Delete Next k Application.ScreenUpdating = True Application.DisplayAlerts = True Sheets(1).Select Sheets(1).Name = "Janeiro" Range("A1").Select End Sub Abraços
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais