O que você pretende é ao alterar o valor do" Histórico de Operações" da planilha "HIST. OPERAÇÕES" ele altere a quantidade de linhas da tabela ?
É apenas isso ou tem mais condicionantes?
Obrigado!

Boas veja se isto lhe ajuda

Boas, tudo bem?
E qual seria esse estado?

@osvaldomp, A sua também funcionou.
Obrigado

@Deciog É exatamente isso, muito obrigado.

Boas, tenho o seguinte ficheiro, que contem 2 tabelas. Quero identificar o valor na primeira tabela, baseado na segunda tabela. Para isso criei um código único para cada linha. Problema: Nesse código único ele pega a quantidade da tabela 1, mas na tabela 2 essa quantidade(em alguns casos pode variar...

Peço desculpas só agora percebi o erro, a tabela estava bem mas o produto não.
Aqui o arquivo corrigido.

Boas veja se é isso que pretende.
Espero ter ajudado.

Boas apenas consegui esta solução em MACRO/VBA.
Espero que lhe ajude.

Boas amigo, em algum computador, o Excel está em inglês?
Se sim então apenas troque na fórmula "nome.ficheiro" por "filename".
Testei aqui e funcionou meu Excel é em inglês.
Pode ser que seja isso.

Consegue disponibilizar o seu arquivo?
Obrigado!

Boas, essas células apresentam algum erro?

Ele quebrar queba, mas você terá que aumentar a altura da linha, pois não vai caber todo o texto apenas nesse espaço.

Boas, se poder disponibilize o seu ficheiro para podermos ajudar melhor.
Obrigado!

Pelo que pesquisei aqui todos os formatos de Excel podem conter macros/VBA, com exceção dos formatos ".xlsx" e ".xltx"

Boas, eu fiz aqui o teste e não perdi as macros nem deixaram de funcionar.
O que você pode fazer é, criar uma cópia do seu ficheiro e nessa cópia gravar em formato binário para testar se guarda ou não a macro.

Então fiz o código para o botão 6.08.
Agora só precisa duplicar para os restantes, o mesmo código, alterando apenas o número dos botões.

Dica: Altere o nome de todos os botões para ficar mais organizado.

Boas, consegue disponibilizar o seu ficheiro, para o podermos ajudar melhor?
Obrigado!

Boas experimente alterar o código do botão cadastrar para este: 'Desativar atualização de ecrã Application.ScreenUpdating = False 'Ativar a primeira planilha ThisWorkbook.Worksheets("Vencimentos").Activate 'Procurar a primeira linha vazia ultimaLinha = ThisWorkbook.Worksheets("Vencimentos").Cells(Ro...

Ora experimente antes com o seguinte código: Private Sub Worksheet_Change(ByVal Target As Range) 'Data criação(mm/dd/aaaa): 02/09/2021 'Criado por InforMira 'Contato: informirapt@gmail.com Dim celula As Range Set celula = Range("A1") 'Aqui colocar a célula que quer o valor no botão If celula.Value <...