Probleem met PasteSpecial

[Jemp]

Iemand enig idee waarom onderstaande code steeds in de fout gaat bij PasteSpecial regel?

Private Sub Verbruik_Ophalen(strFile As String)

Dim strsFile As String

    strsFile = ThisWorkbook.Path & "\" & strFile
    Workbooks.Open strsFile
    Sheets("Verbruik").Select
    Range("Verbruik").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.Delete Shift:=xlShiftUp  
    
    ThisWorkbook.Activate
    Sheets("Verbruik").Select
    Range("a65536").End(xlUp).Offset(1, 0).Select
    ThisWorkbook.Sheets("Verbruik").Range(ActiveCell.Address).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Workbooks(strFile).Close SaveChanges:=True
    
End Sub

 

[snb]

Private Sub Verbruik_Ophalen(strFile As String)
  with Workbooks.Open(ThisWorkbook.Path & "\" & strFile).sheets("Verbruik")
    .cells(rows.count,1).end(xlup).offset(1).resize(.range("verbruik").rows.count,.range("verbruik").columns.count)=.range("verbruik").value
    .parent.close true
  end with
End Sub

 

[Jemp]

Beetje meer uitleg

Misschien toch een woordje uitleg (ook al heeft snb al gereageerd)

In een map staan een aantal .xlsm files. De meeste zijn source-files (zoals bv Workbook.Open strsFile) en slechts 1 is de destination-file (hiertoe behoort ThisWorkbook).

De range "Verbruik" (van Workbook.open strsFile als source-file) wordt gekopieerd en vervolgens leeg gemaakt.

Het Pasten moet gebeuren in Thisworkbook (is een ander workbook!) in de sheet "Verbruik" onderaan de reeds bestaande gegevens (alle files hebben dus wel degelijk een Sheet met naam "Verbruik").

Met dank voor de code van snb waarbij echter het gekopieerde deel in dezelfde source-file weggeschreven wordt.

Sorry voor het misverstand en dank voor de reeds ontvangen hulp.
Groeten
JP

 

[snb]

Private Sub Verbruik_Ophalen(strFile As String)
  with Workbooks.Open(ThisWorkbook.Path & "\" & strFile).sheets("Verbruik")
    [COLOR=#ff0000]Thisworkbook.sheets("verbruik").[/COLOR]cells(rows.count,1).end(xlup).offset(1).resize(.range("verbruik").rows.count,.range("verbruik").columns.count)=.range("verbruik").value
    .parent.close true
  end with
End Sub

 

[Jemp]

tx snb

het werkt :thumb:
en dat zonder PasteSpecial
ga proberen te begrijpen wat de code eigenlijk zegt en doet

Groeten
JP