romanholi, boa noite. Acho que a adaptação abaixo resolve o impasse. Veja que estou usando o Application.WorksheetFunction.CountA para ter a quantida...

Jokaman, Em qual parte do código dá o erro?

Boa noite. Veja se é isso e adapte conforme a sua necessidade. Levei em conta que o final dos comentários é numérico e sempre em ordem crescente. E c...

Pq a última planilha que anexei não atendeu? Vc testou?

nmareis, Testei e funcionou tranquilo aqui. As pastas referentes ao 3 livros ficam aberta no momento de executar a macro? Se vc está executando com e...

Boa noite, vonzuben Isso está acontecendo pq vc tá dando um Exit Sub antes de chegar na linha que chama a macro para proteger a planilha. Então, par...

Boa noite! Não cheguei a abri a sua pasta, mas acredito que se vc inseri da forma abaixo resolve: Private Sub BtCadastro_Click() Dim linha As Long ...

Will, Não entendi não. Anexe o modelo de sua plan aí. Abs!

nmareis, Segue pasta. Coloquei o filtro avançado por já ter a opção de copiar os dados filtrados. Ele vai copiar os títulos das colunas. Aí vc pode i...

Bruno, Segue. Veja se é isso.

nmareis, boa noite. O que vc quer é até simples. Mas como vc quer copiar as informações dos outros livros se o livro final não tem o msm padrão de co...

boa noite, Lucélio. Td bem? Depois da linha do seu código abaixo transcrita, se vc adicionar o KeyAscii = 0 acho que já resolve o seu problema. Agora...

nmareis, boa noite. Assim funciona: Sub Macro1() Dim Sdata As Date Sdata = InputBox("Insira sua data abaixo:") Workbooks("...

escuderia, Abri sua pasta e não encontrei o que vc postou abaixo sobre empréstimo de item. Melhor vc anexar o arquivo já com a coluna e indicar o que...

Boa tarde, Divino. No seu form não há uma TexBox com o nome "txt_mes". Há uma ComboBox referente ao mês com nome "cb_mes". Talvez...