Kopiowanie i wklejanie do innego Workbooka jako wartość

0

Czy może mi ktoś wytłumaczyć dlaczego mój kod nie chce działać ?

Sub Copy_Past()

Dim wsOne As Worksheet
Dim wsTwo As Worksheet
Dim lCopyLastRow As Long

'Load workbooks
    Set wsOne = Workbooks("SomeFile1.xlsx").Worksheets("Sheet1")
    Set wsTwo = Workbooks("SomeFile2.xlsx").Worksheets("Sheet1")

'Find Last row
    lCopyLastRow = wsOne.Cells(wsOne.Rows.count, "A").End(xlUp).row

'Copy and past
  wsOne.Range("A2:A" & lCopyLastRow).Copy _
    wsTwo.Range("A2").PasteSpecial Paste:=xlPasteValues

Problem pojawia się przy Copy and Past. Dostaje Syntax Error, jeśli usunę .PasteSpecial Paste:=xlPasteValues to się wkleja normalnie ale ja potrzebuję to wkleić jako wartość i się nie da w ten sposób

0

Jeśli usunę _ z kodu

'Copy and past
  wsOne.Range("A2:A" & lCopyLastRow).Copy
    wsTwo.Range("A2").PasteSpecial Paste:=xlPasteValues

to wkleja mi się do komórek "pastespecial xlvalues"

0

dobra już nie ważne xd

1 użytkowników online, w tym zalogowanych: 0, gości: 1