Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Bom dia pessoal
Estou utilizando uma macro para gerar colunas em uma tabela dinâmica, porém preciso fixar um limite para os valores.
Esta macro gera valores de parcelamento de débitos e preciso que o processo seja encerrado quando o valor da parcela chegar, por exemplo, a R$60,00.
Como faço para passar um valor como parâmetro na macro?
Luiz Cláudio
Lembro do seu outro post, fazendo essa macro para gerar as colunas, vc utilizava um for certo? Você não consegue colocar dentro de um for também utilizando como condicional a variável com o valor da parcela ?
Rodrigo
A minha dificuldade está em identificar qual o valor do cálculo na macro abaixo.
Sub Gera_expressao
Dim Parcelas
Parcelas = 2
set Graph = ActiveDocument.GetSheetObject("CH76")
set v = ActiveDocument.Variables("Qt_Parcelas")
While Parcelas <=12
ExpNo = Graph.AddExpression("Column(4)/"&Parcelas)
set cp = Graph.GetProperties
set ExpVis = cp.Expressions.Item(ExpNo).Item(0).Data.ExpressionVisual
ExpVis.Label.v = Parcelas
ExpVis.NumAdjust = 2 'center
ExpVis.LabelAdjust = 1 'center
set np = cp.Expressions.Item(ExpNo).Item(0).Data.ExpressionVisual.NumberPresentation
np.Dec = ","
np.Fmt = "#.##0,00"
np.nDec = 2
np.Thou = "."
np.Type = 11 'fixed decimal
np.UseThou = 1
Graph.SetProperties cp
Parcelas = Parcelas + 1
v.SetContent Cstr(Parcelas),true
wend
End Sub
Luiz Cláudio
Pelo que eu entendi, você precisa trazer o valor da "Column(4)" para dentro da macro para dividir pelo numero de parcelas e chegar ate o 60, certo ?
Voce pode buscar esse valor assim:
v_valortotal = Graph.GetCell(0,0)
passando os parâmetros da matriz dai no (0,0)
Já conseguiu a resposta? Se sim, escolha uma e marque como "Correta" para fechar o tópico e nos ajudar a manter a comunidade organizada
Have fun, be Qlik