Thanks Diwakar for lots of options, its really useful.
On Thu, Jul 5, 2012 at 4:45 PM, Divaker Pandey wrote:
>
>
> use this one
>
> Sub ChangeRowColor()
>
> Dim sheet As Worksheet
> Dim row_min As Integer
> Dim row_max As Integer
> Dim rowC As Long
>
> ' Select the used range.
> Set she
thanks noorain
On Thu, Jul 5, 2012 at 4:13 PM, NOORAIN ANSARI wrote:
> Dear Amit,
>
> Please try it..
>
> *Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Target.Column = "3" And Target.Value <> "" Then
> Target.EntireRow.Interior.ColorIndex = Target.Cells.Font.ColorIndex
> End
use this one
Sub ChangeRowColor()
Dim sheet As Worksheet
Dim row_min As Integer
Dim row_max As Integer
Dim rowC As Long
' Select the used range.
Set sheet = ActiveSheet
'sheet.UsedRange.Select
' Display the range's rows and columns.
row_min = sheet.UsedRange.Row
row_max
Dear Amit,
Please try it..
*Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = "3" And Target.Value <> "" Then
Target.EntireRow.Interior.ColorIndex = Target.Cells.Font.ColorIndex
End If
End Sub
*
--
Thanks & regards,
Noorain Ansari
www.noorainansari.com
www.excelma
Hi Experts
I need a macro which changes the FONT COLOR of ENTIRE ROW as per font color
of a particular cell in that row. Sample file attached.
Pls help me here.
Regards
Amit
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles,
