Hi is it possible to copy only the numeric value from one colum to another colum in the same table?

Example:

Sub ABILIFY10()
    Selection.Font.Bold = True
    Selection.TypeText Text:="(ABILIFY 10 MG - CXS. 28 COMP.)"
    Selection.TypeParagraph
    Selection.TypeText Text:="Preço/comp.: "
    Selection.Font.Bold = False
    Selection.TypeText Text:=" CINCO VIRGULA ZERO TRÊS UM SETE OITO SEIS EUROS + IVA…………………………………."
    Selection.Font.Size = 6
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.Font.Size = 12
    Selection.Font.Bold = False
    Selection.TypeText Text:="N.º Reg. INFARMED: 5056387"
    Selection.TypeParagraph
End Sub

I want to copy Selection.TypeText Text:="N.º Reg. INFARMED: 5056387"
only the numeric value of this cell (5056387) to another cell in the same table.

Hi,

If there is always ": " after 'INFARMED' you could use the following simple method to extract the number from the string:

Sub strTest()

myStr = "N.º Reg. INFARMED: 5038756"
getStr = Mid(myStr, InStr(myStr, ": ") + 2)

Debug.Print getStr


End Sub

HTH!
Cheers
Joe

'sync' <cr>
The name specified is not recognized as an internal or external command, operable program or batch file.

If the text like '"N.º Reg. INFARMED: 5056387"'
does not contain any other number other than what you expect (5056387)
you can use regular expressions to pull out the number alone.

Cheers:)
Shasur

http://www.vbadud.blogspot.com