• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Via macro een bestand bewaren die ook reeds macro's bevat

Status
Niet open voor verdere reacties.
A

annvandaele

Nieuwe gebruiker
Lid geworden
31 mei 2012
Berichten
3
Ik beschik over een excelbestand : xxx met verschillende tabbladen die soms reeds macro's bevatten.
Ik wil één tabblad copieren in een nieuw excelbestand (met behoud van de macro) met een nieuwe naam yyy
en ik wil dat bewaren op het bureaublad. (telkens het volledige bestand copieren of opslaan zorgt er voor dat het bestand te zwaar is)

Ik wil via een knop op dat document xxxx een macro toewijzen zodat een copie van één tabblad geplakt wordt in een nieuw document
en dat nieuw document wordt bewaard op het bureaublad.

Ik kan de macro opnemen en alles doen zoals hierboven gevraagd maar als ik het nieuwe bestand yyyy open
staat het gekopieerde bestand precies dubbel en boveneen geplakt.

En kan je ook de cellen niet meer deftig aanklikken.

Wie geeft me raad hoe ik dat kan vermijden

gr
Ann:
 
Is het steeds hetzelfde tabblad of kan dit ook wijzigen?
 
Code: 
Sub SaveToDesktop()
    Dim DTAddress As String
    DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
    Sheets("Blad1").Copy
    With ActiveWorkbook
        .SaveAs DTAddress & "Nieuwe bestandsnaam.xlsm", FileFormat:=52
        .Close
    End With
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan