Ziel + Einfügen Spezialfehler VBA

Question

Ich habe ein Problem in meiner Formel. Überprüfen Sie den Code unten.

With Worksheets("L.NAM.O") 
     With .Cells.Find(What:="record ID", After:=ActiveCell, LookIn:= _ 
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
      xlNext, MatchCase:=False, SearchFormat:=False) 
      .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy Destination:=Worksheets("NewForecast").Range("D35").PasteSpecial(xlPasteValues) 
     End With 
    End With 

Im Ziel, wenn Sie meine Werte einfügen, will ich es Paste Werte, aber dieser Fehler kommt sein: „Laufzeitfehler 1004: kann nicht erhält die Paste Eigenschaft der Range-Klasse.“ Irgendwelche Ideen, wie man es löst? Danke vielmals!

Answer 1

Werte einfügen Sie Copy() Methode vermeiden konnte und nur Value Eigenschaft Range Objekt verwenden:

Ersatz:

.Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy Destination:=Worksheets("NewForecast").Range("D35").PasteSpecial(xlPasteValues) 

mit:

With .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)) 
    Worksheets("NewForecast").Range("D35").Resize(.Rows.Count).Value = .Value 
End With