Goedemorgen,
Ik heb een makro in een excel bestand die een ander excel bestand moet openen om vervolgens data over te zetten.
Echter staat hier het pad naar het bestand op de PC waar makro gemaakt is. Maar in de praktijk is het zo dat deze bestanden steeds op een ander pc gebruikt gaan worden.
Hoe kan ik nu het pad zodanig aanpassen dat dit lukt?
Deze makro:
Audry Macro
'
' Sneltoets: Ctrl+f
'
ChDir "C:\Users\Herman\Documents\Audrey\Meterstanden Viva terra"
Workbooks.Open Filename:= _
"C:\Users\Herman\Documents\Audrey\Meterstanden Viva terra\Viva Terra - {Opname meterstanden verhuur_'21, '22 '23}.xlsx"
Windows("Meterstanden 2021-2022B.xlsm").Activate
Range("B23").Select
Sheets("Huurders").Select
Range("A1:J43").Select
Selection.Copy
Windows("Viva Terra - {Opname meterstanden verhuur_'21, '22 '23}.xlsx"). _
Activate
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Met dank.
Vriendelijke groet,
Herman
Ik heb een makro in een excel bestand die een ander excel bestand moet openen om vervolgens data over te zetten.
Echter staat hier het pad naar het bestand op de PC waar makro gemaakt is. Maar in de praktijk is het zo dat deze bestanden steeds op een ander pc gebruikt gaan worden.
Hoe kan ik nu het pad zodanig aanpassen dat dit lukt?
Deze makro:
Audry Macro
'
' Sneltoets: Ctrl+f
'
ChDir "C:\Users\Herman\Documents\Audrey\Meterstanden Viva terra"
Workbooks.Open Filename:= _
"C:\Users\Herman\Documents\Audrey\Meterstanden Viva terra\Viva Terra - {Opname meterstanden verhuur_'21, '22 '23}.xlsx"
Windows("Meterstanden 2021-2022B.xlsm").Activate
Range("B23").Select
Sheets("Huurders").Select
Range("A1:J43").Select
Selection.Copy
Windows("Viva Terra - {Opname meterstanden verhuur_'21, '22 '23}.xlsx"). _
Activate
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Met dank.
Vriendelijke groet,
Herman