Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Bolding a Cell under certain conditions
I am looking for a program/function that takes in a selected column,
and bolds any cell in that column where the cell above or the cell below has the same value. The worksheet is already sorted on the selected column. Thanks for any pointers or suggestions for Excel 2007. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Bolding a Cell under certain conditions
This code will scan Col.A and bold any cell that has same value above and
below it. You will have to change it to which ever Column you need. Option Explicit Sub BoldCells() Dim i As Long For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(i - 1, "A").Value = Cells(i + 1, "A").Value Then Cells(i, "A").Font.Bold = True End If Next i End Sub Hope this helps! If so, click "YES" below. -- Cheers, Ryan "DennyP" wrote: I am looking for a program/function that takes in a selected column, and bolds any cell in that column where the cell above or the cell below has the same value. The worksheet is already sorted on the selected column. Thanks for any pointers or suggestions for Excel 2007. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Bolding a Cell under certain conditions
On Wed, 24 Sep 2008 16:32:06 -0700 (PDT), DennyP wrote:
I am looking for a program/function that takes in a selected column, and bolds any cell in that column where the cell above or the cell below has the same value. The worksheet is already sorted on the selected column. Thanks for any pointers or suggestions for Excel 2007. Use conditional formatting (on the Home tab) To apply this to C2:C10000 "Use a formula to determine which cells to format" =OR(OFFSET(C2,-1,0)=C2,OFFSET(C2,1,0)=C2) Then, in the CF Rules Manager, ensure the format applies to =$C$2:$C$10000 --ron |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Bolding a Cell under certain conditions
Thanks for the suggestions. I really appreciate it and I've learned a lot from them. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Bolding a Cell under certain conditions
I made a slight change because I needed the bold to occur if the row
above or below was the same. Sub BoldCells() Dim i As Long For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row If (Cells(i - 1, "A").Value = Cells(i, "A").Value) Or (Cells(i + 1, "A").Value = Cells(i, "A").Value) Then Cells(i, "A").Font.Bold = True End If Next i End Sub On Sep 24, 7:01*pm, RyanH wrote: This code will scan Col.A and bold any cell that has same value above and below it. *You will have to change it to which ever Column you need. Option Explicit Sub BoldCells() Dim i As Long * * For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row * * * * If Cells(i - 1, "A").Value = Cells(i + 1, "A").Value Then * * * * * * Cells(i, "A").Font.Bold = True * * * * End If * * Next i End Sub Hope this helps! *If so, click "YES" below. -- Cheers, Ryan "DennyP" wrote: I am looking for a program/function that takes in a selected column, and bolds any cell in that column where the cell above or the cell below has the same value. The worksheet is already sorted on the selected column. Thanks for any pointers or suggestions for Excel 2007. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Countif Conditions - Use of conditions that vary by cell value | Excel Discussion (Misc queries) | |||
Bolding using VBA | Excel Programming | |||
Bolding variable cell | Excel Programming | |||
Bolding Specific Cell Formula Question | Excel Discussion (Misc queries) | |||
Bolding | Excel Programming |