plakken in geopend bestand

[Peer44]

Hallo,

Ik zit met het volgende probleem: het gaat om een productieplanning, dit is een “hoofd”exceldocument dat wordt voor iedere dag gekopieerd en de naam wordt aangepast naar “jjmmdd productieplanning”.
Dus voor iedere dag is een apart excelbestand, wat is gekopieerd vanaf het originele hoofddocument.

Nu heb ik een apart Excel document, soort database dat alle orders bevat welke die zijn ingevoerd in de administratie (via jetreports wordt dit vernieuwd).
dmv een Makro in de productieplanning wordt de database vernieuwd. Ik kopieer alle gewenste rijen uit de database naar de productieplanning en daar houdt de Makro op.

Maar als ik de productieplanning gekopieerd heb en de naam heb aangepast naar bijv. “111126 productieplanning”, de Makro start, worden de rijen uit de database natuurlijk geplakt in het hoofddocument want daar verwijst de Makro naar.

Hoe kan ik het voor elkaar krijgen dat de Makro verwijst naar de bestandsnaam van het geopende document en niet langer naar het originele “hoofd document”? zodat de rijen geplakt worden vanuit het database bestand in de geopende planning.

Alvast bedankt.

Peter

 

[edmoor]

Als in de macro de naam van het document ingegeven staat zou je deze kunnen vervangen door:
ThisWorkbook.Name of ThisWorkbook.Fullname

De eerste bevat de naam van je huidige document, de tweede bevat het zelfde maar dan inclusief het volledige pad naar dat document.

 

[Peer44]

kijk, dat is nog eens snel.

bedankt, hiermee zou het moeten lukken denk ik zo.

 

[edmoor]

Succes :thumb:

 

[Peer44]

Het lukt nog niet, ik weet niet hoe ik de code precies erin moet zetten zie hieronder:

ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("orders").Select
Cells.Select
Range("F37").Activate
Selection.Delete Shift:=xlUp
Range("D1112").Select
Workbooks.Open Filename:= _
"Y:\Productielijst planning\orderbestand tbv productieplanning.xlsx"
Application.Run "JetMenu", "Refresh"
Range("D4").Select
Range(Selection, Selection.End(xlDown)).Select
Columns("D:J").Select
Range("D81").Activate
Selection.Copy

Range("A1").Select
ActiveWindow.SmallScroll Down:=-6
ActiveSheet.Paste
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A7").Select
ActiveWindow.SmallScroll Down:=-16

Windows "ThisWorkbook.FullName" Activate

Range("I93").Select
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Invulblad").Select

 

[edmoor]

Zet de code even in codetags, dat leest makkelijker.

"Y:\Productielijst planning\orderbestand tbv productieplanning.xlsx" is het hoofd document dat wordt gekopiëerd?
"ThisWorkbook.FullName" moet niet tussen " tekens staan.

 

[Peer44]

    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("orders").Select
    Cells.Select
    Range("F37").Activate
    Selection.Delete Shift:=xlUp
    Range("D11:D12").Select
    Workbooks.Open Filename:= _
        "Y:\Productielijst planning\orderbestand tbv productieplanning.xlsx"
    Application.Run "JetMenu", "Refresh"
    Range("D4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Columns("D:J").Select
    Range("D81").Activate
    Selection.Copy
    
    Range("A1").Select
    ActiveWindow.SmallScroll Down:=-6
    ActiveSheet.Paste
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A7").Select
    ActiveWindow.SmallScroll Down:=-16
    Windows("orderbestand tbv productieplanning.xlsx").Activate
    Range("I93").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Invulblad").Select
End Sub

"Y:\Productielijst planning\orderbestand tbv productieplanning.xlsx" = het database bestand hierin worden de orders uit gekopieerd.

het bestand waarin geplakt moet worden: Y:\Productielijst planning\111126 productielijst planning.xlsm (de datum wisselt dagelijks)