Converter para Numero

2024 - VBA & Macros

Post Recente por romanholi 9 anos atrás

3 Posts

2 Usuários

0 Reactions

792 Visualizações

RSS

romanholi

(@romanholi)

Posts: 177

Estimable Member

Topic starter

Amigos

Preciso de ajuda simples

Sheets("Base_Realizado").Cells(UltLinSim, 1).Copy Destination:=Sheets("Reciclagem").Cells(UltLinRc + 1, 6)

Essa minha linha de comando copia o resultado de uma base para outra no Excel... o problema é que ele está copiando para mim os valores como texto e preciso transformar em valor. Não sei como fazer isso na linha!

Tentei utilizar CDBL()

CDBL(Sheets("Base_Realizado").Cells(UltLinSim, 1).Copy) Destination:=Sheets("Reciclagem").Cells(UltLinRc + 1, 6)

Mas acho que não tem nada a ver... enfim... preciso que converta para valor!

Aguardo Ajuda

Postado : 30/06/2016 11:25 am

Basole

(@basole)

Posts: 487

Reputable Member

Romanholi
O valor é inteiro ou decimal?

...Acrescente esta linha a sua macro

Sheets("Reciclagem").Cells(UltLinRc + 1, 6) = CDbl(Sheets("Reciclagem").Cells(UltLinRc + 1, 6))

Click em se a resposta foi util!

Postado : 30/06/2016 11:55 am

romanholi

(@romanholi)

Posts: 177

Estimable Member

Topic starter

Perfeito!
Muito Obrigado Basoli

Postado : 01/07/2016 5:12 am