Excel Mascara CPF ao Colar valores

[Jessy_1985]

Pessoal,

 

Tenho um formulário em que o usuário cadastra o CPF e o CNPJ, ocorre que o código abaixo funciona se você digitar o CPF ou o CNPJ, porém, o usuário na verdade vai é colar a informação, vai colar o CPF e o CNPJ sem formatação nenhuma e quando ele faz isso, a máscara não realiza a formtação.

Queria saber se tem alguma opção de quando o usuário colar o CPF ou CNPJ ocorra a formatação no TextBox, pode ser ao sair do TextBoX ou de qualquer outra forma, mas que fique visível para o usuário a formatação ao colar os dados.

 

Máscara CPF:

Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'Limita a Qde de caracteres
    'TextBox8 = Me.TextBox7.Value
    TextBox7.MaxLength = 14
     Select Case KeyAscii
        Case 8, 48 To 57 ' BackSpace e numericos
          If Len(TextBox7) = 3 Or Len(TextBox7) = 12 Then
            TextBox7.Text = TextBox7.Text & "."
            SendKeys "{End}", False

        ElseIf Len(TextBox7) = 7 Then
            TextBox7.Text = TextBox7.Text & "."

        ElseIf Len(TextBox7) = 11 Then
            TextBox7.Text = TextBox7.Text & "-"
            SendKeys "{End}", False
          End If

        Case Else ' o resto é travado
            KeyAscii = 0
      End Select
      
End Sub

 

Máscara CNPJ:

Private Sub TextBox31_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    TextBox31.MaxLength = 18
    Select Case KeyAscii
    Case 8, 48 To 57 ' BackSpace e numericos
    If Len(TextBox31) = 2 Or Len(TextBox31) = 6 Then
    TextBox31.Text = TextBox31.Text & "."
    SendKeys "{End}", True
    End If
    If Len(TextBox31) = 10 Then
    TextBox31.Text = TextBox31.Text & "/"
    SendKeys "{End}", True
    End If
    If Len(TextBox31) = 15 Then
    TextBox31.Text = TextBox31.Text & "-"
    SendKeys "{End}", True
    End If
    Case Else ' o resto é travado
    KeyAscii = 0
    End Select
End Sub

 

 

[Midori]

@Jessy_1985 Tente usar a máscara em format no evento exit,

 

TextBox7 = Format(TextBox7, "0##"".""###"".""###-##")
...
TextBox31 = Format(TextBox31, "0#"".""###"".""###/####")