• 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.

1 Blad van een werkmap opslaan

  • Onderwerp starter Onderwerp starter HaBro
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
H

HaBro

Gebruiker
Lid geworden
1 apr 2006
Berichten
64
Hallo

Ik heb dit programma op deze site gevonden
en dit werkt bijna perfect.
het probleem is dat de cel breedte niet wordt mee gecopieerd
terwijl de code
Code: 
[A1:J44].Copy
wel moet blijven werken
dit omdat bepaalde knoppen niet mee gekopieerd moeten worden.

Zou dit mogelijk zijn

Mvgr Hans
 

Bijlagen

Klopt daar heb ik het ook vandaan
maar deze copieerd de cel breedte niet mee

Hans
 
HaBro, Wat denk je er zo van?
Code: 
Sub Opslaan()
Dim sBestandsnaamNieuw As String

    With Sheets("Calculatie")
        sBestandsnaamNieuw = .Range("C2").Value & ".xls"
        .Copy
    End With
    
    With Cells
        .Copy
        .PasteSpecial xlPasteValuesAndNumberFormats, xlNone, False, False
        .Range("A1").Select
    End With
    ActiveSheet.Shapes("Button 1").Delete
    ActiveWorkbook.SaveAs "C:\Test\" & sBestandsnaamNieuw, xlNormal
    ActiveWorkbook.Close
    
End Sub

Groet, Leo
 
Fantasties Ginger

Dat werkt.

In mijn orgineel staan wat meer knopen en een paar regels
die niet in de kopie moeten staan

Maar dat was makkelijk aan te passen in jou programma

Ik ga dit zeker gebruiken

Hartelijk dank

Hans
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan