Página 1 de 1

[RESOLVIDO] Transcrição de fórmula para VBA

Enviado: 18 Out 2023 às 17:52
por SandroLima
Boa tarde, Pessoal!

Como transcrevo a fórmula abaixo para VBA?

=SE(ÉNÚM(ÍNDICE(TB_Base_Dados[Num];CORRESP([@Ticker];TB_Base_Dados[Ticker];0)));"OK";"")

Fiz parcialmente e ficou dessa maneira:

.Formula = "=ISNUMBER(INDEX(TB_Base_Dados[Num],MATCH([@Ticker],TB_Base_Dados[Ticker],0)))"

E até então funciona, retornando os valores "Verdadeiro" ou "Falso".

Mas quando tento inserir a função "SE" não funciona:

.Formula = "=IF(ISNUMBER(INDEX(TB_Base_Dados[Num],MATCH([@Ticker],TB_Base_Dados[Ticker],0))));""OK"";"""""


MACRO:

With Tab_Base_Dados.ListColumns("Teste").DataBodyRange

'=SE(ÉNÚM(ÍNDICE(TB_Base_Dados[Num];CORRESP([@Ticker];TB_Base_Dados[Ticker];0)));"OK";"")

.Formula = "=IF(ISNUMBER(INDEX(TB_Base_Dados[Num],MATCH([@Ticker],TB_Base_Dados[Ticker],0))));""OK"";"""""
.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End With

Re: Transcrição de fórmula para VBA

Enviado: 18 Out 2023 às 18:29
por SandroLima
Resolvido, Pessoal!

Obrigado!