Excel Copiar valor de uma célula e depois da outra com macro.

Nilton Cézar · 21 de setembro de 2023

Olá, pessoal.

Gostaria de montar um código para copiar 2 células. Ou seja, eu copio o valor de uma célula com a macro. Logo após, copio a outra célula com a macro, após a seleção automática desta última célula. Não é para copiar as duas simultaneamente.

Consegui um código de copiar e montei o comando da seguinte forma:

Sub CopiarCelulaSelecionada()

'Condição com a seleção de G28.
    If [G28].Select Then
    'A estrutura [G28] é o mesmo que Range("G28").

    'Copia o conteúdo da célula ativa para a área de transferência
    ActiveCell.Copy

'Comando para selecionar automaticamente a célula anterior à escolhida.
ActiveCell.Offset(-1, 0).Select

   'Copia o conteúdo da célula ativa para a área de transferência
    ActiveCell.Copy


'Condição com a seleção de G27.
ElseIf [G27].Select Then
    
    'Copia o conteúdo da célula ativa para a área de transferência
    ActiveCell.Copy

'Comando para selecionar automaticamente a célula posterior à escolhida.
ActiveCell.Offset(1, 0).Select

   'Copia o conteúdo da célula ativa para a área de transferência
    ActiveCell.Copy
       
    End If    

End Sub

Detalhe: o código acima é apenas para copiar. Não é para copiar e colar.

O meu propósito é executar desta maneira: Eu seleciono o valor da célula em G8 e copio com a macro. Depois colo em outro lugar.

Na sequência, o código seleciona automaticamente a célula anterior (G27). Logo em seguida, eu volto a copiar a célula G27 com a macro e colo o valor em um lugar qualquer.

Mas, se eu começar a selecionar o valor que está em G27, a rotina tem que ser semelhante à execução acima. Assim, eu seleciono o valor que está em G27 e copio com a macro.

Após, o código seleciona automaticamente a célula seguinte (G28). Eu volto a copiar os dados da célula selecionada para colar em outro lugar.

O problema é que, quando eu seleciono primeiro G28, o comando está pulando para a célula anterior (G27) e copiando o valor que está nessa célula sem antes copiar os dados em G28.

De outro lado, o comando não está funcionando como esperado, quando começo a seleção por G27.

Alguém poderia ajudar na lógica desse código para que ele funcione conforme o propósito acima explicado.

Ficaria grato.