Ricstos

Pessoal, Eu não utilizo a planilha Andre, apenas André a utiliza. O Coordenador recebe os resultados do supervisores (no caso André é um deles) para ver as justificativas dos resultados não alcançados. É necessário o monitoramento diário e mensalmente ocorre o fechamento e verificação do atingimento das metas. Não há duplicação da planilha. Fiz uma alteração na planilha, inclui uma aba "histórico", que vai acumulando os dados dia após dia até o fechamento do mês. Inclui uma macro para apagar os dados de "plan1". Então quando fecha a planilha "Andre" ela copia os dados de "Resumo diario" para "Plan1" e depois copia de "Plan1" para "Histórico". Abrir a planilha os dados de "Plan1" são apagados. Funcionou bem. Mas ocorreu um problema ao utilizar a planilha "BD", pois quando ela vai extrair os dados das planilhas dos supervisores, ela abre as planilhas e apaga os dados a serem copiados. Resolvi um problema e criei outro. Ah, não tem como colocar a planilha numa rede, pois os supervisores trabalham em campo no território nacional. Não estou conseguindo fazer upload das planilhas. Tentarei depois

Valeu DJunqueira, as fórmula ficaram ótimas e a planilha roda mais rápido. Só não irei utilizar a parte da função _xlfn, pois meu Office é 2007. Sem pedir muito, poderia explicar o funcionamento dela? Obrigado. CasaDoHardware, obrigado pela sugestão, mas os dados não podem ser apagados da planilha André, pois é o histórico que ele tem para justificar no final do mês. Além disso, a planilha fica com o André e não comigo. valeu Vou tentar achar solução, acho q vou criar uma outra aba, onde deixo os dados para copiar e ao fechar a planilha eles são apagados, e outra planilha para ficar de histórico. O que acham? Obrigado

DJunqueira, o teu código deu certo para copiar apenas os dados, mas teria como melhorar e apenas copiar os dados que ainda não foram copiados? Ex.: ontem foi atualizado com os dados até dia 06, hj irei atualizar e queria que copiasse apenas os dados a partir do dia 07, pois os dados de 01 à 06 já estão na planilha BD. Obrigado pela ajuda, segue o arquivo do Andre destravado e sem vínculos. CasaDoHardware, o código vai na planilha BD, mas ele está lá, só salvei em xls por causa do upload. Andre Diario01.zip

Segue o arquivo que vai armazenar os dados de outros arquivos e outro que irá fornecer os dados. Para testar é só criar uma pasta no diretório. O Problema que está copiando tudo até cabeçalho e repetindo os dados já inseridos. BD.xlsx Andre Diario.xlsx

Valeu DJunqueira. Mas isto não resolve meu problema, pois os dados que tenho são atualizados diariamente e como citei, preciso que apenas os dados novos sejam inseridos. A fonte de dados são outras 8 planilhas de outros usuários. Ainda tenho o problema de serem copiados também o cabeçalhos dos arquivos. Tks

Pessoal. Desenvolvi uma planilha com vba utilizando o código abaixo, ela funciona bem, mas preciso aprimorar o código, pois quando executo a macro todos os dados das outras planilhas são copiados. Até mesmo o cabeçalho é copiado. Preciso que o cabeçalho que fica na célula A1 não seja copiado e que os dados que já foram copiados não sejam copiados novamente. Ex.: tenho uma coluna com datas e apenas que copie as datas que ainda não foram copiadas. Segue o código: Sub Gravar_BD() Application.DisplayAlerts = False Dim Pasta As String Dim Arquivo As String 'Seleciona a pasta do Windows onde estão todas as 'pastas de trabalho a serem copiadas With Application.FileDialog(msoFileDialogFolderPicker) .Show Pasta = .SelectedItems(1) End With 'Armazena o nome do primeiro arquivo (pasta de trabalho) na variável "Arquivo" Arquivo = Dir(Pasta & "\" & "*.xls*") 'Laço para para percorrer todos os arquivos da pasta do windows Do Application.ScreenUpdating = False 'Abre o arquivo Workbooks.Open (Pasta & "\" & Arquivo) 'Copia a região adjacente à celula A2 para a planilha de consolidação [Plan1!A2].CurrentRegion.Copy ThisWorkbook.ActiveSheet.Cells(Cells.Rows.Count, "A").End(xlUp).Offset(1, 0) 'Fecha o arquivo Workbooks(Arquivo).Close False 'Lista o próximo arquivo Arquivo = Dir Loop While Arquivo <> "" Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "Fim de Execução da Macro" Application.DisplayAlerts = True End Sub Grato pela ajuda.