Redimensionamento de tabela por VBA
Enviado: 26 Jan 2018 às 18:23
Boa tarde pessoal!
Estou com o seguinte desafio. Trabalho na área de logística de uma empresa e tenho que fornecer indicadores de desempenho de vários setores.
Para isso tenho uma planilha padrão em cada setor que funciona como base de dados.
Essa planilha possui uma tabela extensa (banco de dados) vinculada a outras e de acordo com que novas informações são incluídas nas planilhas dos setores elas vão aparecendo nessa tabela.
Porém aqui é o nó: hoje essa tabela tem um tamanho predefinido para receber os dados do mês, o que faz com que ela sempre fique com linhas em branco no fechamento e na hora que eu puxo esses dados numa planilha central ela acaba trazendo essas linhas. O que atrapalha na hora de montar tabelas e gráficos dinâmicos.
Gostaria de que a minha tabela fosse redimensionada cada vez que fosse incluído novos dados. A fim de que quando eu puxasse para uma planilha central não viessem esses dados em branco.
Fiz algumas pesquisas e encontrei este código abaixo, porém ele é estático o que não me atenderia. Conseguiríamos adequá-lo para resolvermos o meu problema? Ou temos alguma outra saída melhor?
"Sub ResizeTable()
Dim rng As Range
Dim tbl As ListObject
Set rng = Range("Table1[#All]").Resize(7, 5)
ActiveSheet.ListObjects("Table1").Resize rng
End Sub"
Segue anexo a planilha que funciona como banco de dados.
Estou com o seguinte desafio. Trabalho na área de logística de uma empresa e tenho que fornecer indicadores de desempenho de vários setores.
Para isso tenho uma planilha padrão em cada setor que funciona como base de dados.
Essa planilha possui uma tabela extensa (banco de dados) vinculada a outras e de acordo com que novas informações são incluídas nas planilhas dos setores elas vão aparecendo nessa tabela.
Porém aqui é o nó: hoje essa tabela tem um tamanho predefinido para receber os dados do mês, o que faz com que ela sempre fique com linhas em branco no fechamento e na hora que eu puxo esses dados numa planilha central ela acaba trazendo essas linhas. O que atrapalha na hora de montar tabelas e gráficos dinâmicos.
Gostaria de que a minha tabela fosse redimensionada cada vez que fosse incluído novos dados. A fim de que quando eu puxasse para uma planilha central não viessem esses dados em branco.
Fiz algumas pesquisas e encontrei este código abaixo, porém ele é estático o que não me atenderia. Conseguiríamos adequá-lo para resolvermos o meu problema? Ou temos alguma outra saída melhor?
"Sub ResizeTable()
Dim rng As Range
Dim tbl As ListObject
Set rng = Range("Table1[#All]").Resize(7, 5)
ActiveSheet.ListObjects("Table1").Resize rng
End Sub"
Segue anexo a planilha que funciona como banco de dados.