Copiando célula de uma planilha para outra sem formatação

Question

provavelmente um simples para seus gênios, no entanto eu preciso de um novo par de olhos como eu estive sobre isso um tempo e não consigo ver o meu erro. Eu estou apenas querendo copiar o conteúdo de uma célula de uma célula para outra célula em outra folha, mas eu não quero que toda a formatação vá com ela, apenas o valor.

Meu código está abaixo

  Range("H" & Target.Row).Copy Destination:=Sheets("Accepted Template").Range("P4").PasteSpecial Paste:=xlPasteValues

Qualquer ideia do que eu fiz de errado aqui. O VBA continua jogando um erro final inesperado.

    

Answer 1

Você pode experimentar este código para copiar o valor da célula formatada da planilha 1 & Cole na Folha 2 na célula / células de destino sem Formatação (Somente Valor).

Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("A3").Copy
Sheets("Sheet2").Range("A3, A4").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub 

N.B.

• Se você deseja copiar o intervalo Formatado, substitua a linha 2 no código com isso, Sheets("Sheet1").Range("A3:A10").Copy

Nota,

• Esse código também pode ser usado como módulo padrão.
• Só para testar o código de propósito, usei duas células de destino, você pode usar um ou até mesmo muitos.
• Isso pode ser feito até mesmo pelo uso da opção Colar especial e Valor também.