Use of the MID function

[oteixeira]

I have a lot of these strings in each cell:

CHEQUE DEPOSITADO NESTA I.CREDITO N. 4378319839

The are not always equal, the number of charecters can change a lot.
How do i use the MID function to allways extract to another column the
8 last figures less the two last ones.
In this case, the number be extracted should be 783198. Please note
that, as i said, the strings size can vary, but the figures allways
come in the end.

Thanks a lot

 

[Guest]

Hi Teixiera,

De acordo com o texto da sua mensagem você deve enteder Português,
copie e cole o módulo abaixo (ALT+F11).

use a função =digitsonly(a2) na coluna ao lado, você somente terá os números
lá.

use a função MID

espero ter ajudado
um abraço do Brazil
Marcelo


**********************************************
Public Function DigitsOnly(sStr As String) As Variant
Dim oRegExp As Object

Set oRegExp = CreateObject("VBScript.RegExp")

With oRegExp
.IgnoreCase = True
.Global = True
oRegExp.Pattern = "\D"

DigitsOnly = oRegExp.Replace(sStr, vbNullString)
End With
End Function
**************************************************



"oteixeira" escreveu:

 

[Guest]

=MID(A1,LEN(A1)-7,6)

See if this does the trick for you.

 

[oteixeira]

Obigado Marcelo. Está perfeito. Tentei com MID , RIGHT, etc. Mas nad
deu..