BOA NOITE A TODOS,
Estou com um probleminha q preciso de auxilio.
Tenho uma tabela com todos os nomes de clientes q esta assim:
Sobrenome, nome = sobrenome mais virgula mais nome

Exemplo:
Silva, João
Ferragutti, Carlos
Oliveira, Marco Antonio


Como eu faço para inverter, via codigo, para Nome + sobrenome e tirar a virgula?

Obrigado

This message has been edited. Last edited by: Luiz Cláudio C. V. Rocha,

Andsar,

Tente o código abaixo:

Testei e deu legar a inversão...

'Início do Código
Function NomeVirgula(Nome As String) As String

Dim Tamanho As Integer
Dim Contador As Integer
Dim Caracter As String
Dim PedacoDireito As String
Dim NomeA As String
Dim NomeB As String

NomeA = Trim(Nome)

Tamanho = Len(NomeA)

For Contador = 1 To Tamanho
PedacoDireito = Right(NomeA, Contador - 1)
Caracter = Left(PedacoDireito, 1)
If Caracter = "," Then
NomeA = Left(Nome, Tamanho - Contador + 1)
NomeB = Len(Left(Nome, Tamanho - Contador + 1)) + 2
NomeA = Right(Nome, Len(Nome) - NomeB) & " " & NomeA
End If
Next

End Function
'Fim do Código