vba question

[flynpat46]

Hi,
Please help..
I am having trouble finding right code for my project. There are three rows. The third rows is empty. I need vba to evaluate B1, if less than 0, put an X in C1. Repeat on down until there isn't a value in column B.

1	75
2	15
3	0
4	0
5	0
6	3
7	0
8	0
9	0
10	0
11	0
12	0
13	0
14	0
15	0
16	16
17	84
18	185

<colgroup><col width="44" style="width: 33pt; mso-width-source: userset; mso-width-alt: 1609;"> <col width="43" style="width: 32pt; mso-width-source: userset; mso-width-alt: 1572;"> <col width="44" style="width: 33pt; mso-width-source: userset; mso-width-alt: 1609;"> <tbody> </tbody>

 

[flynpat46]

Hello,
I guess I should have just did this instead. In column E, starting at E4, if 0, then F4 will have an X.

 

[Fluff]

Change the E4 to F4 & the 3 to 4

 

[flynpat46]

Hello,
I wanted to put the full sheet up with X's to the right of the cell with the zero. I believe that we will need a loop to evaluate starting at E4 down until there isn't a value in the E column. Then do the same for columns G,I,K,M,O,and Q.
Thank you for you help and patiences.
CONTAINER # 31 S/T # S/T # S/T # S/T # S/T # S/T # S/T #
CONT. M8076L M8077C M8078G M8079A M8080F TOTAL
ITEM# PART # DESCRIPTION TOTAL TX SHIP MS SHIP CA SHIP GA SHIP AZ SHIP FL SHIP Hou SHIP LEFT
1 PART # DESCRIPTION 500 75 350 0 X 0 X 75 0 X 0 X 0
2 PART # DESCRIPTION 100 15 30 25 0 X 30 0 X 0 X 0
3 PART # DESCRIPTION 20 0 X 10 0 X 0 X 10 0 X 0 X 0
4 PART # DESCRIPTION 40 0 X 0 X 0 X 0 X 40 0 X 0 X 0
5 PART # DESCRIPTION 25 0 X 0 X 0 X 0 X 25 0 X 0 X 0
6 PART # DESCRIPTION 26 3 2 2 2 15 2 0 X 0
7 PART # DESCRIPTION 162 0 X 162 0 X 0 X 0 X 0 X 0 X 0
8 PART # DESCRIPTION 76 0 X 51 0 X 0 X 15 10 0 X 0
9 PART # DESCRIPTION 69 0 X 0 X 0 X 0 X 69 0 X 0 X 0
10 PART # DESCRIPTION 103 0 X 32 16 25 30 0 X 0 X 0
11 PART # DESCRIPTION 6 0 X 6 0 X 0 X 0 X 0 X 0 X 0
12 PART # DESCRIPTION 23 0 X 0 X 0 X 0 X 10 13 0 X 0
13 PART # DESCRIPTION 88 0 X 88 0 X 0 X 0 X 0 X 0 X 0
14 PART # DESCRIPTION 10 0 X 10 0 X 0 X 0 X 0 X 0 X 0
15 PART # DESCRIPTION 25 0 X 25 0 X 0 X 0 X 0 X 0 X 0
16 PART # DESCRIPTION 16 16 0 X 0 X 0 X 0 X 0 X 0 X 0
17 PART # DESCRIPTION 84 84 0 X 0 X 0 X 0 X 0 X 0 X 0
18 PART # DESCRIPTION 185 185 0 X 0 X 0 X 0 X 0 X 0 X 0

 

[Fluff]

Try

Sub AddX()
   Dim i As Long
   For i = 5 To 17 Step 2
      With Range(Cells(4, i + 1), Cells(Rows.Count, i).End(xlUp).Offset(, 1))
         .Value = Evaluate(Replace("if(@=0,""X"","""")", "@", .Offset(, -1).Address))
      End With
   Next i
End Sub

 

[flynpat46]

Hello,
Excellent! That worked perfectly.
Pat

 

[Fluff]

Glad to help & thanks for the feedback