Colar varias células de Um arquivo para outro Sem Formula


#1

Bom dia a todos!
Estou precisando copiar os dados de varias células de uma planilha e colar em outras células de outro arquivo sem as formulas.
Auguem pode me Ajudar?


#2

Olá, @SPP. Tudo bem?

Você pode selecionar os dados que deseja copiar e pressionar Ctrl+C para fazer a copia. No outro arquivo, clique com o botão direito do mouse na posição em que deseja colar os dados e verá diversas opções de colagem, escolha a segunda opção para colar apenas os valores.


#3

Boa Tarde Xavier!
Preciso que Seja em VBA para que cole em outro arquivo automaticamente.
eu tenho um VBA que isto, mas cola as Formulas.
Parte da Formula.
.Range(“A11:H106”).Copy Destination:=wsDestino.Range(“A11”)


#4

@SPP, aí vc vai ter que reescrever.

Salva uma copia do arquivo, por segurança, apaga a parte Destination:=wsDestino.Range("A11") e inclui essas linhas:

wsDestino.Activate 
wsDestino.range("A11").Select
ActiveSheet.PasteSpecial xlPasteValues

Acho que vai funcionar.


#5

Xavier
Tentei de todas as forma que consegui.
Só funciona com este VBA que estou enviando junto.
Preciso colar somente os dados sem as Formulas
Sub Copiar_Dados()
Application.ScreenUpdating = False
Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet
Workbooks.Open (“C:\Arquivo1”)
Set wsOrigem = Workbooks(“Arquivo2”).Worksheets(“Arquivo1”)
Set wsDestino = Workbooks(“Plan1”).Worksheets(“Plan1”)
With wsOrigem
.Range(“A11:H106”).Copy wsDestino.Range(“A11”)
End With
Application.ScreenUpdating = True
End Sub


#6

Boa Tarde!
Já Consegui, Separei e deu certo
wsOrigem.Range(“A11:H106”).Copy
wsDestino.Range(“A11”).PasteSpecial xlPasteValues