Apenas para melhorar a explicacao anterior...

Relatório é uma outra planiha de excel. eu sempre vou tirar os dados no dia 8 de cada mes e os dados serão de 1 a 7 do mes, a outra prévia vou extrair os dados dia 15 e os dados na planilha serão de 1 a 14, a 3 prévia dia 22 e será referente ao periodo de 1 a 21 e a o fechamento no primeiro dia do proximo mes e será de 1 a 30 ou 31 dependendo o mes

Andre,

ao "importar" os dados da segunda prévia até o fechamento, oso dados existentes são sobrepostos ?

1ª vai de 1 a 8 já a 2ª vai de 1 à 14, então os dados de 1 à 8 serão sobrepostos para evitar repetição, ou não?

Reinaldo é isso mesmo..!!
os dados serão sempre sobrepostos..mas acumulativos.....!

é possivel fazer isso??

"os dados serão sempre sobrepostos..mas acumulativos.....!"

o que é acumulado?

Os dados dos meses anteriores ?

Reinaldo sorry rsss

Eu quis dizer os resultados das prévias anteriores!

Por exemplo dia 09 extrairei os dados de 01 a 08.
No dia 15, extrairei do sistema das de 01 a 14. Este segundo período deverá sobrescrever o período de 01 a 08 para evitar duplicação

Muito Obrigado

Reinaldo..

Ficou claro a minha explicação anterior?

Vlw

AMigos

Por favor me ajudem!!

abs

O arquivo exemplo, tem uma unica guia e os dados do dia 1 a 7, coluna A ate L e o numero de linhas variavel, conforme o periodo. Certo?

Entendo o exemplo postado, seja o arquivo gerado semanalmente. Certo?

O objetivo e levar os dados desse arquivo/guia, para um outro, que tem o mesmo layout.

Pergunta: Esse arquivo que irá "centralizar" os dados, já tem algum valor/linha preenchida ?

Seguindo:

No proximo dia de "analise", (no caso deveria ser dia 15), é gerado um novo arquivo.

Esse novo arquivo tras novamente os dados de 1 a 7 , mais os dados de 8 a 14, ou somente de 8 a 14.

Se for de 1 a 14, por qual razão fazer a "transferencia de dados"; é isso que não ficou claro para mim

Reinaldo..

Muito Grato por responder

Seguindo as respostas

O arquivo exemplo, tem uma unica guia e os dados do dia 1 a 7, coluna A ate L e o numero de linhas variavel, conforme o periodo. Certo?
Está correto.

Entendo o exemplo postado, seja o arquivo gerado semanalmente. Certo?
Está correto.

O objetivo e levar os dados desse arquivo/guia, para um outro, que tem o mesmo layout.
O objetivo é este mesmo.

Pergunta: Esse arquivo que irá "centralizar" os dados, já tem algum valor/linha preenchida ?
O arquivo que centralizará os dados, ja terá as linhas preenchidas que são correspondentes ao cabeçalho

Seguindo:

No proximo dia de "analise", (no caso deveria ser dia 15), é gerado um novo arquivo.
Isso mesmo no dia 15 será gerado um novo arquivo

Esse novo arquivo tras novamente os dados de 1 a 7 , mais os dados de 8 a 14, ou somente de 8 a 14.
Este novo arquivo trará dados do dia 8 ao dia 14, e deverão ser colocados embaixo dos arquivos ja existentes que neste caso seria de 1 a 7.

Desculpe qq explicação incorreta e qq contratempo

Muito Obrigado

Sr. André Vioti

Copie o codigo abaixo em um modulo, na planilha que irá receber os dados.

Considerei que nas celulas R1 irá ser digitado o caminho onde está o arquivo a ser "importado", e na celula T1= o nome desse arquivo.

qq duvida retorne

Sub Recebe()

Dim OldName As String, sDir As String, sPath As String
Dim rw As Long, LastRow As Long

OldName = ThisWorkbook.Name
rw = Sheets(1).Cells(Cells.Rows.Count, "A").End(xlUp).Row
sPath = Cells(1, 18).Value

    If Right(sPath, 1) <> "" Then
        sPath = sPath & ""
        Else
        sPath = sPath
    End If
sDir = Cells(1, 20).Value
Application.DisplayAlerts = False
Application.ScreenUpdating = False
        Workbooks.Open Filename:=sPath & sDir, UpdateLinks:=0
        LastRow = Sheets(1).Cells(Cells.Rows.Count, "A").End(xlUp).Row
        Range("A2:L" & LastRow).Copy
        Windows(OldName).Activate
        Range("A" & rw + 1).Select
        ActiveSheet.Paste
        Workbooks(sDir).Close SaveChanges:=False
[a2].Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Reinaldo

Só tenho a agradecer a sua atenção e de todos do fórum
COm ctz estou aprendendo muito com todos vcs

Funcionou certinho!!

e desculpe qq contratempo

Reinaldo.

Td bem?

A macro funcionou, entretanto, quando inseri algumas planilhas para fazer o relatório, a macro agora esta colando os dados a partir da linha 75. Poderia me ajudar por favor?
Não consegui identificar o erro

grato

A rotina se referia a sheet(1), provavelmente como foi incluida outra estava "contando" as linhas iniciais dessa outra guia

Substitua o codigo por este abaixo, que deverá funcionar

Sub Recebe()

Dim OldName As String, sDir As String, sPath As String
Dim rw As Long, LastRow As Long

OldName = ThisWorkbook.Name
rw = Sheets("Cambio Est Verification - Diseñ").Cells(Cells.Rows.Count, "A").End(xlUp).Row
sPath = Sheets("Cambio Est Verification - Diseñ").Cells(1, 18).Value

    If Right(sPath, 1) <> "" Then
        sPath = sPath & ""
        Else
        sPath = sPath
    End If
sDir = Sheets("Cambio Est Verification - Diseñ").Cells(1, 20).Value
Application.DisplayAlerts = False
Application.ScreenUpdating = False
        Workbooks.Open Filename:=sPath & sDir, UpdateLinks:=0
        LastRow = Sheets(1).Cells(Cells.Rows.Count, "A").End(xlUp).Row
        Range("A2:L" & LastRow).Copy
        Windows(OldName).Activate
        Range("A" & rw + 1).Select
        ActiveSheet.Paste
        Workbooks(sDir).Close SaveChanges:=False
[a2].Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

nossa..é verdade!!

por isso que é bom falar com quem entende do assunto rssss

valeu novamente

a cada dia aprendo uma coisa com o forum

abs