Página 1 de 1

[RESOLVIDO] Variável WorksheetFunction

Enviado: 05 Set 2021 às 19:15
por BritoMarques
Meus cumprimentos a todos!
Pessoal queria criar a variável "xWf" para ser usado em todo o projeto substituindo a função WorksheetFunction
Tentei colocar no WorkBook.Open a seguinte instrução: Set xWf = Application.WorksheetFunction e não deu certo.
Alguma dica?

Estou tendo de colocar a instrução em todos os módulos atualmente

Re: Variável WorksheetFunction

Enviado: 05 Set 2021 às 20:19
por osvaldomp
Olá, @BritoMarques .

Veja se ajuda.

Em um módulo comum:
Código: Selecionar todos
Public xwf As Object 'esta linha deve ficar na posição de primeira linha no módulo

Sub Testexwf()
 Debug.Print xwf.Sum([A1:A10])
End Sub
#
No módulo de EstaPasta:
Código: Selecionar todos
Private Sub Workbook_Open()
 Set xwf = Application.WorksheetFunction
End Sub

Re: Variável WorksheetFunction

Enviado: 05 Set 2021 às 21:44
por BritoMarques
Funcionou bem Osvaldo....
Obg pela enésima vez...
Meu erro era na forma de declarar