Formato Textbox Copia e cola

[CROVADOR]

Boa tarde Amigos, estou tentando formatar uma textbox conforme código abaixo mas ele não funciona, pois preciso que sempre comece com uma letra "F".
Se alguém poder ajudar-me ficaria grato...
Deus abençoe.

Private Sub TXT_SELO1_Change()

TXT_SELO1 = VBA.Replace(TXT_SELO1, ".", "")

Dim TEXTLENGTH As Integer: TEXTLENGTH = Len(TXT_SELO1.Text)
If TEXTLENGTH = 10 Then ' Se o Comprimento do texto for = 10 ele retorna para "F-00.000.000-0"
TXT_SELO1.Text = FORMAT(TXT_SELO1.Text, "F-00.000.000-0")
TXT_SELO1.SelStart = Len(TXT_SELO1)
End If


TXT_SELO1 = UCase(TXT_SELO1)
If TXT_SELO1 <> Empty Then
TXT_SELO1.BackColor = RGB(193, 217, 241)
Exit Sub
End If
TXT_SELO1.BackColor = &H80000005
End Sub

[Reinaldo]

Uma possibilidade

Código: Selecionar todos

Private Sub TXT_SELO1_Change()
Dim TEXTLENGTH As Integer

TXT_SELO1 = VBA.Replace(TXT_SELO1, ".", "")
TEXTLENGTH = Len(TXT_SELO1.Text)

If TEXTLENGTH = 10 Then
TXT_SELO1.Text = "F-" & VBA.Left(TXT_SELO1.Text, 2) & "." & Mid(TXT_SELO1.Text, 3, 3) & "." & Mid(TXT_SELO1.Text, 6, 3) & "-" & VBA.Right(TXT_SELO1.Text, 1)
End If

TXT_SELO1 = UCase(TXT_SELO1)
If TXT_SELO1 <> Empty Then
TXT_SELO1.BackColor = RGB(193, 217, 241)
Exit Sub
End If

TXT_SELO1.BackColor = &H80000005

End Sub

[CROVADOR]

Boa tarde Reinaldo, primeiramente obrigado pelo retorno.
Deu certo, mas ele não retorna com os pontos. Exemplo: F-10.831.946-0

[Reinaldo]

Não entendi, foi seguido seu "modelo" para comprimento=10 (TEXTLENGTH = 10), seu ultimo exemplo aparenta comprimento= 09
Poste um modelo, informando/mostrando como é preenchido e variações de preenchimento (se houver)

[CROVADOR]

Segue modelo que ele preenche conforme é digitado ou colado.
Abraços...

Private Sub TXT_SELO1_Change()


TXT_SELO1 = VBA.Replace(TXT_SELO1, ".", "")
Dim TEXTLENGTH As Integer: TEXTLENGTH = Len(TXT_SELO1.Text)
If TEXTLENGTH = 10 Then ' Se o Comprimento do texto for = 10 ele retorna para "F-10.831.946-0"
TXT_SELO1.Text = FORMAT(TXT_SELO1.Text, "F-00.000.000-0")
TXT_SELO1.SelStart = Len(TXT_SELO1)
End If


TXT_SELO1 = UCase(TXT_SELO1)
If TXT_SELO1 <> Empty Then
TXT_SELO1.BackColor = RGB(193, 217, 241)
Exit Sub
End If
TXT_SELO1.BackColor = &H80000005
End Sub

[CROVADOR]

Dim TEXTLENGTH As Integer

TXT_SELO1 = VBA.Replace(TXT_SELO1, ".", "")
TEXTLENGTH = Len(TXT_SELO1.Text)

If TEXTLENGTH = 10 Then
TXT_SELO1.Text = "F-" & VBA.Left(TXT_SELO1.Text, 2) & "." & Mid(TXT_SELO1.Text, 3, 3) & "." & Mid(TXT_SELO1.Text, 6, 3) & "-" & VBA.Right(TXT_SELO1.Text, 1)
End If

TXT_SELO1 = UCase(TXT_SELO1)
If TXT_SELO1 <> Empty Then
TXT_SELO1.BackColor = RGB(193, 217, 241)
Exit Sub
End If

TXT_SELO1.BackColor = &H80000005

End Sub