Faixa("R2").Valor = ActiveCell.Address

Faixa("R2").Valor = ActiveCell.Address

É possível usar esse endereço de alguma forma depois que ele aparecer na célula R2? Até agora, consegui fazer com que o endereço da minha célula copiada fosse para a célula R2, inserindo essa linha no final da minha macro para copiar as células. Agora quero poder voltar para aquela célula depois que ela for colada em outra célula para poder limpá-la.

Ainda tentando (copiar, colar especial, limpar a célula copiada) depois de ter sido colada em outro lugar.

Desde já, obrigado.

Responder1

Finalmente encontrei o que procurava.

Qualquer uma dessas linhas adicionadas ao meu código funcionou para voltar à célula copiada para limpá-la. Pode não ser a melhor maneira de fazer isso, mas faz exatamente o que eu queria.

Range(Range("R2")).Select
Selection.ClearContents

Ou

Range([indirect("R2")]).Select
Selection.ClearContents

Então eu tenho uma macro para cópia que é usada quando Ctrl+cpressionada e que copia a célula ativa como uma cópia normal, mas também coloca o endereço da célula ativa em R2.

Aí eu tenho um para ctrl+vcolar apenas valores e depois voltar para a célula copiada e limpar.

informação relacionada