Capture Col number

How would I capture the column number after I used this find function
to find a cell with "Time" in it?

Cells.find(What:="Time", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False).Activate

Thanks for the help!

Dave,

Try something like

Dim FoundCell As Range
Set FoundCell = Cells.Find(...)
If Not FoundCell Is Nothing
FoundCell.Activate
MsgBox "Found in column: " & FoundCell.Column
Else
' not found
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"davegb" <davegb@safebrowse.com> wrote in message
news:1117224280.524424.207970@f14g2000cwb.googlegroups.com...
> How would I capture the column number after I used this find
> function
> to find a cell with "Time" in it?
>
> Cells.find(What:="Time", After:=ActiveCell, LookIn:=xlFormulas,
> _
> LookAt:=xlPart, SearchOrder:=xlByRows,
> SearchDirection:=xlNext,
> _
> MatchCase:=False).Activate
>
> Thanks for the help!
>

Thanks for the help, Chip. It's giving a compile error on
If Not FoundCell is Nothing
Any ideas on what would cause that?

Chip Pearson wrote:
> Dave,
>
> Try something like
>
> Dim FoundCell As Range
> Set FoundCell = Cells.Find(...)
> If Not FoundCell Is Nothing
> FoundCell.Activate
> MsgBox "Found in column: " & FoundCell.Column
> Else
> ' not found
> End If
>
>
> --
> Cordially,
> Chip Pearson
> Microsoft MVP - Excel
> Pearson Software Consulting, LLC
> www.cpearson.com
>
>
> "davegb" <davegb@safebrowse.com> wrote in message
> news:1117224280.524424.207970@f14g2000cwb.googlegroups.com...
> > How would I capture the column number after I used this find
> > function
> > to find a cell with "Time" in it?
> >
> > Cells.find(What:="Time", After:=ActiveCell, LookIn:=xlFormulas,
> > _
> > LookAt:=xlPart, SearchOrder:=xlByRows,
> > SearchDirection:=xlNext,
> > _
> > MatchCase:=False).Activate
> >
> > Thanks for the help!
> >

I found something else. How would I find a cell with ONLY the word
"Time", not say, "Overtime"?

Hi Davegb,

Replace

> If Not FoundCell is Nothing

with

If Not FoundCell is Nothing Then

---
Regards,
Norman



"davegb" <davegb@safebrowse.com> wrote in message
news:1117227650.590737.259790@z14g2000cwz.googlegroups.com...
> Thanks for the help, Chip. It's giving a compile error on
> If Not FoundCell is Nothing
> Any ideas on what would cause that?
>
> Chip Pearson wrote:
>> Dave,
>>
>> Try something like
>>
>> Dim FoundCell As Range
>> Set FoundCell = Cells.Find(...)
>> If Not FoundCell Is Nothing
>> FoundCell.Activate
>> MsgBox "Found in column: " & FoundCell.Column
>> Else
>> ' not found
>> End If
>>
>>
>> --
>> Cordially,
>> Chip Pearson
>> Microsoft MVP - Excel
>> Pearson Software Consulting, LLC
>> www.cpearson.com
>>
>>
>> "davegb" <davegb@safebrowse.com> wrote in message
>> news:1117224280.524424.207970@f14g2000cwb.googlegroups.com...
>> > How would I capture the column number after I used this find
>> > function
>> > to find a cell with "Time" in it?
>> >
>> > Cells.find(What:="Time", After:=ActiveCell, LookIn:=xlFormulas,
>> > _
>> > LookAt:=xlPart, SearchOrder:=xlByRows,
>> > SearchDirection:=xlNext,
>> > _
>> > MatchCase:=False).Activate
>> >
>> > Thanks for the help!
>> >
>

Dave,

I forgot the 'Then' at the end of the If statement.

If Not FoundCell Is Nothing Then


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"davegb" <davegb@safebrowse.com> wrote in message
news:1117227650.590737.259790@z14g2000cwz.googlegroups.com...
> Thanks for the help, Chip. It's giving a compile error on
> If Not FoundCell is Nothing
> Any ideas on what would cause that?
>
> Chip Pearson wrote:
>> Dave,
>>
>> Try something like
>>
>> Dim FoundCell As Range
>> Set FoundCell = Cells.Find(...)
>> If Not FoundCell Is Nothing
>> FoundCell.Activate
>> MsgBox "Found in column: " & FoundCell.Column
>> Else
>> ' not found
>> End If
>>
>>
>> --
>> Cordially,
>> Chip Pearson
>> Microsoft MVP - Excel
>> Pearson Software Consulting, LLC
>> www.cpearson.com
>>
>>
>> "davegb" <davegb@safebrowse.com> wrote in message
>> news:1117224280.524424.207970@f14g2000cwb.googlegroups.com...
>> > How would I capture the column number after I used this find
>> > function
>> > to find a cell with "Time" in it?
>> >
>> > Cells.find(What:="Time", After:=ActiveCell,
>> > LookIn:=xlFormulas,
>> > _
>> > LookAt:=xlPart, SearchOrder:=xlByRows,
>> > SearchDirection:=xlNext,
>> > _
>> > MatchCase:=False).Activate
>> >
>> > Thanks for the help!
>> >
>

Thanks, Chip. Got it working.

Chip Pearson wrote:
> Dave,
>
> I forgot the 'Then' at the end of the If statement.
>
> If Not FoundCell Is Nothing Then
>
>
> --
> Cordially,
> Chip Pearson
> Microsoft MVP - Excel
> Pearson Software Consulting, LLC
> www.cpearson.com
>
>
>
>
> "davegb" <davegb@safebrowse.com> wrote in message
> news:1117227650.590737.259790@z14g2000cwz.googlegroups.com...
> > Thanks for the help, Chip. It's giving a compile error on
> > If Not FoundCell is Nothing
> > Any ideas on what would cause that?
> >
> > Chip Pearson wrote:
> >> Dave,
> >>
> >> Try something like
> >>
> >> Dim FoundCell As Range
> >> Set FoundCell = Cells.Find(...)
> >> If Not FoundCell Is Nothing
> >> FoundCell.Activate
> >> MsgBox "Found in column: " & FoundCell.Column
> >> Else
> >> ' not found
> >> End If
> >>
> >>
> >> --
> >> Cordially,
> >> Chip Pearson
> >> Microsoft MVP - Excel
> >> Pearson Software Consulting, LLC
> >> www.cpearson.com
> >>
> >>
> >> "davegb" <davegb@safebrowse.com> wrote in message
> >> news:1117224280.524424.207970@f14g2000cwb.googlegroups.com...
> >> > How would I capture the column number after I used this find
> >> > function
> >> > to find a cell with "Time" in it?
> >> >
> >> > Cells.find(What:="Time", After:=ActiveCell,
> >> > LookIn:=xlFormulas,
> >> > _
> >> > LookAt:=xlPart, SearchOrder:=xlByRows,
> >> > SearchDirection:=xlNext,
> >> > _
> >> > MatchCase:=False).Activate
> >> >
> >> > Thanks for the help!
> >> >
> >