Sergio Marchiori

Olá pessoal! Tenho uma Pasta de Trabalho com várias planilhas. Gostaria de salvar duas dessa planilhas em uma nova pasta de trabalho com um nome que contenha a data de "hoje". O problema é que essas planilhas contém macros e que eu gostaria que fossem salvas também. Obrigado e aguardo uma ajuda.

@Basole Você é o CARA! Funcionou perfeitamente. Muito grato.

Galera, boa tarde! O leigo aqui em VBA está enfrentando um grande problema para mim, mas, com certeza, um problema ridículo para os Mestres em VBA. Seguinte: quero usar uma macro para localizar uma cadeia de caracteres em uma fórmula e substituí-la por uma data inserida na célula A1. Vamos aos dados: Fórmula:=SOMASES($C$10:$C$2500;$A$10:$A$2500;"CDL";$B$10:$B$2500;">=xx/xx/19 00:00:00";$B$10:$B$2500;"<=xx/xx/19 00:59:00") Célula A1: 25/11/19 O que o leigo fez: Sub substituir() ' ' substituir Macro ' Localiza e substitui xx/xx/19 pela data inserida na célula A1 ' ' Sheets("Plan1").Select Cells.Replace What:="xx/xx/19", Replacement:=Application.Cells(1, 1), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub O que ocorre é que está invertendo a data para 11/25/19 (sistema inglês). Já tentei várias maneira mas não consegui solucionar, por isso peço ajuda as Mestres. Muito obrigado!

@osvaldomp muito obrigado. Funcionou perfeitamente. Fico muito agradecido a todos que ajudaram. Espero um dia poder retribuir. Um forte abraço e muito obrigado!!!!

Ok. Este código vai abrir os arquivos, mas o que eu preciso é de uma macro que abra diretamente a planilha Voos_DD_MM_AAAA.xlxs. Planilha essa que a cada dia será uma nova data. Eu fiz a seguinte Sub: Windows("Relatorio de Demanda.xlsm").Activate Sheets("Voos").Select Range("A10").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.ClearContents Windows("Voos_27_10_2019.xlsx").Activate (ESTA LINHA É QUE DEVE TER UMA VARIÁVEL PARA MUDAR A DATA DIARIAMENTE) Range("A10").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Copy Windows("Relatorio de Demanda.xlsm").Activate Sheets("Voos").Select Range("A10").Select ActiveSheet.Paste Windows("Voos_27_10_2019.xlsx").Activate (AQUI TAMBÉM A MESMA VARIÁVEL) Application.CutCopyMode = False ActiveWindow.Close Sheets("Planilha1").Select Range("C4").Select Não sei se fui claro, mas é que dependo da ajuda de vocês para apresentar este trabalho para a minha chefia. Agradeço à todos que puderem me ajudar.

Gostaria de uma macro que abrisse uma nova planilha, sendo que esta planilha é salva diariamente em um outro diretório com o nome Voos_DD_MM_AAAA.xlxs, sendo que o DD_MM_AAAA representa a data do dia, que muda a cada dia. Exemplo: Estou com a planilha Relatório de Demanda aberta e quero uma macro dentro desta planilha que abra a planilha Voos_24_11_2019.xlsx, para que dentro dessa planilha eu faça cópia de uma aba para a planilha Relatório de Demanda. No dia seguinte, o processo se repete, sendo que a planilha a ser aberta agora é Voos_25_11_2019.xlsx. Muito grato pela atenção e aguardo um parecer. Um forte abraço, Sergio Marchiori