Notifications
Clear all

CONFERIR DADOS

3 Posts
3 Usuários
0 Reactions
923 Visualizações
(@renanfelix)
Posts: 2
New Member
Topic starter
 

Bom Dia, Amigos.

Preciso de uma Function em VBA que compare o valor de uma célula e verifique se está correto, ou seja seguindo o padrão. Em anexo tem uma planilha explicando tudo e com exemplo, no caso pegar a forma de nomear: 12345678910_PF_04072018_MENOR30 e depois verificar se ela segue o padrão no caso de PF (11 Digitos_PF_DDMMAAAA_INFORMAÇÃO) depois mostrar se está errado ou correto.

 
Postado : 04/07/2018 5:53 am
(@klarc28)
Posts: 971
Prominent Member
 

Anexo

 
Postado : 04/07/2018 6:47 am
EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Bem vindo, RenanFelix

Preciso de uma Function em VBA que compare o valor de uma célula e verifique se está correto, ou seja seguindo o padrão....depois mostrar se está errado ou correto.

Se for só para checagem certo/não certo (VERDADEIRO/FALSO), segue minha contribuição:

Function CódigoÉVálido(cód As String) As Boolean
  With CreateObject("VBScript.RegExp")
   .Pattern = "^((d{11}_PF)|(d{14}_PJ))_(d{2})(d{2})(d{4})_(NA|MENOR30|(IGUAL|MAIOR)[36]0)$"
   If .Test(cód) Then
    With .Execute(cód)(0).SubMatches
      CódigoÉVálido = IsDate(.Item(3) & "/" & .Item(4) & "/" & .Item(5))
    End With
   End If
  End With
End Function

 
Postado : 04/07/2018 9:23 am