macro's automatisch verwijderen in een nieuw aangemaakt bestand

[hout80]

Hallo,

Onderstaande macro:

    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:="C:\hugo\ah\urenkaarten" & Range("T3")
    Application.DisplayAlerts = True
    Sheets("acc mail").Select
    Range("A1:H1106").Select
    Selection.Copy
    Sheets("definitief").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

vult het (lege)werkblad "definitief" met alleen de waardes uit het werkblad "acc mail"

Vervolgens maakt de volgende macro een nieuw bestand aan met alleen het werkblad "definitief"uit de vorige macro op de volgende wijze:

'   Application.DisplayAlerts = False
    Sheets(Array("menu", "ver uren begin", "ver uren betalen", "overboeken", "afd uren" _
    , "wk 1", "wk 2", "wk 3", "wk 4", "totalen", "acc reken", "reiskosten", "acc mail", _
    "Blad2")).Delete
    ThisWorkbook.SaveAs Filename:="C:\hugo\ah\accountant uren " & Range("A1")
    Application.DisplayAlerts = True

Het bestand ziet er dan alsvolgt uit:

Bekijk bijlage accountant uren Periode 3 Jaar 3333.rar

In dit nieuwe bestand zitten echter nog alle macro's uit het originele bestand.

Is er een mogelijkheid dat ook alle macro's in dat nieuwe bestand automatisch verwijderd zijn?.

Hugo

 

[Wigi]

Dat kan, al is die code niet van de poes. (zie PS)

Maar waarom kopieer je dat bereik niet gewoon naar een leeg bestand, dat je vervolgens opslaat?

Wigi

PS: Om eerlijk te zijn: als ik zie welke "code" er nu in het bijgevoegde bestand staat, blijf dan maar af van die code voor het deleten van andere code in een bestand.

 

[hout80]

Bedankt,

Vaak is een oplossing een kwestie van logisch denken

Hugo

 

[Wigi]

Hugo, doe ook hier iets mee...

PS: Om eerlijk te zijn: als ik zie welke "code" er nu in het bijgevoegde bestand staat, blijf dan maar af van die code voor het deleten van andere code in een bestand.

Probeer je huidige code te verbeteren. .Select is bv. zelden nodig, SmallScroll ook niet, etc. Als je hier op het forum wat posts met VBA bekijkt, snap je zeker waar ik op doel.

Het zal je code en je programma zeker ten goede komen om daar wat tijd voor uit te trekken.

Wigi