Jump to content
Afonso Mira

ANSWERED Tranferência De Dados entre Livros

Recommended Posts

Afonso Mira

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.

Share this post


Link to post
Share on other sites
Afonso Mira

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


 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.