Hi;

I'm new to VBA and need to get A LOT done quickly. I need help with some
simple code for the following:

I have a sheet with a column (~1500 rows) in which each cell contians a
numeric value. I want to create a new column in which cell contains a text
string based on the numeric value in the first column; i.e.:

If A1 < 0, then B1="string1"
If A1 =0, then B1="string2"

and so on for all cells in column.

Any help, suggestions?

Thanks in advance,
-jbb

Hi

personally i wouldn't worry about using VBA for this - i would type an IF
formula
=IF(A1<0,"string1","string2")
in cell B1 and then double click the autofill handle (bottom right hand
corner of the cell) - then i would select column B and copy - edit / paste
special values

however, if you do want code

Sub addstrings()
For Each c In Range("A1:A1500") 'set range to suit
If c.Value < 0 Then
c.Offset(0, 1).Value = "string1"
Else
c.Offset(0, 1).Value = "string2"
End If
Next
End Sub

--- note, this code assumes that column B is blank and can be used for entry
of the strings. It also assumes that each cell in column A has a number
either less than zero, zero or greater than zero.

Hope this helps
Cheers
JulieD


"J.B. Bobbitt" wrote in message
k.net...
Hi;

I'm new to VBA and need to get A LOT done quickly. I need help with some
simple code for the following:

I have a sheet with a column (~1500 rows) in which each cell contians a
numeric value. I want to create a new column in which cell contains a
text string based on the numeric value in the first column; i.e.:

If A1 < 0, then B1="string1"
If A1 =0, then B1="string2"

and so on for all cells in column.

Any help, suggestions?

Thanks in advance,
-jbb

Thanks and a hat tip, Julie. I'm off and running.

-jbb

"JulieD" wrote in message
...
Hi

personally i wouldn't worry about using VBA for this - i would type an IF
formula
=IF(A1<0,"string1","string2")
in cell B1 and then double click the autofill handle (bottom right hand
corner of the cell) - then i would select column B and copy - edit / paste
special values

however, if you do want code

Sub addstrings()
For Each c In Range("A1:A1500") 'set range to suit
If c.Value < 0 Then
c.Offset(0, 1).Value = "string1"
Else
c.Offset(0, 1).Value = "string2"
End If
Next
End Sub

--- note, this code assumes that column B is blank and can be used for
entry of the strings. It also assumes that each cell in column A has a
number either less than zero, zero or greater than zero.

Hope this helps
Cheers
JulieD


"J.B. Bobbitt" wrote in message
k.net...
Hi;

I'm new to VBA and need to get A LOT done quickly. I need help with some
simple code for the following:

I have a sheet with a column (~1500 rows) in which each cell contians a
numeric value. I want to create a new column in which cell contains a
text string based on the numeric value in the first column; i.e.:

If A1 < 0, then B1="string1"
If A1 =0, then B1="string2"

and so on for all cells in column.

Any help, suggestions?

Thanks in advance,
-jbb

you're welcome ... do come back if you get stuck again.

"J.B. Bobbitt" wrote in message
nk.net...
Thanks and a hat tip, Julie. I'm off and running.

-jbb

"JulieD" wrote in message
...
Hi

personally i wouldn't worry about using VBA for this - i would type an IF
formula
=IF(A1<0,"string1","string2")
in cell B1 and then double click the autofill handle (bottom right hand
corner of the cell) - then i would select column B and copy - edit /
paste special values

however, if you do want code

Sub addstrings()
For Each c In Range("A1:A1500") 'set range to suit
If c.Value < 0 Then
c.Offset(0, 1).Value = "string1"
Else
c.Offset(0, 1).Value = "string2"
End If
Next
End Sub

--- note, this code assumes that column B is blank and can be used for
entry of the strings. It also assumes that each cell in column A has a
number either less than zero, zero or greater than zero.

Hope this helps
Cheers
JulieD


"J.B. Bobbitt" wrote in message
k.net...
Hi;

I'm new to VBA and need to get A LOT done quickly. I need help with
some simple code for the following:

I have a sheet with a column (~1500 rows) in which each cell contians a
numeric value. I want to create a new column in which cell contains a
text string based on the numeric value in the first column; i.e.:

If A1 < 0, then B1="string1"
If A1 =0, then B1="string2"

and so on for all cells in column.

Any help, suggestions?

Thanks in advance,
-jbb

Oh, I will............. (and have).

-jbb


"JulieD" wrote in message
...
you're welcome ... do come back if you get stuck again.

"J.B. Bobbitt" wrote in message
nk.net...
Thanks and a hat tip, Julie. I'm off and running.

-jbb

"JulieD" wrote in message
...
Hi

personally i wouldn't worry about using VBA for this - i would type an
IF formula
=IF(A1<0,"string1","string2")
in cell B1 and then double click the autofill handle (bottom right hand
corner of the cell) - then i would select column B and copy - edit /
paste special values

however, if you do want code

Sub addstrings()
For Each c In Range("A1:A1500") 'set range to suit
If c.Value < 0 Then
c.Offset(0, 1).Value = "string1"
Else
c.Offset(0, 1).Value = "string2"
End If
Next
End Sub

--- note, this code assumes that column B is blank and can be used for
entry of the strings. It also assumes that each cell in column A has a
number either less than zero, zero or greater than zero.

Hope this helps
Cheers
JulieD


"J.B. Bobbitt" wrote in message
k.net...
Hi;

I'm new to VBA and need to get A LOT done quickly. I need help with
some simple code for the following:

I have a sheet with a column (~1500 rows) in which each cell contians a
numeric value. I want to create a new column in which cell contains a
text string based on the numeric value in the first column; i.e.:

If A1 < 0, then B1="string1"
If A1 =0, then B1="string2"

and so on for all cells in column.

Any help, suggestions?

Thanks in advance,
-jbb