plakken speciaal: waardes in VBA code

[lakizali]

Beste,

Ik maak in mn excel bestand gebruik van onderstaande code om de sheet te kopieren naar een nieuw excel bestand:

Const SourceSheetName As String = "Besteladvies"
Const SourceRange As String = "A1:AA3000"

Sub CopyRangeToNewWorkbook()
  Dim Oldbook As Workbook, NewBook As Workbook, Path As String

  Path = ActiveWorkbook.Path & Application.PathSeparator
  Set Oldbook = ThisWorkbook
  Set NewBook = Workbooks.Add
  Oldbook.Sheets(SourceSheetName).Range(SourceRange).Copy
  NewBook.Sheets(1).Paste
 BestandsNaam = Application.GetSaveAsFilename

End Sub

nu kopieert deze code de formules maar deze verwijzen naar andere sheets in het originele bestand, hoe kan ik alleen de waardes plakken?

alleen een voorbeeldje van plakken speciaal is in principe al voldoende, dan bouw ik het zelf wel om.

Bij voorbaat dank,
Niels

 

[ExcelAmateur]

lakizali,

Kijk eens of dit werkt.

NewBook.Sheets(1).PasteSpecial Paste:=xlPasteValues

 

[lakizali]

die had ik zelf ook al gevonden, ik krijg een error of iets dergerlijks, een scherm met een rode circel waar een wit kruis in staat en de vermelding 400.

 

[ExcelAmateur]

lakizali
die had ik zelf ook al gevonden, ik krijg een error of iets dergerlijks, een scherm met een rode circel waar een wit kruis in staat en de vermelding 400.

Is de naam juist van de nieuwe file?

 

[lakizali]

ik gebruik de applicatie GetSaveAsFilename dus dan bepaal ik de naam van het bestand achteraf pas toch?

 

[ExcelAmateur]

Als je de code met F8 doorloopt dan zie je waar het fout gaat.
Die regel zal je moeten aanpassen.

Ik ben in VBA geen Kei maar een echte amateur.
Dus ik kan je niet verder helpen.

 

[lakizali]

ik ben er helaas ook niet bekend mee, bedankt iig voor je hulp, hopelijk weet iemand anders het.
maar k stop er mee voor vandaag, morgen weer een dag

 

[zapatr]

Neem de handelingen op met de vba-recorder, dan zie je vanzelf hoe het moet zijn.

 

[E v R]

pas het regeltje van ExcelAmateur eens zo aan:

NewBook.Sheets(1).Cells(1, 1).PasteSpecial xlValues

of zo:

NewBook.Sheets(1).Range(SourceRange).PasteSpecial xlValues

 

[lakizali]

hij werkt, dankje :thumb: