Morning all.

I have a data set that I want to extract the right side from.
Here's an example of the data.

02-243-02 - 0.14
02-243-03 - 0.16
.........
......
.......
where the periods are the continuation of the 7 digits, and the numeric
values to the right. The data set is approx.
100 items, and I'd like to place the numeric values in the cell to the right
of the 7 digit numbers on the left.

I've tried the following, and get a type mismatch error.

Sub ExtractRight()
v = ActiveCell.value
s = Right(v, 4)
For i = LBound(s) To UBound(s)
ActiveCell.Offset(i + 1, 1).value = s(i)
Next
End Sub

I'm figuring that I get the error because right() and my limits don't work
with each other.

How can I accomplish my goal?
Thank you.
Best,
SteveB.

Sub steve()
Dim v As String, val As Double
v = ActiveCell.Value
val = Right(v, 4)
ActiveCell.Offset(0, 1).Value = val
End Sub
--
Gary''s Student - gsnu200812


"SteveDB1" wrote:

Morning all.

I have a data set that I want to extract the right side from.
Here's an example of the data.

02-243-02 - 0.14
02-243-03 - 0.16
........
.....
......
where the periods are the continuation of the 7 digits, and the numeric
values to the right. The data set is approx.
100 items, and I'd like to place the numeric values in the cell to the right
of the 7 digit numbers on the left.

I've tried the following, and get a type mismatch error.

Sub ExtractRight()
v = ActiveCell.value
s = Right(v, 4)
For i = LBound(s) To UBound(s)
ActiveCell.Offset(i + 1, 1).value = s(i)
Next
End Sub

I'm figuring that I get the error because right() and my limits don't work
with each other.

How can I accomplish my goal?
Thank you.
Best,
SteveB.

Gary's Student,
Thank you for the response.
It does work, now what will it take to repeat it to the end of my data?

I have approximately 100 data points that I need to repeat this to the end of.

I tried placing a

for i = 1 to range(activecell.column).end(xldown)

and it returns an error- method of range object- global failed.

Thank you for your help.


"Gary''s Student" wrote:

Sub steve()
Dim v As String, val As Double
v = ActiveCell.Value
val = Right(v, 4)
ActiveCell.Offset(0, 1).Value = val
End Sub
--
Gary''s Student - gsnu200812


"SteveDB1" wrote:

Morning all.

I have a data set that I want to extract the right side from.
Here's an example of the data.

02-243-02 - 0.14
02-243-03 - 0.16
........
.....
......
where the periods are the continuation of the 7 digits, and the numeric
values to the right. The data set is approx.
100 items, and I'd like to place the numeric values in the cell to the right
of the 7 digit numbers on the left.

I've tried the following, and get a type mismatch error.

Sub ExtractRight()
v = ActiveCell.value
s = Right(v, 4)
For i = LBound(s) To UBound(s)
ActiveCell.Offset(i + 1, 1).value = s(i)
Next
End Sub

I'm figuring that I get the error because right() and my limits don't work
with each other.

How can I accomplish my goal?
Thank you.
Best,
SteveB.

Select the top cell to be processed and:

Sub steve()
Dim v As String, val As Double
While ActiveCell.Value < ""
v = ActiveCell.Value
val = Right(v, 4)
ActiveCell.Offset(0, 1).Value = val
ActiveCell.Offset(1, 0).Select
Wend
End Sub
--
Gary''s Student - gsnu200812


"SteveDB1" wrote:

Gary's Student,
Thank you for the response.
It does work, now what will it take to repeat it to the end of my data?

I have approximately 100 data points that I need to repeat this to the end of.

I tried placing a

for i = 1 to range(activecell.column).end(xldown)

and it returns an error- method of range object- global failed.

Thank you for your help.


"Gary''s Student" wrote:

Sub steve()
Dim v As String, val As Double
v = ActiveCell.Value
val = Right(v, 4)
ActiveCell.Offset(0, 1).Value = val
End Sub
--
Gary''s Student - gsnu200812


"SteveDB1" wrote:

Morning all.

I have a data set that I want to extract the right side from.
Here's an example of the data.

02-243-02 - 0.14
02-243-03 - 0.16
........
.....
......
where the periods are the continuation of the 7 digits, and the numeric
values to the right. The data set is approx.
100 items, and I'd like to place the numeric values in the cell to the right
of the 7 digit numbers on the left.

I've tried the following, and get a type mismatch error.

Sub ExtractRight()
v = ActiveCell.value
s = Right(v, 4)
For i = LBound(s) To UBound(s)
ActiveCell.Offset(i + 1, 1).value = s(i)
Next
End Sub

I'm figuring that I get the error because right() and my limits don't work
with each other.

How can I accomplish my goal?
Thank you.
Best,
SteveB.

bingo.....
Another satisfied customer-- thank you.


"Gary''s Student" wrote:

Select the top cell to be processed and:

Sub steve()
Dim v As String, val As Double
While ActiveCell.Value < ""
v = ActiveCell.Value
val = Right(v, 4)
ActiveCell.Offset(0, 1).Value = val
ActiveCell.Offset(1, 0).Select
Wend
End Sub
--
Gary''s Student - gsnu200812


"SteveDB1" wrote:

Gary's Student,
Thank you for the response.
It does work, now what will it take to repeat it to the end of my data?

I have approximately 100 data points that I need to repeat this to the end of.

I tried placing a

for i = 1 to range(activecell.column).end(xldown)

and it returns an error- method of range object- global failed.

Thank you for your help.


"Gary''s Student" wrote:

Sub steve()
Dim v As String, val As Double
v = ActiveCell.Value
val = Right(v, 4)
ActiveCell.Offset(0, 1).Value = val
End Sub
--
Gary''s Student - gsnu200812


"SteveDB1" wrote:

Morning all.

I have a data set that I want to extract the right side from.
Here's an example of the data.

02-243-02 - 0.14
02-243-03 - 0.16
........
.....
......
where the periods are the continuation of the 7 digits, and the numeric
values to the right. The data set is approx.
100 items, and I'd like to place the numeric values in the cell to the right
of the 7 digit numbers on the left.

I've tried the following, and get a type mismatch error.

Sub ExtractRight()
v = ActiveCell.value
s = Right(v, 4)
For i = LBound(s) To UBound(s)
ActiveCell.Offset(i + 1, 1).value = s(i)
Next
End Sub

I'm figuring that I get the error because right() and my limits don't work
with each other.

How can I accomplish my goal?
Thank you.
Best,
SteveB.