FUNCAO PIS/PASEP COM MASCARA

MARCELO.TREZE 07/10/2010 12:38:03
#354613
tem como vc enviar o seu projeto para analizarmos?
PABLOMOREIRAGV 07/10/2010 12:40:50
#354614
Segue arquivo em anexo. Observe que quando não se tem pontos nem dígitos no número funciona muito bem, mas quando se faz a separação não dá certo.
MARCELO.TREZE 07/10/2010 13:09:46
#354617
Não sei o que aconetece mas eu digitei e não me retornou nenhum erro, e nem posso ver a função pq está protegida por senha
PABLOMOREIRAGV 07/10/2010 13:20:55
#354618
MARCELO-TREZE,

Depois que digitar o número, tire os pontos e dígitos que ele te retornará. Segue arquivo em anexo desprotegido.
MARCELO.TREZE 07/10/2010 14:54:20
#354627
aqui comigo funcionou assim


Private Sub TextBox21_LostFocus()
Dim ponto As String
If TextBox21.Text = [Ô][Ô] Then
Range([Ô]Y40[Ô]) = [Ô][Ô]
TextBox21.Text = [Ô][Ô]
Else
ponto = Replace(Replace(TextBox21.Text, [Ô].[Ô], [Ô][Ô]), [Ô]-[Ô], [Ô][Ô])
Range([Ô]Y40[Ô]) = PISPASEP(ponto)
End If
End Sub
PABLOMOREIRAGV 07/10/2010 16:01:09
#354649
MARCELO-TREZE,

Aqui também deu certo desse jeito. Muito obrigado pela atenção cara. Estou fechando o tópico e pontuando você.

Um abraço.
Página 2 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar