Macro VBA para inserir linha com base na célula ativa na linha variável

Question

Eu tenho uma planilha do Excel que rastreia vendas e resgates de certificados de presente. Às vezes, o montante resgatado (coluna Q) é menor que o total disponível (coluna H). O valor de resgate atualmente fica vermelho para alertar a equipe de que há crédito, mas eles alteram manualmente a planilha. Como faço para gravar uma macro / acionar um evento para inserir uma linha abaixo da célula ativa na coluna Q para copiar os dados da linha original para a nova linha, alterar os valores de ( H new) para ( H original - M original) e depois H original para M original. Estou perplexo porque a linha é variável porque a lista está em ordem alfabética.

    

Answer 1

Com base no seu problema principal, você pode usar a linha a seguir para inserir uma linha abaixo da célula ativa.

'Insert row below active cell ActiveCell.Offset(1).EntireRow.Insert

Infelizmente eu não entendo o propósito da cópia, cole a rotina que você tentou explicar. Mas com o comando Copiar Intervalo, acho que você pode seguir o seu caminho:

ActiveWorksheet.Range("A1:K" & your_variable_end_of_copy_area).Copy ActiveWorksheet.Range("your_variable_destination_to_insert")

Se você colar o código que já tem, posso ajudar você de uma maneira melhor.