Este fórum está sendo desativado

[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

[alexandrevba]

Boa noite!!!

Meu sistema operacional em casa é no idioma inglês e meu Office também.

Código: Selecionar todos

=LEFT(E10;3)

Tente aplicar no VBA...=LEFT(E10,3)

Meu resultado foi 2.5

Att

[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

[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!

[Reinaldo]

Teste

Código: Selecionar todos

Dim 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)