Dúvida na Função
Enviado: Sex Jan 16, 2015 10:30 am
Olá Pessoal ... Bom ano a todos:
Na função abaixo o que faz o "Application.Volatile". Tenho a impressão que está deixando lento outros códigos.
Function PROCVMÚLTIPLO(NomePesquisa As String, IntervaloPesquisa As Range, IntervaloRetorno As Range) As String
Dim Valor, Nome
Dim k As Integer
Application.Volatile
k = 1
For Each Nome In IntervaloPesquisa
If Nome = NomePesquisa Then
Valor = IntervaloRetorno(k, 1)
PROCVMÚLTIPLO = PROCVMÚLTIPLO & Valor
End If
k = k + 1
Next Nome
End Function
Abs
Beto
Na função abaixo o que faz o "Application.Volatile". Tenho a impressão que está deixando lento outros códigos.
Function PROCVMÚLTIPLO(NomePesquisa As String, IntervaloPesquisa As Range, IntervaloRetorno As Range) As String
Dim Valor, Nome
Dim k As Integer
Application.Volatile
k = 1
For Each Nome In IntervaloPesquisa
If Nome = NomePesquisa Then
Valor = IntervaloRetorno(k, 1)
PROCVMÚLTIPLO = PROCVMÚLTIPLO & Valor
End If
k = k + 1
Next Nome
End Function
Abs
Beto