Tranferência De Dados entre Livros

[Afonso Mira 0]

Boa tarde tenho o seguinte esquema:

• Folha Excel com Dados ----- Excel com Macro ----- Folha Excel recebe Dados

Precisava de passar os dados da 1º folha para a 2º quando abro o Excel que contêm a macro.

Alguém me poderia dar uma ideia do código que vou precisar?

Obrigado!😄

Abraços, Afonso Mira.

[Afonso Mira 0]

Consegui Resolver Através deste código.

Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim wsMenu As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long


'Desativa atualização de ecrã
Application.ScreenUpdating = False

'Abre ficheiro
Workbooks.Open Filename:="D:\Users\amira\Desktop\IUH.FINAL\Report_O_OH.xls"

'Define Ficheiro report como ficeiro de copiar
Set wsCopy = Workbooks("Report_O_OH.xls").Worksheets("Sheet1")

'Define Ficheiro IUH como ficeiro de destino
Set wsDest = Workbooks("IUH.xlsm").Worksheets("Base_De_Dados")

'Define Ficheiro menu como menu
Set wsMenu = Workbooks("IUH.xlsm").Worksheets("Menu")

    
    'Encontra a última linha usada no intervalo de cópias com base nos dados da coluna A
    lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
      
    'Encontra a primeira linha em branco no intervalo de destino com base nos dados da coluna A
    'Offset move 1 célula para baixo
    lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
    
    'Apaga os dados anteriores
    wsDest.Range("A2:D" & lDestLastRow).ClearContents

    'Copiar e Colar Dados
    wsCopy.Range("A3:N3" & lCopyLastRow).Copy _
      wsDest.Range("A2")
      
'Abre ficheiro IUH
wsDest.Activate

'Fecha Ficeheiro Report
Workbooks("Report_O_OH.xls").Close SaveChanges:=True

'Centraliza todas as células
Columns("A:N").HorizontalAlignment = xlCenter

'Ativa atualização de ecrã
Application.ScreenUpdating = True

'Vai para o MENU
wsMenu.Activate