Preencher Lista de Dados

Conversão de Horas Excel - Converter Horas, Minutos, Segundos
Conversão de Horas Excel – Converter Horas, Minutos, Segundos
31 de agosto de 2011
Número da última célula ativa, preenchida no Excel com VBA
Número da última célula ativa, preenchida no Excel com VBA
7 de setembro de 2011

Objetivo: Preencher uma lista de dados na qual os dados de uma célula se referem também as linhas abaixo, de forma que possa ser usada esta lista na criação de tabelas dinâmicas e também em fórmulas.

Em algumas situações temos listas que nos são enviadas com os dados dispostos de forma em que não é possível utilizar algumas funções, como PROCV, SOMASE, CONTSE, etc e também tabelas dinâmicas.

Isto se deve ao fato de que as tabelas devem possuir, tal qual um banco de dados, todos os campos preenchidos para que possa ter integridade dos mesmos.

Na imagem do início do artigo temos a coluna A com os dados preenchidos  apenas na célula aonde iniciam os produtos da Loja 1, o correto seria que para cada linha estivesse preenchido também esta coluna.

O código abaixo realiza este preenchimento.

Public Sub lsCampoTabela()

    Dim lUltimaLinhaAtiva   As Long
    Dim lLinhaAtual         As Long
    Dim lAtual              As String
    
    lUltimaLinhaAtiva = Worksheets("Plan2").Cells(Worksheets("Plan2").Rows.Count, 2).End(xlUp).Row
    
    lLinhaAtual = 1
    
    While lLinhaAtual <= lUltimaLinhaAtiva
        If Cells(lLinhaAtual, 1).Value  "" Then
            lAtual = Cells(lLinhaAtual, 1).Value
        Else
            Cells(lLinhaAtual, 1).Value = lAtual
        End If
        
        lLinhaAtual = lLinhaAtual + 1
    Wend
    
End Sub

Para fazer os testes eu fiz dois botões, o azul preenche a lista, e o vermelho volta como estava antes.

Abraço

Marcos Rieper


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.