Página 1 de 1

Como disponibilizar função da PERSONAL.XLSB para todas pastas

Enviado: 07 Fev 2022 às 12:48
por 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

Re: Como disponibilizar função da PERSONAL.XLSB para todas pastas

Enviado: 07 Fev 2022 às 13:02
por 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