7 txtbox de datas

[mmcosta]

Boa Noite para todos

Venho por este meio solicitar apoio numa base em excell onde tenho um form que irá beber informação nessa tabela.

Até aqui tudo ok, mas acontece que tenho 7 textbox para apresentar as datas , e somente uma apresenta correctamente a data "dd/mm/yyyy" , as restantes mostram só numeros.

Estou a usar o CDate para as datas.

agradeço toda a ajuda possivel

obrigado

[JakeBass]

A textbox mostra o que o utilizador escrever nela.

Se quiseres validar podes usar algo deste género:

 

Private Sub TextBox1_Change()

    If TextBox1.Value = "" Then Exit Sub

    If IsDate(TextBox1.Value) Then
        TextBox1.BackColor = RGB(200, 255, 200) 'valid
    Else
        TextBox1.BackColor = RGB(255, 200, 200) 'invalid
    End If

End Sub

 

[mmcosta]

Em 15/03/2026 às 08:26, JakeBass disse:

A textbox mostra o que o utilizador escrever nela.

Se quiseres validar podes usar algo deste género:

 

Private Sub TextBox1_Change()

    If TextBox1.Value = "" Then Exit Sub

    If IsDate(TextBox1.Value) Then
        TextBox1.BackColor = RGB(200, 255, 200) 'valid
    Else
        TextBox1.BackColor = RGB(255, 200, 200) 'invalid
    End If

End Sub

 

Bom dia 

Obrigado pela ajuda , mas continua o erro .

vou aproveitar a tua dica, fica mais personalizado

não estou a conseguir inserir o printscreen do que preciso de ajuda.

estou a usar este codigo:

 

Private Sub txtDataDespacho_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Me.txtDataDespacho.MaxLength = 10
    
    If Len(Me.txtDataDespacho) = 2 Then
        Me.txtDataDespacho.Text = Me.txtDataDespacho.Text & "/"
        Me.txtDataDespacho.SelStart = Len(Me.txtDataDespacho)
    End If
    
    If Len(Me.txtDataDespacho) = 5 Then
        Me.txtDataDespacho.Text = Me.txtDataDespacho.Text & "/"
        Me.txtDataDespacho.SelStart = Len(Me.txtDataDespacho)
    End If
    

End Sub

 

ps: não estou a conseguir inserir img no url , se puderes ajudar , seria mais facil perceber o meu erro, ao ver a imagem 

 

Aguardo

Edited March 15, 2026 at 09:34 AM by mmcosta

[JakeBass]

Portanto a ideia é inserir automaticamente a barra no 3° caratér e no 6° caratér.

O evento keypress acontece antes de o caratér ser inserido. O que me acontece é que fico com duas barras. Mais vale usar o change e condensar as duas condições com um "or".

 

Private Sub txtDataDespacho_Change()

    If Len(txtDataDespacho.Text) = 2 Or Len(txtDataDespacho.Text) = 5 Then
        txtDataDespacho.Text = txtDataDespacho.Text & "/"
        txtDataDespacho.SelStart = Len(txtDataDespacho.Text)
    End If

End Sub

Ao escrever um post tem um botão no canto inferior direito que diz "Inserir imagem de URL". Fazes upload da imagem para um serviço como o imgur.com e colocas lá o link.

Edited March 15, 2026 at 01:35 PM by JakeBass
Correção.

[mmcosta]

Vivas

continuo a não conseguir inserir img no url

como explicas é como faço.

coloco no imgur 

copiei o url

e colei no endereço da janela que abre quando clico no botao inserir imagem de url, e fica rosa e não sai dai.

Aguardo orientações

obrigado

[JakeBass]

Tens que clicar com o botão direito por cima da imagem e depois "Copiar endereço da imagem".

[mmcosta]

Boa noite

obrigado pela paciencia, mas já dei com o erro.

estava a colocar o codigo no local errado.

obrigado