Flag row if cell values = something specific

[Some Dude]

Let's say A1 = top
and B1 = Bottom

in C1, I want to say that if A1 = top and B1 = bottom then the cell
background color of C1 should be red.

How can I do this?

[Some Dude]

And I need to do this in a macro. I can't use conditional formating from the
menu.
I have a recorded macro that does all my formatting and I need to add this.

"Some Dude" <sdatt@myplace.com> wrote in message
news:e9kw7DrfGHA.4864@TK2MSFTNGP05.phx.gbl...
> Let's say A1 = top
> and B1 = Bottom
>
> in C1, I want to say that if A1 = top and B1 = bottom then the cell
> background color of C1 should be red.
>
> How can I do this?
>

[Bob Phillips]

'-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'-----------------------------------------------------------------
Const WS_RANGE As String = "A:B"

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If Me.Cells(.Row, "A") = "top" And Me.Cells(.Row, "B") =
"bottom" Then
Me.Cells(.Row, "C").Interior.ColorIndex = 3
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.





--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Some Dude" <sdatt@myplace.com> wrote in message
news:e9kw7DrfGHA.4864@TK2MSFTNGP05.phx.gbl...
> Let's say A1 = top
> and B1 = Bottom
>
> in C1, I want to say that if A1 = top and B1 = bottom then the cell
> background color of C1 should be red.
>
> How can I do this?
>
>

[Gary''s Student]

What is Me?


pardon the grammar.
--
Gary''s Student


"Bob Phillips" wrote:

> '-----------------------------------------------------------------
> Private Sub Worksheet_Change(ByVal Target As Range)
> '-----------------------------------------------------------------
> Const WS_RANGE As String = "A:B"
>
> On Error GoTo ws_exit:
> Application.EnableEvents = False
> If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
> With Target
> If Me.Cells(.Row, "A") = "top" And Me.Cells(.Row, "B") =
> "bottom" Then
> Me.Cells(.Row, "C").Interior.ColorIndex = 3
> End If
> End With
> End If
>
> ws_exit:
> Application.EnableEvents = True
> End Sub
>
> 'This is worksheet event code, which means that it needs to be
> 'placed in the appropriate worksheet code module, not a standard
> 'code module. To do this, right-click on the sheet tab, select
> 'the View Code option from the menu, and paste the code in.
>
>
>
>
>
> --
> HTH
>
> Bob Phillips
>
> (remove xxx from email address if mailing direct)
>
> "Some Dude" <sdatt@myplace.com> wrote in message
> news:e9kw7DrfGHA.4864@TK2MSFTNGP05.phx.gbl...
> > Let's say A1 = top
> > and B1 = Bottom
> >
> > in C1, I want to say that if A1 = top and B1 = bottom then the cell
> > background color of C1 should be red.
> >
> > How can I do this?
> >
> >
>
>
>

[Bob Phillips]

Me refers to the containing object, the worksheet the code is within in this
case. From a userform, it refers to the form.

--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Gary''s Student" <GarysStudent@discussions.microsoft.com> wrote in message
news:456FEEC6-EBED-42BB-AA5C-BFA8A106CC7B@microsoft.com...
> What is Me?
>
>
> pardon the grammar.
> --
> Gary''s Student
>
>
> "Bob Phillips" wrote:
>
> > '-----------------------------------------------------------------
> > Private Sub Worksheet_Change(ByVal Target As Range)
> > '-----------------------------------------------------------------
> > Const WS_RANGE As String = "A:B"
> >
> > On Error GoTo ws_exit:
> > Application.EnableEvents = False
> > If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
> > With Target
> > If Me.Cells(.Row, "A") = "top" And Me.Cells(.Row, "B") =
> > "bottom" Then
> > Me.Cells(.Row, "C").Interior.ColorIndex = 3
> > End If
> > End With
> > End If
> >
> > ws_exit:
> > Application.EnableEvents = True
> > End Sub
> >
> > 'This is worksheet event code, which means that it needs to be
> > 'placed in the appropriate worksheet code module, not a standard
> > 'code module. To do this, right-click on the sheet tab, select
> > 'the View Code option from the menu, and paste the code in.
> >
> >
> >
> >
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > (remove xxx from email address if mailing direct)
> >
> > "Some Dude" <sdatt@myplace.com> wrote in message
> > news:e9kw7DrfGHA.4864@TK2MSFTNGP05.phx.gbl...
> > > Let's say A1 = top
> > > and B1 = Bottom
> > >
> > > in C1, I want to say that if A1 = top and B1 = bottom then the cell
> > > background color of C1 should be red.
> > >
> > > How can I do this?
> > >
> > >
> >
> >
> >

[Gary''s Student]

Thank you
--
Gary''s Student


"Bob Phillips" wrote:

> Me refers to the containing object, the worksheet the code is within in this
> case. From a userform, it refers to the form.
>
> --
> HTH
>
> Bob Phillips
>
> (remove xxx from email address if mailing direct)
>
> "Gary''s Student" <GarysStudent@discussions.microsoft.com> wrote in message
> news:456FEEC6-EBED-42BB-AA5C-BFA8A106CC7B@microsoft.com...
> > What is Me?
> >
> >
> > pardon the grammar.
> > --
> > Gary''s Student
> >
> >
> > "Bob Phillips" wrote:
> >
> > > '-----------------------------------------------------------------
> > > Private Sub Worksheet_Change(ByVal Target As Range)
> > > '-----------------------------------------------------------------
> > > Const WS_RANGE As String = "A:B"
> > >
> > > On Error GoTo ws_exit:
> > > Application.EnableEvents = False
> > > If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
> > > With Target
> > > If Me.Cells(.Row, "A") = "top" And Me.Cells(.Row, "B") =
> > > "bottom" Then
> > > Me.Cells(.Row, "C").Interior.ColorIndex = 3
> > > End If
> > > End With
> > > End If
> > >
> > > ws_exit:
> > > Application.EnableEvents = True
> > > End Sub
> > >
> > > 'This is worksheet event code, which means that it needs to be
> > > 'placed in the appropriate worksheet code module, not a standard
> > > 'code module. To do this, right-click on the sheet tab, select
> > > 'the View Code option from the menu, and paste the code in.
> > >
> > >
> > >
> > >
> > >
> > > --
> > > HTH
> > >
> > > Bob Phillips
> > >
> > > (remove xxx from email address if mailing direct)
> > >
> > > "Some Dude" <sdatt@myplace.com> wrote in message
> > > news:e9kw7DrfGHA.4864@TK2MSFTNGP05.phx.gbl...
> > > > Let's say A1 = top
> > > > and B1 = Bottom
> > > >
> > > > in C1, I want to say that if A1 = top and B1 = bottom then the cell
> > > > background color of C1 should be red.
> > > >
> > > > How can I do this?
> > > >
> > > >
> > >
> > >
> > >
>
>
>