This code will not work if just one cell is changed!!!! I am confused....

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "u4" Then
If Target.Value 0.00001 Then
Cells(Target.Row, "G").Resize(1, 22).Interior.ColorIndex = 15
Else
Cells(Target.Row, "G").Resize(1, 22).Interior.ColorIndex = xlNone
End If
End If
End Sub


"Tom Ogilvy" wrote:

As long a calculation is set to automatic, the easiest would just be to
process every row

Private Sub Worksheets_Calculate()
Dim Target as Range
for each Target in Range("P2:P50")
If Target.Value = True Then
Cells(Target.Row, "G").Resize(1, 22).Interior.ColorIndex = 15
End If
If Target.Value = False Then
Cells(Target.Row, "G").Resize(1, 22).Interior.ColorIndex = xlNone
End If
Next
End Sub

If that is too slow then post back. Change P2:P50 to refer to the cells you
want to manage.

--
Regards,
Tom Ogilvy


"John" wrote in message
...
They are from the control toolbox, they are all positioned down the same
column and positioned over the row I want to format.... are class modules
regular VBA modules? there are formulas that change in column U that
calculate off of these checkboxes...

"Tom Ogilvy" wrote:

Are the checkboxes from the control toolbox toolbar or from the forms
toolbar?

Are all the checkboxes located in the same column and positioned over
the
row you want to format?

If the checkboxes are from the control toolbox toolbar, are you familiar
with class modules?

In any event, are there formulas that refer to the cells in column P
that
would cause a recalculate if their value changed?
--
Regards,
Tom Ogilvy

"John" wrote in message
...
Tom I appreciate the help, that works. However, my true and false are
linked
to checkboxes (if checked cell equals true, if not cell equals
false)...
if I
check or uncheck my check boxes, which changes column P values, it
does
not
do the formating. Is this because of the checkboxes?

Thanks again...


"Tom Ogilvy" wrote:

I interpreted your requirement for someone manually making an entry
in
column P. If that isn't the requirement, try this revision:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = True Then
Cells(Target.Row, "G").Resize(1, 22).Interior.ColorIndex = 15
If Target.Value = False Then
Cells(Target.Row, "G").Resize(1, 22).Interior.ColorIndex = xlNone
End If
End Sub

--
Regards,
Tom Ogilvy



"John" wrote in message
...
Tom, thanks for the reply. Nothing changes when my cell value
changes
(it
changes to true of false)... here is the code...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 16 Then
If Target.Value = "true" Then
Cells(Target.Row, "G").Resize(1, 22).Interior.ColorIndex = 15
If Target.Value = "false" Then
Cells(Target.Row, "G").Resize(1, 22).Interior.ColorIndex = 0
End If
End Sub




"Tom Ogilvy" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
if Target.Column = 16 then
Cells(Target.Row,"G").Resize(1,22).Interior.ColorI ndex = 3
End if
End Sub

Right click on the sheet tab and select view Code.

--
Regards,
Tom Ogilvy

"John" wrote in message
...
I want to color a row from column G to AB if range("p" &
currentrow)
value
changes... currentrow being the row of the cell value that
was
changed...
how do select the row of the cell that was changed?
Thanks for the help