Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
VALOR DAS CÉLULAS
 
Notifications
Clear all

VALOR DAS CÉLULAS

 
2024 - VBA & Macros
Post Recente por ftonon 10 anos atrás
4 Posts
2 Usuários
0 Reactions
708 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
 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
 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
 ftonon
(@ftonon)
Posts: 7
Active Member
Topic starter
 

Bom dia pessoal!!

alexandre_eng, não irei nem precisar de postar o problema pois este código que você me passou já resolveu o problema.

muito obrigado.

 
Postado : 08/08/2014 6:26 am
Forum Jump:
  Tópico Anterior
Próximo Tópico