Hi
Can anyone help me with the VBA code for conditional formatting in
Excel.
I have af worksheet of 1000 rows with 5 colums. I have data in colum
B;E and would like Excel to format the rows in a colour depending of
what I write in colum A.
I have 5 different text imput I can chose for each row,
e Is = "three": x = 3
Case Is = "four": x = 4
Case Else
End Select
Rows(Target.Row).Interior.ColorIndex = x
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
-Original Message-
From: FJO
Sent: Tuesday, November 15, 2011 7:49 AM
To: MS EXCEL AND VBA MACR
Here's how you do it. Select your entire row. Assuming your top left cell
in the entire selection is A1 (will be any one cell in the first column
depending on where you started your selection)
Go to conditional format, and in the options 'Use formula to determine
which cells to format', write =$A1
Sam,
> "one"
> "two"
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Sam Mathai Chacko
Sent: Tuesday, November 15, 2011 10:21 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Conditional formatting of entire row using VBA
Here's ho
d Software
> dguille...@gmail.com
>
> *From:* Sam Mathai Chacko
> *Sent:* Tuesday, November 15, 2011 10:21 AM
> *To:* excel-macros@googlegroups.com
> *Subject:* Re: $$Excel-Macros$$ Conditional formatting of entire row
> using VBA
>
> Here's how you do it. Select
Sam, I’m sorry.I opened in xl2003duh
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Sam Mathai Chacko
Sent: Tuesday, November 15, 2011 10:51 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Conditional formatting of entire row using VBA
Yes
mail.com
>
> *From:* Sam Mathai Chacko
> *Sent:* Tuesday, November 15, 2011 10:51 AM
> *To:* excel-macros@googlegroups.com
> *Subject:* Re: $$Excel-Macros$$ Conditional formatting of entire row
> using VBA
>
> Yes Don. I was just showing how it is done for one conditional. I had
1
> Case Is = "two": x = 6
> Case Is = "three": x = 3
> Case Is = "four": x = 4
> Case Else
> End Select
> Rows(Target.Row).Interior.ColorIndex = x
> End Sub
>
> Don Guillett
> SalesAid Software
> dguille...@gmail.com
>
>
>
>
.Interior.ColorIndex = x
> > End Sub
> >
> > Don Guillett
> > SalesAid Software
> > dguille...@gmail.com
> >
> >
> >
> > -Original Message-
> > From: FJO
> > Sent: Tuesday, November 15, 2011 7:49 AM
> > To: MS EXCEL AND VBA
= "three": x = 3
> > > Case Is = "four": x = 4
> > > Case Else
> > > End Select
> > > Rows(Target.Row).Interior.ColorIndex = x
> > > End Sub
>
> > > Don Guillett
> > > SalesAid Software
> > > dguille...@g
Case 5: x = "Five": y = 4
Case Else
End Select
Target = x
Rows(Target.Row).Interior.ColorIndex = y
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Sam Mathai Chacko
Sent: Tuesday, November 15, 2011 11:38 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel
End Select
>
> Target = x
> Rows(Target.Row).Interior.ColorIndex = y
> End Sub
>
> Don Guillett
> SalesAid Software
> dguille...@gmail.com
>
> *From:* Sam Mathai Chacko
> *Sent:* Tuesday, November 15, 2011 11:38 AM
> *To:* excel-macros@googlegroups.com
> *Subj
12 matches
Mail list logo