VALOR DAS CÉLULAS

2024 - VBA & Macros

Post Recente por ftonon 10 anos atrás

4 Posts

2 Usuários

0 Reactions

716 Visualizações

RSS

ftonon

(@ftonon)

Posts: 7

Active Member

Topic starter

Olá pessoal, estou aqui mais uma vez porque estou com um problema que acredito que seja simples de se resolver mais eu não estou conseguindo de nenhuma formar.
O problema é o seguinte:
tenho uma fórmula no vba que lança os valores da minha listbox na planilha desta forma;

For A = 0 To LBRESULTADOS.ListCount - 1
    
    Sheets("GRAFICO").Cells(LINHA, 1) = LBRESULTADOS.List(A, 0)
    Sheets("GRAFICO").Cells(LINHA, 2) = LBRESULTADOS.List(A, 1)
    Sheets("GRAFICO").Cells(LINHA, 3) = LBRESULTADOS.List(A, 2)
   
    LINHA = LINHA + 1
Next A

os valores aparecem no destino correto, mas o problema que a fórmula que está ao lado não reconhece o valor e aparece como se fosse um erro, para corrigi-lo eu tenho que dar dois clicks na célula e enter para a célula ser reconhecida
gostaria de saber se alguém poderia me ajudar neste problema.
EX:

Postado : 07/08/2014 1:53 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!!

Considerando que o calculo está como automático, pode ser formato, tente usar .value no final, ou tente via vba inserir um formato em especifico, cole os resultados como valores..etc, eu realmente poderia ajudar melhor com seu arquivo modelo, do contrário aguarde os experts lhe responder.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 07/08/2014 2:19 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

o ideal seria ter o arquivo .... mas de qualquer forma, deve ser o problema com o formato do dado. O vba escreve na célula como TEXTO.
Tente converter o valor do listbox para tipo DOUBLE, usando a função cdbl.

For A = 0 To LBRESULTADOS.ListCount - 1
   
    Sheets("GRAFICO").Cells(LINHA, 1) = cdbl(LBRESULTADOS.List(A, 0))
    Sheets("GRAFICO").Cells(LINHA, 2) = cdbl(LBRESULTADOS.List(A, 1))
    Sheets("GRAFICO").Cells(LINHA, 3) = cdbl(LBRESULTADOS.List(A, 2))
   
    LINHA = LINHA + 1
Next A

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 07/08/2014 5:26 pm