Vida

Como copiar uma linha no Excel VBA

Como copiar uma linha no Excel VBA


We are searching data for your request:

Forums and discussions:
Manuals and reference books:
Data from registers:
Wait the end of the search in all databases.
Upon completion, a link will appear to access the found materials.

Usar o VBA para programar o Excel não é tão popular quanto antes. No entanto, ainda há muitos programadores que preferem isso ao trabalhar com o Excel. Se você é uma dessas pessoas, este artigo é para você.

Copiar uma linha no Excel VBA é o tipo de coisa para a qual o Excel VBA é realmente útil. Por exemplo, convém que um arquivo de todos os seus recebimentos com data, conta, categoria, provedor, produto / serviço e custo seja inserido uma linha de cada vez, à medida que ocorrem - uma instância de contabilidade evolutiva em vez de contabilidade estática. Para fazer isso, você precisa copiar uma linha de uma planilha para outra.

Um exemplo de programa VBA do Excel que copia uma linha de uma planilha para outra - usando apenas três colunas para simplificar - contém:

  • Uma coluna alfa para texto
  • Uma coluna numérica - uma soma automática é criada na planilha de destino
  • Uma coluna de data - a data e hora atuais são preenchidas automaticamente

Considerações para escrever código VBA do Excel

Para disparar um evento que copia a linha, vá com o controle de formulário padrão-a Button. No Excel, clique em Inserir na guia Desenvolvedor. Em seguida, selecione o controle de formulário Botão e desenhe o botão onde desejar. O Excel exibe automaticamente uma caixa de diálogo para permitir a seleção de uma macro acionada pelo evento de clique do botão ou para criar uma nova.

Existem várias maneiras de encontrar a última linha na planilha de destino para que o programa possa copiar uma linha na parte inferior. Este exemplo escolhe manter o número da última linha na planilha. Para manter o número da última linha, você deve armazenar esse número em algum lugar. Isso pode ser um problema porque o usuário pode alterar ou excluir o número. Para contornar isso, coloque-o na célula diretamente abaixo do botão do formulário. Dessa forma, é inacessível para o usuário. (A coisa mais fácil a fazer é inserir um valor na célula e mover o botão sobre ele.)

Código para copiar uma linha usando o Excel VBA

Sub Add_The_Line () Dim currentRow como folhas inteiras ("Sheet1"). Selecione currentRow = Range ("C2"). Linhas de valor (7). Selecione Selection.Copy Sheets ("Sheet2"). Selecione linhas (currentRow). Selecione ActiveSheet Dimensione a data como data theDate = Now () Cells (currentRow, 4) .Value = CStr (theDate) Cells (currentRow + 1, 3) .Ative Dim rTotalCell como intervalo definido rTotalCell = _ Sheets ("Sheet2"). Cells (Rows.Count, "C"). Fim (xlUp) .Offset (1, 0) rTotalCell = WorksheetFunction.Sum _ (Intervalo ("C7", rTotalCell.Offset (-1, 0))) Folhas ("Sheet1" ) .Range ("C2"). Value = currentRow + 1 End Sub

Esse código usa xlUp, um "número mágico" ou, tecnicamente, uma constante enumerada, reconhecida pelo método End. O deslocamento (1,0) simplesmente move uma linha para cima na mesma coluna, portanto o efeito líquido é selecionar a última célula na coluna C.

Em palavras, a declaração diz:

  • Vá para a última célula na coluna C (equivalente a End + Seta para baixo).
  • Em seguida, volte para a última célula não utilizada (equivalente à Seta final + Seta para cima).
  • Então, suba mais uma célula.

A última instrução atualiza o local da última linha.

O VBA é provavelmente mais difícil que o VB.NET porque você precisa conhecer os objetos VB e VBA do Excel. O uso do xlUP é um bom exemplo do tipo de conhecimento especializado essencial para poder escrever macros VBA sem procurar três coisas diferentes para cada instrução que você codifica. A Microsoft fez grandes progressos na atualização do editor do Visual Studio para ajudá-lo a descobrir a sintaxe correta, mas o editor do VBA não mudou muito.


Assista o vídeo: Macro Copiar e Colar Linha de Planilha Excel após Célula Selecionada com Códigos Excel VBA (Outubro 2022).

Video, Sitemap-Video, Sitemap-Videos