Boa noite amigo Vou te passar um "frm_pesquisa" que neste exato momento estou tentando adaptar ao meu formulário. É só importar o ...

Que estranho, o que será !? Fiz essa alteração em casa, e deu esse erro "UltimaLinha", agora fiz a mesma coisa aqui no trabalho e deu o mesm...

Bom-dia Já tinha feito essa alterção, porém ele dá erro na linha onde fica "Ultimalinha". No meu botão "Salvar" existe ...

Boa-noite Schramm Tenta dessa forma aqui. Private Sub txt_valor_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If IsNumeric(Me.txt_valor) = ...

Bom, acho que ainda não é o que pretende, mais tá no caminho. Dá uma olhada...

Boa-noite Tenta assim =SE(B1=0;A1;"") att, Francisco

Boa-noite amigo Faz um teste... Att, Francisco

Boa-noite Mauro Inseri o código com as alterações e funcionou de boa. Mais quando eu jogo a rotina no arquivo "original" da erro. att,...

Boa-tarde Acho que ocorre isso quando usa centavos, repare que o "balancete" bateu certinho. Já na outra planilha também está "OK...

Boa-tarde amigo Tente assim... Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.SaveAs "M:PlanejamentoEstrategicoAno_2016B...

É isso mesmo Mauro....ficou bacana ! Mais eu queria que mudasse uma coisa...ao invés de contar palavras, ele contasse os registros (as linhas) conform...

Boa-noite amigo Dá uma olha e vê se atende o que precisa !? Att, Francisco

Bom-dia Mauro Segue anexo a planilha com algumas informações, com a data e com a macro que você mandou. Está funcional, gostaria que a rotina con...

Boa-noite Mauro, É quase isso, a contagem tá OK. Mais daria para fazer por data ? Eu criaria uma coluna data e quando salvar o registro com a dat...