I need something that is to the purpose of:
if the cell is highlighted, copy the row and paste it here.

What is the code for testing whether a cell or row is highlighted?

Thanks.

What do you mean by "highlighted". HTH Otto
"J@Y" <(E-Mail Removed)> wrote in message
news:E6624068-25C0-4F23-AC1E-(E-Mail Removed)...
>I need something that is to the purpose of:
> if the cell is highlighted, copy the row and paste it here.
>
> What is the code for testing whether a cell or row is highlighted?
>
> Thanks.

On May 28, 11:36 am, J@Y <J...@discussions.microsoft.com> wrote:
> I need something that is to the purpose of:
> if the cell is highlighted, copy the row and paste it here.
>
> What is the code for testing whether a cell or row is highlighted?

Public Function CountSpecial(ColorCell As Range, CntRng As Range) As
Long

'This function will count the contents of cells within the CNTRNG
argument that are highlighted and
'NOT HIDDEN with the same background color as that contained
within the COLORCELL range argument.

On Error GoTo CSErrHandler

Dim CurCell As Range
Dim CurColor As Long

CurColor = ColorCell.Interior.ColorIndex
'MsgBox "The current color selected is " &
ColorCell.Interior.ColorIndex
For Each CurCell In CntRng
'check to see if the row is hidden, if it is then skip to
the next cell
If CurCell.EntireRow.Hidden = False Then
If CurCell.Interior.ColorIndex = CurColor Then
CountSpecial = CountSpecial + CurCell
************************************************************************************************
'YOU WOULD ENTER YOUR COPY & PASTE ROUTINE HERE.
************************************************************************************************
End If
End If
Next CurCell
Exit Function
CSErrHandler:

End Function

This will not do all that you are asking, but it will enable you to
identify cells that are highlighted.
Hope that gets you going in the right direction.
Mark

I see. So there is really no function that identifies the cell as "colored"?
I HAVE to use colorindex (the exact color of the cell) as a parameter?

"Mark" wrote:

> On May 28, 11:36 am, J@Y <J...@discussions.microsoft.com> wrote:
> > I need something that is to the purpose of:
> > if the cell is highlighted, copy the row and paste it here.
> >
> > What is the code for testing whether a cell or row is highlighted?
>
> Public Function CountSpecial(ColorCell As Range, CntRng As Range) As
> Long
>
> 'This function will count the contents of cells within the CNTRNG
> argument that are highlighted and
> 'NOT HIDDEN with the same background color as that contained
> within the COLORCELL range argument.
>
> On Error GoTo CSErrHandler
>
> Dim CurCell As Range
> Dim CurColor As Long
>
> CurColor = ColorCell.Interior.ColorIndex
> 'MsgBox "The current color selected is " &
> ColorCell.Interior.ColorIndex
> For Each CurCell In CntRng
> 'check to see if the row is hidden, if it is then skip to
> the next cell
> If CurCell.EntireRow.Hidden = False Then
> If CurCell.Interior.ColorIndex = CurColor Then
> CountSpecial = CountSpecial + CurCell
> ************************************************************************************************
> 'YOU WOULD ENTER YOUR COPY & PASTE ROUTINE HERE.
> ************************************************************************************************
> End If
> End If
> Next CurCell
> Exit Function
> CSErrHandler:
>
> End Function
>
> This will not do all that you are asking, but it will enable you to
> identify cells that are highlighted.
> Hope that gets you going in the right direction.
> Mark
>
>

Sub colortest()
If ActiveCell.Interior.ColorIndex = xlNone Then
MsgBox ("not colored")
Else
MsgBox ("colored")
End If
End Sub

--
Gary''s Student - gsnu200725

Great simple solution. Thanks.

"Gary''s Student" wrote:

> Sub colortest()
> If ActiveCell.Interior.ColorIndex = xlNone Then
> MsgBox ("not colored")
> Else
> MsgBox ("colored")
> End If
> End Sub
>
> --
> Gary''s Student - gsnu200725

You are welcome
Simple is always good.
--
Gary''s Student - gsnu200725


"J@Y" wrote:

> Great simple solution. Thanks.
>
> "Gary''s Student" wrote:
>
> > Sub colortest()
> > If ActiveCell.Interior.ColorIndex = xlNone Then
> > MsgBox ("not colored")
> > Else
> > MsgBox ("colored")
> > End If
> > End Sub
> >
> > --
> > Gary''s Student - gsnu200725