1 Blad van een werkmap opslaan

[HaBro]

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

[A1:J44].Copy

wel moet blijven werken
dit omdat bepaalde knoppen niet mee gekopieerd moeten worden.

Zou dit mogelijk zijn

Mvgr Hans

 

[Hoornvan]

HaBro,

Kijk hier even, gaat dacht ik over het zelfde.

 

[HaBro]

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

Hans

 

[Ginger]

HaBro, Wat denk je er zo van?

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

 

[HaBro]

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