Goede morgen

Ik heb een bestand met heel veel tabbladen en data.
Die data wordt door verschillende personen gebruikt, maar niet iedereen heeft alles nodig of moet alles kunnen zien.
Nu zou ik door middel van een macro, buttons willen maken dat de file geëxporteerd wordt naar bvb "datafile Jan.xls", "datafile Marie.xls" enz
In deze macro zitten dan bvb opdrachten zoals tabbladen verwijderen, wat op zich geen probleem is.

Feit is, als ik de macro maak, en ik doe dan "export" of "opslaan als", dat ik dan steeds automatisch in de desbetreffende file van bvb Jan zit.

Is het mogelijk om in het "hoofdbestend" te blijven, en dan een .xls laat maken (zoals bvb een pdf) zonder dat je telkens de file moet sluiten, de originele terug moet openen, weer opslaan als, weer sluiten, weer de originele openen....


alvast bedankt

goede morgen

yups
allemaal al geprobeerd.
Ik kom steeds in het nieuwe bestand terecht, en het oude wordt automatisch gesloten.


het is te zeggen, ik heb die 'copy' geprobeerd onder 'exporteren'.
Ik heb enkel de mogelijkheden: opslaan, opslaan als & exporteren.
gelijk welke ik ook gebruik, ik kom steeds in de 'nieuwe naam' terecht

Betere uitleg.

Mogelijkheid 1:

Gebruik SaveCopyAs, Open de kopie en verwijder de nodige tabs, sla de wijzigingen op en sluit de kopie

Mogelijkheid 2:

Groepeer de tabs die je in je nieuwe bestand nodig hebt, kopieër naar een nieuw bestand en sluit het nieuwe bestand met dewijzingen opslaan op True.

Dit alles kan je automatisch laten gebeuren en je blijft steeds in je hoofbestand.

Het werkt idd makkelijker als we een voorbeeldbestand hebben zoals SoftAid al aangaf.

Hallo superSep,

ik hoopte dit in een automatisch proces te steken,

automatiseren betekend een macro, dus...

https://support.microsoft.com/nl-nl/office/een-macro-opnemen-om-specifieke-werkmappen-te-openen-wanneer-excel-wordt-gestart-4342eef5-19ee-435a-b401-1817941b24f5

daarna een macro in de aard:
Sub Macro1()
    Sheets("Jan").Select
    Sheets("Gegevens_voor_Jan").Copy Before:=Workbooks("Jan.xlsx").Sheets(1)
   ' toelichting: en evenzo voor andere deelnemers
End Sub
SoftAid              

Warm Bakkertje,

Ik vermoed dat SuperSep meer een oplossing volgens mijn (onvolledige) macro wenst.

Wanneer hij in zijn originele vraag begint over PDF dan moet hij zoeken bij Afdrukken (naar PDF) , niet opslaan of exporteren.

wil jij nog code zetten voor opslaan en sluiten van de mappen Jan.xlsx, Piet.xlsx en Els.xlsx

Ik moet er tussen uit ... 

Groeten,

SoftAid              

Goede middag heren
Sorry, kon gisteren niet meer antwoorden wegens werkverplichtingen.
Ik zag een reply van Softaid met een "opslaan als pdf".
Dit is nooit de bedoeling geweest.

ik heb een spreadsheet van 10tabbladen waarin data wordt gezet.

De bedoeling is om telkens een aantal tabbladen te verwijderen die niet nodig zijn, en deze file dan weg te schrijven als een .xlsx met de desbetreffende naam voor wie het betand bedoeld is.

Maar wanneer ik in de macro "opslaan als" doe, en ik dus de naam moet opgeven van voor wie het bestand bedoeld is, dan zit ik ineens die die file.

Mijn bedoeling was, om via een macro de tabs te selecteren die nodig zijn, en dan het bestand weg te schrijven onder die bepaalde naam.
Maar ik zou dus in het "bron" bestand moeten blijven met alle tabs, zodat ik dit proces een paar keer kan doen.
zonder dat ik telkens de algemene file terug moet openen

Een mogelijkheid.

Maak een tabel met de namen in kolom1 en de werkbladen die voor hen bestemd zijn in kolom2.

Met onderstaande code worden de nieuwe bestanden gemaakt en opgeslagen in dezelfde dir als het hoofdbestand.

Sub tst()
    Application.ScreenUpdating = False
    With Sheets("Sheet1").ListObjects("Table1").DataBodyRange
        For i = 1 To .Rows.Count
            myname = .Cells(i, 1)
            Sheets(Split(.Cells(i, 2), ",")).Copy
            With ActiveWorkbook
                .SaveAs ThisWorkbook.Path & "\" & myname, 51
                .Close True
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub