índice+indireto+corresp no VBA
Enviado: 05 Mai 2016 às 14:39
Olá,
Possuo uma pasta de trabalho com planilhas de dados que levam o nome do ano. Ex.: 2010 (base de dados referente a 2010). Gostaria de utilizar as funções "índice+indireto+corresp" combinadas em uma nova função. Ex.: =buscavalores(ano;cod), onde ano é o nome da planilha e cod o valor do registro em casa planilha. Como pode ser visto na minha tentativa, o primeiro indireto é referente a planilha o segundo a coluna e o terceiro a linha. Alguém saberia me dizer qual o problema com esta função? Desde já agradeço, Cristian.
Function buscavalor(ano, Cod)
With Application.WorksheetFunction
buscavalor = .Index(.indirect("'" & .Text(ano, "yyyy") & "'!$a$2:$xfd$1048576"), .Match(Cod, .indirect("'" & .Text(ano, "yyyy") & "'!$a$2:$A$1048576")), .Match(Cod, .indirect("'" & .Text(ano, "yyyy") & "'!$a$1:$XFD$1")))
End With
End Function
Possuo uma pasta de trabalho com planilhas de dados que levam o nome do ano. Ex.: 2010 (base de dados referente a 2010). Gostaria de utilizar as funções "índice+indireto+corresp" combinadas em uma nova função. Ex.: =buscavalores(ano;cod), onde ano é o nome da planilha e cod o valor do registro em casa planilha. Como pode ser visto na minha tentativa, o primeiro indireto é referente a planilha o segundo a coluna e o terceiro a linha. Alguém saberia me dizer qual o problema com esta função? Desde já agradeço, Cristian.
Function buscavalor(ano, Cod)
With Application.WorksheetFunction
buscavalor = .Index(.indirect("'" & .Text(ano, "yyyy") & "'!$a$2:$xfd$1048576"), .Match(Cod, .indirect("'" & .Text(ano, "yyyy") & "'!$a$2:$A$1048576")), .Match(Cod, .indirect("'" & .Text(ano, "yyyy") & "'!$a$1:$XFD$1")))
End With
End Function
