Este fórum está sendo desativado

[RenatoMeirelles01]

Estou colocando uma planilha VBA em anexo, eu gostaria de uma ajuda para terminar um trabalho, fiz o curso VBA no SENAC a pouco tempo e não conheço todos os comandos ainda. Estou com os seguintes problema:
Quando clico no Salvar no "FormFinan", ele esta salvando na Plan "Base" as datas e os valores em formatos que não consigo usar em formulas e tabelas dinâmicas. com a Option "Transferência" acionado ela não esta salvando na coluna "B" escrito "TRANSF".
A pesquisa no mesmo form, só aparece um linha em vez de listar tudo parecido conforme option selecionado.

[ExcelFlex]

Bom dia.

Para salvar a data no formato correto você deve usar CDate() assim:

Código: Selecionar todos

ActiveCell.Offset(0, 2).Value = CDate(TxtData.Text)

A mesma coisa com valores numéricos:

Código: Selecionar todos

ActiveCell.Offset(0, 5).Value = CDbl(TxtValor.Text)

Você deve substituir colocar esta função em todos os locais onde salva do formulário para a planilha.

[RenatoMeirelles01]

Funcionou, agora poderia me ajudar com:
A “optransf” ao ser marcada tem que salvar apenas na plan “base”, com a coluna B o valor “TRANFS”
E a pesquisa tem que aparecer a list completa de lançamentos parecidos com o digitado de acordo com a opção clicada.

Muito obrigado

[ExcelFlex]

Não encontrei nenhuma referência ao optTransf no seu código, mande o seu arquivo atualizado, pois a primeira versão que você mandou não tinha nada criado para este controle ainda.

[RenatoMeirelles01]

Segue planilha com funções atualizadas:

A “optransf” ao ser marcada tem que salvar apenas na plan “base”, com a coluna B o valor “TRANFS”
E a pesquisa tem que aparecer a list completa de lançamentos parecidos com o digitado de acordo com a opção clicada. Só aparece uma linha