Este fórum está sendo desativado

[BrunoLuiel]

Galera fiz uma função simples de filtrar apenas numeros em uma determinada celula, e salvei na PERSONAL.XLSB para que fique disponivel para qualquer pasta, mas vi que ao abrir uma nova pasta de trabalho do Excel, a função não aparece, o que faço?

Código: Selecionar todos

Public Function sohnumero(texto As String) As String
Dim volta As String
Dim pedaco As String

volta = ""
For i = 1 To Len(texto)
pedaco = Mid(texto, i, 1)
If pedaco >= "0" And pedaco <= "9" Then volta = volta & pedaco
Next i
sohnumero = volta
End Function

[Basole]

Salve a sua Personal.xlsb na pasta XLINÍCIO ou XLSTART.
Abra o vbe e aperte as teclas ctrl+g para abrir a janela imediata
E digite ?Application.StartupPath para obter o caminho exato da pasta
Ex.:

C:\Users\Win 10\AppData\Roaming\Microsoft\Excel\XLINÍCIO