Boa-noite

Não entendi muito bem, quer que a data fique fixa ou não, e onde...!?
Quando abrir o form, quer que a data apareça na "ComboBoxdata" !?

Se você colocar...

Private Sub UserForm_Initialize()

ComboBoxdata.value = Date

End Sub

Sempre que inicializar o formulário vai aparecer na Combo a data do sistema....!

att,

Francisco

Irmão, Boa Noite,

Demorei responder pois estava fazendo uns testes na resposta enviada.
É isso mesmo que estou precisando, porém a data não funciona assim:

lançamos uma doação, desse modo pelo formulário:
Localizamos na comboboxnome o nome do Dizimista e clicamos em pesquisar.
Mais quando fazemos isto ai aparece a data que estava gravado (evidente).
Teria como depois de pesquisar, quando fosse gravar outro lançamento que prevalece a data da digitação,
não a anterior gravada.
Quando coloquei a pergunta, não me atentei a isso.

obs.: se der para continuar aparecendo a data anterior digitada, ótimo, mais se não for possível o mês e o valor
já dá para trabalhar.

Fiquem Com Deus.

é só você digitar a nova data e salvar.

Irmão,

não daria para fazer isso, pois o lançamento já está funcionando sem digitar a data,
trabalho com a função hoje e no final do dia eu copio e colo as datas em cima da função hoje.
pois necessito de velocidade de digitação e como disse antes, localizo o nome e clico em pesquisar
já aparece o último lançamento, aí é digitado o mês e o valor desejado.
voltando a digitar a data seria um retrocesso dentro do que já tem sido feito.
entendo sua resposta, porém se conseguisse colocar a data automática seria mais veloz e depois
não precisaria ter sempre no final do dia atualizar essa data, pois tem dia que não consigo
ir a Igreja e acabo não atualizando na data real que foi lançada.

Paz e Bem.

Boa-tarde

Bom, pelo que eu entendi você quer que na hora que fizer a pesquisa e trouxer as informações, você quer que a data permaneça a do sistema....!

é isso...!? se sim, você deveria ter mudado a linha onde faz a pesquisa da data.

With Worksheets("PLAN2").Range("b:E")
Set C = .Find(ComboBoxnome.Value, LookIn:=xlValues, LookAt:=xlPart)

If Not C Is Nothing Then
  'c.Activate ´SERVA QDO NAO TINHA O MENU
  ComboBoxnome.Value = C.Value
 caixa_Cód.Value = C.Offset(0, -1).Value
  ComboBoxdata.Value = C.Offset(0, 1).Value   <------ aqui era só colocar como comentário ( 'ComboBoxdata.Value = C.Offset(0, 1).Value )
  ComboBoxmes.Value = C.Offset(0, 2).Value
  txtvalor.Value = C.Offset(0, 3).Value
  'End If
  'DESABILITAMOS OS BOTOES GRAVAR E O LIMPAR
  Botão_Gravar.Enabled = True

Else
    MsgBox "Dizimista não foi localizado!"
    
End If
End With

Por que o form inicializa com a data do sistema, mais quando você pesquisa ele puxa as informações que você mesmo definiu.

irmão,

Fiz o teste e funcionou o que lhe perguntei.

Mais eu vi uma possibilidade de também na pesquisa também buscar a data gravada.

Eu adicionei uma outra coluna na aba PLAN2 e coloquei uma formula para excluir o acento da data (foi a formula que achei).
Essa coluna serve para buscar a data lançada e mostrar no formulário (Pesquisa_dizimista)
Porém está acusando erro abaixo na linha da Textbox1 (que é a caixa que exibe data da pesquisa)
e a data não grava na comboboxdata (que esta na aba plan2 ).
O erro acontece quando executo essa sequência no formulário:

clico no botão partilha da aba menu
Digito nome e depois clico no botão pesquisar
depois clico no botão excluir e excluo o lançamento
e clico no botão pesquisar e gravo um novo lançamento
e depois faço uma nova pesquisa.
acusa erro:
em tempo de execução 2147352571 (80020005)
não foi possivel definir a propriedade value. tipo não correspondente.

Paz e Bem.

Bom dia,

Estou sem resposta. se posicionei algo errado me desculpem.
Por favor me sinalizem.

Fiquem com Deus.

ISIDRO

Você quer fazer a pesquisa por todos os campos, pois no formulário "Partilha" tem 3 combobox. Quer pesquisar por nome, por mês (JANEIRO, FEVEREIRO,...) e por Data de Contribuição....!?
Se for fazer a pesquisa por mês ( JANEIRO, FEVEREIRO,...) quantos dizimistas terão em um mesmo mês...!?
Por dia no "ComboBoxdata", quantos no mesmo dia...!?
E quando faz a pesquisa ele só vai mostrar o primeiro no formulário.

Bom dia irmão,
Objetivo do formulário:
Ao digitar nome , clicar
No botão pesquisar
Aparecer o ultimo mês
E a data que dizimou .
O usuário só clica n combobox
E procura o nome,
Pesquisa e adiciona
Apenas o valor e o mês.
A data e a data do dia
Da digitação.

Fiquem com deus.

Irmão.

Só corrigindo .
Preciso ao pesquisar
Que apareça o ultimo
Mês e o valor do mesmo.
E fique gravada a data
Do dia dizimado
Apenas na planilha.

Paz e bem.

Irmãos,

Como minha duvida, inicial era de colocar a data automática no sistema e foi resolvida por vocês.
as outras dúvidas que tive, fiz um pouco de confusão.
depois de batalhar, consegui adequar uma pesquisa avançada em minha planilha e acho que ficou bom.
depois que clico em pesquisa, consulto mes e valor.
depois vem todos os lançamentos da pessoa.
Por favor opinem. e digam-me se deveria mesmo colocar nesse tópico.

Paz e Bem.

Irmãos,

Eu utilizo os botões limpar,sair e pesquisar
Para limpar os dados da tela.
Eu utilizei o código do filtro avançado
Na tela da aba menu.

Paz e Bem.