andre, pode-se utilizar a dica do site abaixo (Function ValidaData), é só fazer adaptações :

Validar data em Visual Basic
http://www.linhadecodigo.com.br/dica/11 ... basic.aspx

[]s

Olá Mauro td bem

Eu consegui..valeu pela dica...muito obrigado

Eu gostaria de criar uma mascara de entrada para um textbox que vai receber a informações em reais..pode me ajudar?

Att

Boa tarde!!

Dentro do Editor_VBA, click na TxtBox, dentro da Userform.

Use a tecla de atalho F4 para ir a propriedade.

Em PassoworChart digite "*"

Att.

Alexandre

Obrigado pela resposta

O que eu gostaria na verdade, é que quando o usuário digitasse o valor no campo, o valor em reais fosse sendo preenchido automatico.
Semelhante como é qdo digitamos um valor no caixa eletronico sabe

Att

Veja se o que consta no anexo é o que pretende.

Pequena adaptação ao código do Perci, de Matão/SP, do VB para o VBA.

http://www.vbweb.com.br/forum_resp.asp?Codigo=219620

muito obrigado mesmo!!

era isso q eu queria rsssss

vc sao D++++++

Olá gente vou pegar carona..., estou com o seguinte problema tenho um userform que grava informações em uma planilha, em um dos campos entra a data do dia, porém, presisa ser em formato de texto,
Ex. ao invés de "10/10/2010" entra "10-10-2010" em formato de texto,pois é, eu quero saber se da pra criar uma validação de dados no textbox, eu usaria uma lista de validação que eu tenho que vai de "01-01-2012" a "31-12-2015" ou se existir um jeito mais fácil eu agradeço.

Valew!!!

Boa tarde!!

Alex, para manter o fórum organizado, seria melhor abrir seu própio tópico !!

Alex, fiquei com um pouco de duvida quanto a questão da validação, se temos os campos Datas como Texto ficará um pouco mais dificil verificar se é uma Data Valida, pois teriamos de converter de Texto para Data.

De qualquer forma, quanto a mascara no TextBox você pode utilizar os eventos para formatar conforme quer :

Supondo que seu TextBox está com o nome txtData :
Formata conforme se digita para : dd-mm-aaaa

Private Sub txtData_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'Limita a Qde de caracteres
    txtData.MaxLength = 10
           
    'para permitir que apenas números sejam digitados
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0
    End If
End Sub

Private Sub txtData_Change()
    'Formata : dd/mm/aaaa
    If Len(txtData) = 2 Or Len(txtData) = 5 Then
        txtData.Text = txtData.Text & "-"
        SendKeys "{End}", True
    End If
End Sub

[]s

Boa tarde!!

Alex, para manter o fórum organizado, seria melhor abrir seu própio tópico !!

Alexandre, concordo com a questão de se abrir novo Tópico, mas no meu entender, quanto se trata de um mesmo assunto, o que é o caso deste tópico "textbox com data em formulário", não teria problema em continuar no mesmo, assim quando pesquisarem pelo assunto, teriamos um resultado mais eficaz e seletivo, concorda.

Lembrando, nada contra a sua obs, só achei que poderiámos continuar no mesmo.

[]s

Mauro, eu estou no trabalho agora, quando chegar em casa terei material pra te explicar melhor...
E pro outro amigo, Alexandre: Xará, eu raciocinei da mesma maneira que o Mauro em relação a abertura de tópicos, mas de qualquer forma todas as opiniões são bem vindas, abç.

Então Mauro, Tô mandando uma plan pra explicar melhor o que eu preciso, nessa plan eu tenho um botão chamado "Criar PDF" que cria uma pasta e salva minha plan em PDF com o mês e a data da meta, Ex "Fevereiro 25-05-2012 a 30-05-2012.pdf" por isso eu não posso ter o campo data no formato de data e sim no formato de texto, uma vez que o sistema não aceita nenhum símbolo no nome do arquivo, nesse caso eu consegui facilmente criando uma lista de validação que contém as datas de "01-01-2012 até 31-12-2015" já que eu vou incerir direto na planilha. O problema é que eu tenho outras planilhas que eu uso como relatórios e que também preciso salvar como PDF só que nessas eu vou inserir os dados com UserForms, por isso quero criar uma forma de, no momento que eu inserir a data em um formato diferente desse critério e formato ,de "01-01-2012 até 31-12-2015", o sistema já mande a
MsgBox "Por Favor, Preencha todos os campos que contêm data com o seguinte formato "dd-mm-aaaa".

Se souber uma forma melhor e fazer isso, sou todo ouvido,
Valew!
ps. Desculpe pelo tamanho da msg.

Alex, pelo que entendi você só precisa ajustar esta parte :

vou inserir os dados com UserForms, por isso quero criar uma forma de, no momento que eu inserir a data em um formato diferente desse critério e formato ,de "01-01-2012 até 31-12-2015", o sistema já mande a MsgBox "Por Favor, Preencha todos os campos que contêm data com o seguinte formato "dd-mm-aaaa".

Não tive como testar seu sistema por completo, pelo fato do Criar Pdf, mas adaptei um exemplo baseado na fonte abaixo, onde só é permitido Digitar Numeros no TextBox e automaticamente formata para "dd-mm-aaaa", e se digitar qualquer outro tipo de caracter, receberá a mensagem que não não é valido.
Mas veja que neste exemplo não fiz validação se é uma Data Valida , ou seja, pode-se digitar "55-55-5555".

Veja se é isto, e se for precisar que realmente verifique se é data valida, teremos de adptar a rotina que foi passada anteriormente :
Validar data em Visual Basic
http://www.linhadecodigo.com.br/dica/11 ... basic.aspx

TextBox SoNumeros
Fonte :
VbNet : TextBox - permitindo a entrada somente de números ou de letras
http://www.macoratti.net/d160703.htm
Adaptação Mauro Coutinho

[]s