Ir ao conteúdo
  • Cadastre-se

Excel Deixar tabela com determinado número de linhas ao salvar (VBA)


Ir à solução Resolvido por Midori,

Posts recomendados

Olá, ao salvar, preciso que a tabela utilizada volte a ter 12 linhas (mesmo que tenham sido adicionadas ou excluídas algumas linhas)

Segue abaixo o código que estou tentando utilizar e que não está funcionando:


 

Sub linhas()

Dim tabela As ListObject
Dim UltimaLinha As Long

Set tabela = Plan5.ListObjects("Tabela1")
UltimaLinha = tabela.ListRows.Count
        
If UltimaLinha < 12 Then

        Do Until UltimaLinha = 12
            
            Call InsereLinha
            
            x = x - 1
        Loop
End If

If UltimaLinha > 12 Then
    
    Do Until UltimaLinha = 12
            
            Call ExcluiLinha
            
            x = x - 1
        Loop
End If

End Sub

 

Link para o comentário
Compartilhar em outros sites

  • Solução

@Jefferson TS A macro pode pegar a quantidade de linhas da tabela e adicionar ou excluir as últimas linhas nos loops (se for menor ou maior que 12),

 

Sub Linhas()
    Dim Conta As Long
    
    With [Tabela1].ListObject
        Conta = .ListRows.Count
        While Conta < 12
            .ListRows.Add
            Conta = Conta + 1
        Wend
        While Conta > 12
            .ListRows(.ListRows.Count).Delete
            Conta = Conta - 1
        Wend
    End With
End Sub

 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Redes-Wi-Fi-capa-3d-newsletter.png

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!