VBA copiar e colar no Excel

[Boudais]

Olá pessoal,

 

Estou precisando de uma ajuda para preparar uma rotina que copie o resultado de uma célula e cole somente o valor em outra. Estou na verdade tentando solucionar o problema de uma planlha que possui referências circulares.

 

Eu anexei uma planilha para explicar melhor. As células azuis possuem os dados, as células verdes possuem a soma dos dados e o que preciso é uma rotina que copie o resultado de cada célula verde e cole como valor nas células amarelas, porém esta operação deverá ser executada automáticamente cada vez que os dados forem alterados.

 

Consegui o seguinte código:

 

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Plan1").Range("c2:C10").Valor = Sheets("Plan1").Range("D2:D10").Valor
End Sub

 

Mas ele não funciona alguém pode ajudar a resolver.

 

Att.

Copiar&Colar R0.xlsx

[Visitante]

Experimente

Private Sub Worksheet_Calculate() [D2].Resize(9).Value = [C2].Resize(9).ValueEnd Sub

[Boudais]

Osvaldo,

 

Funcionou muito bem,

 

Muito obrigado pela ajuda