Copy-paste range van source file naar master file

[Djani]

Hoi allemaal,

Ik wil een macro hebben die de range "B3:R999" copy-paste (in format indien mogelijk) van source file "MOSYFILE QASHQAI" naar sheet "Test" van master workbook "MOSYBASE".

Dit is wat ik tot nu toe heb qua code:

Sub FillSheet()
Dim ws As Worksheet
Set ws = ActiveWorkbook.Worksheets("Test")

'Name of file and pathlink
Filename = "MOSYFILE QASHQAI.xlsx"
Workbooks.Open "I:\R&E Internal\01 Reporting & Tools\05 Pricing\01 Monthly Topics\01 VIVA\01 PC\03 FY16 ViVA\0. MOSY Automation" & Filename
 
Dim destWS As Worksheet, LR As Long
Set destWS = ActiveSheet

Kunnen jullie mij verder helpen?

Alvast ontzettend bedankt!

 

[edmoor]

Als 0. MOSY Automation een mapnaam is moet daar in ieder geval nog een \ achter, dus:

"I:\R&E Internal\01 Reporting & Tools\05 Pricing\01 Monthly Topics\01 VIVA\01 PC\03 FY16 ViVA\0. MOSY Automation\" & Filename

 

[Djani]

Thanks, ik heb dat in ieder geval in het stukje code gewijzigd. Weet jij toevallig hoe ik die range zou kunnen kopieren van de inputsheet van de source file naar de gewenste sheet van de master workbook?

 

[Djani]

Ik ben eruit gekomen, maar ik heb nog een laatste vraag. Is het mogelijk om de gekopieerde range ook in format te pasten i.p.v. values?
Dit is wat ik nu heb:

Sub GetTW_Data()

ThisWorkbook.Activate 'start in THIS workbook
 Sheets("Sheet1").Select 'switch to data import sheet

'Opens source file (this filename never changes)
 Workbooks.Open Filename:="I:\R&E Internal\01 Reporting & Tools\05 Pricing\01 Monthly Topics\01 VIVA\01 PC\03 FY16 ViVA\1.1 MOSY 2.0\MOSY - PULSAR - AUSTRIA - FY16.xlsx", ReadOnly:=True

 Workbooks("MOSY - PULSAR - AUSTRIA - FY16.xlsx").Activate 'switch to source workbook
 Sheets("Model Synthesis").Select 'switch to source data sheet
    ActiveSheet.Unprotect
 [B1].CurrentRegion.Copy 'Copy data to clipboard

ThisWorkbook.Activate 'Return to THIS workbook

[B1].PasteSpecial Paste:=xlPasteValues 'paste data to import start cell
 [B1].Select 'cancels highlighted paste region
Application.CutCopyMode = False
Workbooks("MOSY - PULSAR - AUSTRIA - FY16.xlsx").Close False 'close source data workbook
End Sub

Alvast ontzettend bedankt.