Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como passar uma cél...
 
Notifications
Clear all

Como passar uma célula para a função?

 
2024 - VBA & Macros
Post Recente por Wilker12 7 anos atrás
6 Posts
3 Usuários
0 Reactions
1,920 Visualizações
RSS
 Wilker12
(@wilker12)
Posts: 36
Eminent Member
Topic starter
 

Olá,
Preciso criar uma função para ser usada na planilha e ela precisa passar a célula, porém só está passando o valor da célula. Tipo:
Na tabela:
A1 tem valor =MAIÚSCULA("teste1")
B1 tem valor =MinhaFuncao(A1)

No módulo:

Function MinhaFuncao(celula)
    MsgBox celula.FormulaLocal
End Function

A função deveria receber a fórmula "=MinhaFuncao(A1)", mas dá erro. Quando altero ela só recebe o valor "TESTE1".
Como fazer a função passar a célula como um objeto em vez de passar só valor?

Grato! ;)

 
Postado : 16/07/2018 2:31 pm
 skulden
(@skulden)
Posts: 170
Estimable Member
 

Function MinhaFuncao(celula as Range)
    MsgBox celula.FormulaLocal
End Function

Se a resposta lhe foi útil, clique no joinha!

 
Postado : 16/07/2018 2:39 pm
 Wilker12
(@wilker12)
Posts: 36
Eminent Member
Topic starter
 

Não funcionou...

 
Postado : 16/07/2018 2:45 pm
 skulden
(@skulden)
Posts: 170
Estimable Member
 

Como não?

Veja o print anexo.

Manda a planilha que você está trabalhando, o erro então é outro.

Se a resposta lhe foi útil, clique no joinha!

 
Postado : 16/07/2018 2:55 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Option Explicit

Function MinhaFuncao(ByVal celula As String)
    MsgBox Range(celula).FormulaLocal
End Function

Sub teste()

MinhaFuncao ("A1")
End Sub
 
Postado : 16/07/2018 3:04 pm
 Wilker12
(@wilker12)
Posts: 36
Eminent Member
Topic starter
 

skulden, funcionou sim!
É que eu tinha incluído outros argumentos na função e esqueci de informar na planilha.
Valeu, campeão!

 
Postado : 16/07/2018 3:05 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico