Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda com user Func...
 
Notifications
Clear all

Ajuda com user Function

 
2024 - VBA & Macros
Post Recente por Wagner Morel 9 anos atrás
5 Posts
2 Usuários
0 Reactions
648 Visualizações
RSS
 georgewar
(@georgewar)
Posts: 3
New Member
Topic starter
 

Pessoal, primeiro post nesse forum. Estou precisando de uma ajuda. Sou novo no VBA.

Essas declarações abaixo funcionam dentro do VBE

Function RetornaValorCelula(linha As Long, coluna As Long) As Variant
    Dim Letra As String
    Letra = ColunaLetra(coluna)
    RetornaValorCelula = Range(Letra & linha).Value
End Function

Function ColunaLetra(lngCol As Long) As String
    Dim vArr
    vArr = Split(Cells(1, lngCol).Address(True, False), "$")
    ColunaLetra = vArr(0)
End Function

Sub Aaa()
    MsgBox RetornaValorCelula(5, 4)
End Sub

Porém quando vou usar a Função =RetornaValorCelula(5, 4) na planilha do excel ocorre erro #VALOR

Alguém poderia ajudar?

 
Postado : 02/02/2016 10:09 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

georgewar,

Boa tarde!

No Excel, você precisa utilizar ";" para separar os parâmetros no lugar da "," utilizada no VBA. Use assim:

=RetornaValorCelula(5;4)

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 02/02/2016 10:19 am
 georgewar
(@georgewar)
Posts: 3
New Member
Topic starter
 

Nem isso funciona no excel, mas sim no VBE

Function RetornaValorCelula(Lin As Long, Col As Long) As Variant
    RetornaValorCelula = Cells(Lin, Col)
End Function

Sub aa()
    MsgBox RetornaValorCelula(3, 3)
End Sub
 
Postado : 02/02/2016 10:22 am
 georgewar
(@georgewar)
Posts: 3
New Member
Topic starter
 

georgewar,

Boa tarde!

No Excel, você precisa utilizar ";" para separar os parâmetros no lugar da "," utilizada no VBA. Use assim:

=RetornaValorCelula(5;4)

Wagner, obrigado!!

Santa burrice.. hehehe

 
Postado : 02/02/2016 10:23 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

De nada.

Peço, por gentileza, votar positivamente clicando na mãozinha existente ao lado da ferramenta CITAR.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 02/02/2016 12:08 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico