Range("I" & Range("Restraints").Row).End(xlToLeft).Select
Sheets("RESTRAINTS").Range("B5").Value = ActiveCell.Value

I need say in the first line above to read the numeric and stop when it gets
to first text. There are numbers on the other side of the text I do not want
to carry over. Thanks!

Hi,

Show us a sample of the data before and what you want it to look like
afterwards.


--
If this helps, please click the Yes button

Cheers,
Shane Devenshire


"Paula" wrote:

Range("I" & Range("Restraints").Row).End(xlToLeft).Select
Sheets("RESTRAINTS").Range("B5").Value = ActiveCell.Value

I need say in the first line above to read the numeric and stop when it gets
to first text. There are numbers on the other side of the text I do not want
to carry over. Thanks!

3.1: 9 or Medications 6 5.7 10.8 14

I want it to read numbers from right to left, then stop when it gets to
text. The second line tells it where to put the info and it is all working,
except iif there are no numbers, just the "3.1: 9 or Medications" it brings
that over. I only want the first number it comes to from the right to left
to come over. When it gets to text, which is a Quality Measure number with
definition I want it to stop. Every line starts as above with the measeure,
text, then the numbers.


"Shane Devenshire" wrote:

Hi,

Show us a sample of the data before and what you want it to look like
afterwards.


--
If this helps, please click the Yes button

Cheers,
Shane Devenshire


"Paula" wrote:

Range("I" & Range("Restraints").Row).End(xlToLeft).Select
Sheets("RESTRAINTS").Range("B5").Value = ActiveCell.Value

I need say in the first line above to read the numeric and stop when it gets
to first text. There are numbers on the other side of the text I do not want
to carry over. Thanks!