afdrukbereik tabblad appart opslaan

[bartdeboer87]

Beste mensen

Ben bezig met een bestand die mijn afdrukbereik kopieerd naar een "opslaan sheet"
en dan deze opslaan volgens onderstaande code

Nu loop ik tegen een probleem

De celeigeschappen worden wel goed gekopieerd van het afdrukbereik
alleen tijdens het opslaan van de "opslaan sheet" gaat het verkeerd.
dan wordt bijvoorbeeld 059813506
59813506

weet iemand wat ik aan de code moet veranderen?

mvg Bart

Sheets("Manuren").Select
    Application.Goto Reference:="Print_Area"
    Application.CutCopyMode = False
    Selection.copy
    Sheets("opslaan").Select
    Range("A1").Select
    ActiveSheet.Paste
    
    
    filenaam = Sheets("Manuren").[u6].Value & ".xls"
Sheets("opslaan").copy
[A1].Select
    For Each sh In Worksheets
        With sh.UsedRange
            .Value = .Value
        End With
        If sh.Index > 1 Then
            sh.Delete
        End If
    Next
With ActiveWorkbook
    .SaveAs "I:\Werkorders\Manurenregister\mandagen meegestuurd\" & filenaam, xlNormal, "", "", False, False
    .Close
End With
With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
End With
[A1].Select



MsgBox "File is opgeslagen"

 

[Hoornvan]

bartdeboer87,


Als je dit ' er voor zet?

'059813506

 

[bartdeboer87]

0 valt weg

Oja, soms denk je gewoon te moeilijk

bedankt zal ze even aanpassen

gr bart

 

[snb]

Of:

  with Sheets("Manuren")
    c4=[U4]
    with .printarea
       sheets("opslaan").cells(1,1).resize(.rows.count,columns.count)    
     end with
  end with

  sheets("opslaan").copy
  with activeworkbook
     .saveas  c4& ".xls"
     .close false
  end with
  With activeworkbook
     .SaveAs "I:\Werkorders\Manurenregister\mandagen meegestuurd\" & filenaam
    .Close False
  End With

  With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
  End With