Mauro Coutinho, A linha do cadastro fica oculta como o desejado, mas no listbox ela aparece, e como busco os dados para o formulário através da listb...

Desculpe-me a minha ignorância. Muitíssimo obrigado pela atenção.

Estou usando esta rotina: Dim Qtde As Byte Workbooks.Add ActiveWorkbook.SaveAs (Workbooks("Dados.xls").Path &am...

Mauro Coutinho, Fiz uma adaptação pela rotina apresentada, mas não é o que estou querendo de fato. A minha rotina esta funcionando legal, o problema ...

Alexandrevba e Wagner Morel, Obrigado, funcionou perfeitamente. Uma última coisa para finalizar, quanto na criação do novo arquivo, se o mesmo já ex...

Wagner Morel Obrigado. Acrescentei o seguinte comando para deletar as plans 1, 2 e 3 do novo arquivo: Sheets(Array("Plan1", "Plan2&q...

Alé, ta quase no ponto... como faço para alterar a data e continuar a utilizar o arquivo? pois quando clico em ok, ele se fecha.

Olá, este código eu tenho, gostaria de saber se existe a possibilidade da data de expiração esteja em uma célula, e que o arquivo não se auto-excluíss...

Olá Ale, Login eu sei, a princípio é uma idéia, por tanto não tenho um esboço, mas que pode ser usada para vários desenvolvedores de projetos, eu est...

Só resaltando, o cadastro principal que cadastra nas outras plans é o frmcadastro, os demais são apenas para alteraçao. Att,

Galera, Apesar de gostar de VBA e coisa e tal, não tenho conhecimento para desenvolver o que eu gostaria, me familiarizo com este formulário que post...

Alexandre, Sempre me retorna com erro, sempre nesta linha no botão incluir: Codigo = CInt(Sheets("Plan2").Cells(UltimaLinha, 1)) + 1 Não s...