Pessoal, alguém poderia dizer onde está o erro desse código?
Veja, se coloco apenas o codigo abaixo o conteudo é colado no devido lugar só que como a célula copiada é uma fórmula, na colagem gera #REF
Selection.Copy Destination:=W.Cells(2, 2)
agora se eu coloco o código abaixo surge um erro no Paste:=xlPasteAll
Selection.Copy Destination:=W.Cells(2, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Metodo Copy Destination
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Metodo Copy Destination
O erro reportado refere-se a falta de uma virgula entre PasteSpecial e Paste;
porem; posso estar enganado; mas o método "Destination" não suporta o pastespecial, somente "colagem" direta
porem; posso estar enganado; mas o método "Destination" não suporta o pastespecial, somente "colagem" direta
Re: Metodo Copy Destination
Esqueci d e anexar a planilha.
Veja que sao dois arquivos.
a pasta import tem o código que irá solicitar qual arquivo que importar dados. Deve Escolher o arquivo RECE
Veja que sao dois arquivos.
a pasta import tem o código que irá solicitar qual arquivo que importar dados. Deve Escolher o arquivo RECE
- Anexos
-
- import.zip
- (42.77 KiB) Baixado 155 vezes
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Metodo Copy Destination
Para a copia, que e o objetivo do post,experimente algo +/- assim
Código: Selecionar todos
Sub Macro3()
Workbooks("RECE.xls").Sheets("Plan2").Range("J6:J13").Copy
Workbooks("Importa.xls").Sheets("Planilha1").Range("B3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub