software

I am using a macro to validate a form. I would like cell A1 to equate to the
last four charecters of cell a4. For e.g if cell a1 is 552004k00 cell a4
should have the value 4k00. I would be grateful if you could provide this to
me in VBA code.

Thanks

--
Message posted via www.officekb.com

range(quot;A1quot;).value = right(Range(quot;A1quot;).Value,4)

HTH
--
AP

quot;mohd21uk via OfficeKB.comquot; lt;u20517@uwegt; a écrit dans le message de news:
5fc10ccb33c8b@uwe...
gt;I am using a macro to validate a form. I would like cell A1 to equate to
gt;the
gt; last four charecters of cell a4. For e.g if cell a1 is 552004k00 cell a4
gt; should have the value 4k00. I would be grateful if you could provide this
gt; to
gt; me in VBA code.
gt;
gt; Thanks
gt;
gt; --
gt; Message posted via www.officekb.com
Try:

Range(quot;A4quot;).Value = Right(Range(quot;A1quot;).Value, 4)
--
Gary's Studentquot;mohd21uk via OfficeKB.comquot; wrote:

gt; I am using a macro to validate a form. I would like cell A1 to equate to the
gt; last four charecters of cell a4. For e.g if cell a1 is 552004k00 cell a4
gt; should have the value 4k00. I would be grateful if you could provide this to
gt; me in VBA code.
gt;
gt; Thanks
gt;
gt; --
gt; Message posted via www.officekb.com
gt;