VBA & Excel: Como copiar colar apenas os valores de uma celula para uma celula diferente automaticamente?

Eu encontrei uma série de códigos, como este:

Sub TestDis()

Sheets("Sheet1").Range("a1:A10").Cópia
Sheets("Sheet1").Range("B1:B10").Colar... (xlPasteValues)
Application.CutCopyMode = False

End Sub

Que funciona, mas exige que o programa seja executado a cada vez. Existe uma maneira diferente de fazer isso, então ele será executado o tempo todo? OU talvez uma forma completamente diferente? talvez sem VBA?

E não... Eu não posso colocar jus = A11, porque eu não posso ter uma fórmula em que a célula

Qualquer ajuda é apreciada! Obrigado!!! Ele funciona!!!!

Resposta

Oi

Você pode fazer isso de algumas maneiras no VBA. Parece que o mais útil para sua finalidade seria a de incorporar o código em um evento worksheet_change ou worksheet_selectionchange. Basicamente, o worksheet_change executará o código toda vez que as alterações de valor de todas as células ou o worksheet_selectionchange executará o código toda vez que uma célula diferente é selecionada (independentemente da célula que está sendo alterada).

O código é:

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Sheet1").Range("B1:B10").Valor = Sheets("Sheet1").Range("a1:A10").Valor

End Sub

OU

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Sheets("Sheet1").Range("B1:B10").Valor = Sheets("Sheet1").Range("a1:A10").Valor

End Sub

Para usar o código, clique com o botão direito o nome da planilha na parte inferior (Plan1) e clique em 'Ver código'. Cole um dos códigos acima na janela de código sheet1.

Espero que ajude.