Página 1 de 1
Fixar Numero como Texto
Enviado: 09 Nov 2015 às 20:07
por ramonmattos
Boa noite,
Desejo extrair da célula E10, a string “2.5” onde o valor real da célula, é: “2.5-OBRAS (3)”
Estou utilizando a seguinte função:
Range("B10").Value = Left(Range("E10"), Left(Right(Range("E10"), 2), 1))
Porem, na célula B10 não aparece o valor 2.5 e sim 2,5.
Já tentei replace / str / o diabo a 4 e não consigo isto...teriam como me ajudar...
Desde já agradeço
Re: Fixar Numero como Texto
Enviado: 09 Nov 2015 às 20:37
por alexandrevba
Boa noite!!!
Meu sistema operacional em casa é no idioma inglês e meu Office também.
Tente aplicar no VBA...=LEFT(E10,3)
Meu resultado foi 2.5
Att
Fixar Numero como Texto
Enviado: 09 Nov 2015 às 21:38
por EdivanCabral
Olá tudo bem espero que sim...
Tente antes de atribuir o valor usar a formatação para texto assim:
Range("E10").NumberFormat = "@"
Range("E10").Value = Left(Range("B10").Value, 3)
Espero que tenha ajudado, se puder visite meu blog
programacaopassoapasso.wordpress.com
Fixar Numero como Texto
Enviado: 24 Nov 2015 às 13:32
por LucasJose
Olá Colega!
Se a sua intenção é extrair os primeiros caracteres que sejam números a virgula e os outros números, ai vai o cod
Dim caract As Interger
Dim texto As String
Dim passouvirgula As Boolean
For caract = Len(Range("E10").value)
If IsNumeric(Mid(Range("E10").value,cont,cont)) then
texto = texto & Mid(Range("E10").value,cont,cont)
If Mid(Range("E10").value,cont,cont) = "," then passouvirgula = true
ElseIf passouvirgula = true then
Exit sub
End if
Next
é só colocar dentro de um procedimento blz, espero ter ajudado, qualquer duvida estou a disposição!
Re: Fixar Numero como Texto
Enviado: 24 Nov 2015 às 13:45
por Reinaldo
Teste
Código: Selecionar todosDim tp() As String
tp = Split(Range("E10"), "-")
Range("B10").NumberFormat = "@"
Range("B10").Value = tp(0)
'ou
Range("B10").NumberFormat = "@"
Range("B10").Value = Left(Range("E10"), 3)