I appreciate the effort; although, I'd have to apply this to many-many
different cells in my worksheet. I was hoping for a semi-simple solution
otherwise it's not really worth the effort.
But again, I do appreciate it.
"Tom Ogilvy" wrote:
> Maybe something brute force like this:
>
> Sub FormatCell()
> Dim cell As Range, cell1 As Range
> Selection.Font.ColorIndex = xlAutomatic
> For Each cell In Selection
> If IsNumeric(cell.Value) Then
> If cell.Value < 0 Then
> For Each cell1 In Selection
> If IsNumeric(cell1) Then
> If cell1 > 0 Then
> If Abs(cell1 + cell) < 0.0000001 Then
> cell.Font.ColorIndex = _
> cell.Interior.ColorIndex
> Exit For
> End If
> End If
> End If
> Next
> End If
> End If
> Next
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
> "JK" wrote:
>
> > That won't work...
> >
> > Example:
> > The cell background is dark-grey. If the cell value (in that cell) is the
> > opposite value of another cell, then I want the font color to be dark-grey -
> > which would hide the numerical value.
> >
> > It's not needed unless it's something other than the opposite value of the
> > other cell.
> >
> > Thx tho.
> >
> > "Bob Phillips" wrote:
> >
> > > Use a custom cell format of
> > >
> > > ##,##0;[Red](#,##0)
> > >
> > > --
> > > HTH
> > >
> > > Bob
> > >
> > > (there's no email, no snail mail, but somewhere should be gmail in my addy)
> > >
> > > "JK" <(E-Mail Removed)> wrote in message
> > > news:561EA09D-6EC4-4133-8FD0-(E-Mail Removed)...
> > > > Conditional Formatting
> > > >
> > > > I want to change the font color of a number that is the negative value of
> > > > another number. I could conditionally format each cell individually, but
> > > > that
> > > > would be too time-consuming (lots of numbers.)
> > > >
> > > > For example; D5 = 22,443 & D12 = (22,443)
> > > >
> > > > If one cell is the opposite of another cell, change the font color to hide
> > > > the negative value.
> > > >
> > > > Any help would be appreciated.
> > > > Thx in advance.
> > > >
> > > >
> > >
> > >
> > >
|
Similar Threads
