Plakken met kolom breedte behouden en opmaak maar zonder de formula's

[gridishere]

Hallo

Ik kopieer een selectie uit mijn blad naar een ander blad met de kolombreedte en opmaak. Met Plakken > Breedte van bronkolommen behouden (B). De formulas wil ik dus niet meenemen hiermee. Dit gaat niet via de keuzen onder plakken. Heeft iemand hier een macro script o.i.d. voor of misschien een ander trucje?

Mijn dank is groot!

grid

 

[gridishere]

Ben er al uitgekomen:

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A7:B54").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Fijne dag!

 

[VenA]

Een macro opname is altijd een goede start. De sport is dan om het geheel wat sneller en overzichtelijker te maken

Sub VenA()
With Application
    .ScreenUpdating = False
    Range("A7:B54").Copy
    With Sheets.Add(, ActiveSheet).Cells(1)
        .PasteSpecial xlPasteAllUsingSourceTheme
        .PasteSpecial xlPasteColumnWidths
        .PasteSpecial xlPasteValues
    End With
    .CutCopyMode = False
End With
End Sub

Zelf zou ik er nog bijzetten vanaf welk blad de range gekopieerd moet worden. Nu gebeurt het van het actieve blad.

 

[gridishere]

Venlo, ik ben je dankbaar