yourservice
Gebruiker
- Lid geworden
- 22 jan 2009
- Berichten
- 35
Hallo,
Hoe kan ik mijn huidige document "noemen" bij het kopieren/plakken van 2 werkmappen?
Ik bewerk een werkmap Factuur XXX, ik laat de macro een werkmap openen met de naam Testfactuur.xlsx.
Dan verwijder ik 21 regels vanaf cel A9 (dit is altijd zo) en switch terug naar Factuur XXX.xlsx.
Deze laatste werkmap verschilt altijd van naam.
Ik heb dit opgenomen:
Ik wil dus van Windows("Factuur XXX.xlsx").Activate, Windows("Huidig document dat ook open is.xlsx").Activate maken.
Greetz,
Wilfred
Hoe kan ik mijn huidige document "noemen" bij het kopieren/plakken van 2 werkmappen?
Ik bewerk een werkmap Factuur XXX, ik laat de macro een werkmap openen met de naam Testfactuur.xlsx.
Dan verwijder ik 21 regels vanaf cel A9 (dit is altijd zo) en switch terug naar Factuur XXX.xlsx.
Deze laatste werkmap verschilt altijd van naam.
Ik heb dit opgenomen:
Code:
Sub PDFbriefpapier()
'
' PDFbriefpapier Macro
' Afdrukken als .pdf op briefpapier
'
'
Workbooks.Open Filename:= _
"C:\pathname\Testfactuur.xlsx"
Range("A9").Select
ActiveWindow.SmallScroll Down:=21
Range("A9:F49").Select
Selection.EntireRow.Delete
Range("A9").Select
Windows("Factuur XXX.xlsx").Activate
Range("A9").Select
ActiveWindow.SmallScroll Down:=21
Range("A9:F49").Select
Selection.Copy
Windows("Testfactuur.xlsx").Activate
ActiveSheet.Paste
Range("A9").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.Close
ActiveWindow.SmallScroll Down:=-30
End Sub
Ik wil dus van Windows("Factuur XXX.xlsx").Activate, Windows("Huidig document dat ook open is.xlsx").Activate maken.
Greetz,
Wilfred