Este fórum está sendo desativado

[dcmdouglas]

Este código está dentro de um loop, que deve copiar dados de uma planilha e passar para outra. Se eu fizesse sem o pasteSpecial ele funciona, porém copia a fórmula e não o valor, que é o que eu quero. Então quando eu adiciono o paste special ele mostra o erro:

Não é possível obter a propriedade paste special da classe Range.

Alguém pode me ajudar???

Código:
Workbooks("ANDROIDGTM.xlsx").Sheets("Plan1").Cells(10, 10).Copy Destination:=Workbooks("verificarGTM.xlsm").Sheets("Plan1").Cells(10, 10).PasteSpecial(xlPasteValues)

[gfranco]

Boa tarde.
Segue minha contribuição.
Declare uma variável para carregar o valor à ser copiado.
Ficaria +- assim:

Código: Selecionar todos

Sub copia_valor()
Dim x As Variant
x = Workbooks("ANDROIDGTM.xlsx").Worksheets("plan1").Cells(10, 10)
Workbooks("verificarGTM.xlsm").Worksheets("plan1").Cells(10, 10) = x

End Sub