Use "After" in "Replace" vba code

[VBABEGINER]

Can any one help me in this,
how do I make this statement in correct manner..

myCell.Replace "/", "/01/", xlPart, after "* Ed. *", , , False, False

The entire code is,

If myCell Like "* Ed. *" Then 'example= ABC-19076 Ed. 01-16
myCell.Replace " Ed. ", Chr(1), xlPart, , , , False, False
myCell.Replace "/", "/01/", xlPart, after "* Ed. *", , , False, False
myCell.TextToColumns , xlDelimited, , , False, False, False, False, True, Chr(1)
End If

 

[VBABEGINER]

help appreciated please..

 

[VBABEGINER]

Ok, can any one help me in this formula,

frmlR = Right(myCell, 4)
frmlL = Left(myCell, 1) - Len(Right(myCell, 4))

in frmlL variable I do need last 4 digit..how do i minus

 

[Eric Golf]

Do you mean you don't need th elast four digits i.e

=(myCell-(frmlR*1))/10000

Hope this helps,

Eric

 

[VBABEGINER]

Can anyone, help me on this...How do I mentioned "After" in the line code..

myCell.Replace "/", "/01/", xlPart, , , , False, False

Can any one help me in this,
how do I make this statement in correct manner..


The entire code is,