free cell

[Gary''s Student]

How can I tell if a cell is free (available)?
Free would mean empty and not referred to by another cell on the worksheet.

--
Gary''s Student

[Duke Carey]

check the cell's Dependent property

"Gary''s Student" wrote:

> How can I tell if a cell is free (available)?
> Free would mean empty and not referred to by another cell on the worksheet.
>
> --
> Gary''s Student

[Gary''s Student]

thanks
--
Gary''s Student


"Duke Carey" wrote:

> check the cell's Dependent property
>
> "Gary''s Student" wrote:
>
> > How can I tell if a cell is free (available)?
> > Free would mean empty and not referred to by another cell on the worksheet.
> >
> > --
> > Gary''s Student

[Bob Phillips]

Dim fEmpty
Dim tmp As Range
fEmpty = IsEmpty(ActiveCell)
If fEmpty Then
On Error Resume Next
Set tmp = ActiveCell.DirectPrecedents
On Error GoTo 0
If Not tmp Is Nothing Then
fEmpty = False
End If
On Error Resume Next
Set tmp = ActiveCell.DirectDependents
On Error GoTo 0
If Not tmp Is Nothing Then
fEmpty = False
End If
End If


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Gary''s Student" <GarysStudent@discussions.microsoft.com> wrote in message
news:BC839D72-C567-4216-B91A-8D42FBD95A11@microsoft.com...
> How can I tell if a cell is free (available)?
> Free would mean empty and not referred to by another cell on the
worksheet.
>
> --
> Gary''s Student

[Gary''s Student]

Thank you Bob, for both the answer and the general approach of using On
Error. I will use this in the future instead of my (Homer Simpson) usual
practice of banging my head into a wall until a 1004 error pops up.
--
Gary's Student


"Bob Phillips" wrote:

> Dim fEmpty
> Dim tmp As Range
> fEmpty = IsEmpty(ActiveCell)
> If fEmpty Then
> On Error Resume Next
> Set tmp = ActiveCell.DirectPrecedents
> On Error GoTo 0
> If Not tmp Is Nothing Then
> fEmpty = False
> End If
> On Error Resume Next
> Set tmp = ActiveCell.DirectDependents
> On Error GoTo 0
> If Not tmp Is Nothing Then
> fEmpty = False
> End If
> End If
>
>
> --
> HTH
>
> Bob Phillips
>
> (remove nothere from email address if mailing direct)
>
> "Gary''s Student" <GarysStudent@discussions.microsoft.com> wrote in message
> news:BC839D72-C567-4216-B91A-8D42FBD95A11@microsoft.com...
> > How can I tell if a cell is free (available)?
> > Free would mean empty and not referred to by another cell on the
> worksheet.
> >
> > --
> > Gary''s Student
>
>
>

[Gary''s Student]

Thank you Bob, for both the answer and the general approach of using On
Error. I will use this in the future instead of my (Homer Simpson) usual
practice of banging my head into a wall until a 1004 error pops up.
--
Gary's Student


"Bob Phillips" wrote:

> Dim fEmpty
> Dim tmp As Range
> fEmpty = IsEmpty(ActiveCell)
> If fEmpty Then
> On Error Resume Next
> Set tmp = ActiveCell.DirectPrecedents
> On Error GoTo 0
> If Not tmp Is Nothing Then
> fEmpty = False
> End If
> On Error Resume Next
> Set tmp = ActiveCell.DirectDependents
> On Error GoTo 0
> If Not tmp Is Nothing Then
> fEmpty = False
> End If
> End If
>
>
> --
> HTH
>
> Bob Phillips
>
> (remove nothere from email address if mailing direct)
>
> "Gary''s Student" <GarysStudent@discussions.microsoft.com> wrote in message
> news:BC839D72-C567-4216-B91A-8D42FBD95A11@microsoft.com...
> > How can I tell if a cell is free (available)?
> > Free would mean empty and not referred to by another cell on the
> worksheet.
> >
> > --
> > Gary''s Student
>
>
>

[John Lyons]

or just use the Find Dependents tool on the Audit toolbar!

"Gary''s Student" wrote:

> How can I tell if a cell is free (available)?
> Free would mean empty and not referred to by another cell on the worksheet.
>
> --
> Gary''s Student

[Bob Phillips]

Some of still use 2000 <vbg>

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"John Lyons" <JohnLyons@discussions.microsoft.com> wrote in message
news:41FFD689-3514-4CA4-BDA4-A3C25EF4A22F@microsoft.com...
> or just use the Find Dependents tool on the Audit toolbar!
>
> "Gary''s Student" wrote:
>
> > How can I tell if a cell is free (available)?
> > Free would mean empty and not referred to by another cell on the
worksheet.
> >
> > --
> > Gary''s Student

[Duke Carey]

Trace Dependents/Precedents icons are available in 2000 (and '97, I think)
when you customize the toolbar & look in the Tools category<g>


"Bob Phillips" wrote:

> Some of still use 2000 <vbg>
>
> --
> HTH
>
> Bob Phillips
>
> (remove nothere from email address if mailing direct)
>
> "John Lyons" <JohnLyons@discussions.microsoft.com> wrote in message
> news:41FFD689-3514-4CA4-BDA4-A3C25EF4A22F@microsoft.com...
> > or just use the Find Dependents tool on the Audit toolbar!
> >
> > "Gary''s Student" wrote:
> >
> > > How can I tell if a cell is free (available)?
> > > Free would mean empty and not referred to by another cell on the
> worksheet.
> > >
> > > --
> > > Gary''s Student
>
>
>

[Bob Phillips]

You are right, I had forgotten since I never use them, and was thinking of
the much stronger Evaluate facility in the XP Auditing tool <g>

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Duke Carey" <DukeCarey@discussions.microsoft.com> wrote in message
news:0B64281B-E6D8-427A-AE3D-EB7F68B0DA39@microsoft.com...
> Trace Dependents/Precedents icons are available in 2000 (and '97, I think)
> when you customize the toolbar & look in the Tools category<g>
>
>
> "Bob Phillips" wrote:
>
> > Some of still use 2000 <vbg>
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > (remove nothere from email address if mailing direct)
> >
> > "John Lyons" <JohnLyons@discussions.microsoft.com> wrote in message
> > news:41FFD689-3514-4CA4-BDA4-A3C25EF4A22F@microsoft.com...
> > > or just use the Find Dependents tool on the Audit toolbar!
> > >
> > > "Gary''s Student" wrote:
> > >
> > > > How can I tell if a cell is free (available)?
> > > > Free would mean empty and not referred to by another cell on the
> > worksheet.
> > > >
> > > > --
> > > > Gary''s Student
> >
> >
> >