Store row number after a find

Following a find command I want to store the row number to a variablke and
use that to move to a columb on that row

hi,
what column? same column? different column?

Regards
FSt1

"Alan" wrote:

> Following a find command I want to store the row number to a variablke and
> use that to move to a columb on that row

Hello,

Any column on that row. Real problem is storing the 'found' row number to a
variable

"FSt1" wrote:

> hi,
> what column? same column? different column?
>
> Regards
> FSt1
>
> "Alan" wrote:
>
> > Following a find command I want to store the row number to a variablke and
> > use that to move to a columb on that row

hi,
if you are using the built in find then you do have a problem. try this...
Sub macfindrow()
dim rn as string
dim rng as range
dim therow as long

rn = inputbox("enter something to find")
if rn <> "" then
Set rng = nothing
Set rng = range("A1:IV65536").Find(what:=rn, _
After:=Range("A1"), _
Lookin:=xlformulas, _
Lookat:=xlpart, _
SearchOrder:=xlbyrows, _
SearchDirection:=xlNext, _
MatchCase:=false)
end if
therow = rng.row
msgbox "Found at cell " & rng.address
msbbox "The row number is " & therow
end sub

therow is the variable

Regards
FSt1
"Alan" wrote:

> Hello,
>
> Any column on that row. Real problem is storing the 'found' row number to a
> variable
>
> "FSt1" wrote:
>
> > hi,
> > what column? same column? different column?
> >
> > Regards
> > FSt1
> >
> > "Alan" wrote:
> >
> > > Following a find command I want to store the row number to a variablke and
> > > use that to move to a columb on that row

Dear FSt1,

Thanks very good. I have modified slightly and now all is OK.

What does FSt1 mean or stand for ?

Alan

"FSt1" wrote:

> hi,
> if you are using the built in find then you do have a problem. try this...
> Sub macfindrow()
> dim rn as string
> dim rng as range
> dim therow as long
>
> rn = inputbox("enter something to find")
> if rn <> "" then
> Set rng = nothing
> Set rng = range("A1:IV65536").Find(what:=rn, _
> After:=Range("A1"), _
> Lookin:=xlformulas, _
> Lookat:=xlpart, _
> SearchOrder:=xlbyrows, _
> SearchDirection:=xlNext, _
> MatchCase:=false)
> end if
> therow = rng.row
> msgbox "Found at cell " & rng.address
> msbbox "The row number is " & therow
> end sub
>
> therow is the variable
>
> Regards
> FSt1
> "Alan" wrote:
>
> > Hello,
> >
> > Any column on that row. Real problem is storing the 'found' row number to a
> > variable
> >
> > "FSt1" wrote:
> >
> > > hi,
> > > what column? same column? different column?
> > >
> > > Regards
> > > FSt1
> > >
> > > "Alan" wrote:
> > >
> > > > Following a find command I want to store the row number to a variablke and
> > > > use that to move to a columb on that row

my name is Frank Stone
FStone
FSt one
how do you spell the number 1

Regards
FSt1

"Alan" wrote:

> Dear FSt1,
>
> Thanks very good. I have modified slightly and now all is OK.
>
> What does FSt1 mean or stand for ?
>
> Alan
>
> "FSt1" wrote:
>
> > hi,
> > if you are using the built in find then you do have a problem. try this...
> > Sub macfindrow()
> > dim rn as string
> > dim rng as range
> > dim therow as long
> >
> > rn = inputbox("enter something to find")
> > if rn <> "" then
> > Set rng = nothing
> > Set rng = range("A1:IV65536").Find(what:=rn, _
> > After:=Range("A1"), _
> > Lookin:=xlformulas, _
> > Lookat:=xlpart, _
> > SearchOrder:=xlbyrows, _
> > SearchDirection:=xlNext, _
> > MatchCase:=false)
> > end if
> > therow = rng.row
> > msgbox "Found at cell " & rng.address
> > msbbox "The row number is " & therow
> > end sub
> >
> > therow is the variable
> >
> > Regards
> > FSt1
> > "Alan" wrote:
> >
> > > Hello,
> > >
> > > Any column on that row. Real problem is storing the 'found' row number to a
> > > variable
> > >
> > > "FSt1" wrote:
> > >
> > > > hi,
> > > > what column? same column? different column?
> > > >
> > > > Regards
> > > > FSt1
> > > >
> > > > "Alan" wrote:
> > > >
> > > > > Following a find command I want to store the row number to a variablke and
> > > > > use that to move to a columb on that row

Frank,

Can you help with an embelishment to your solution. How can I trap a NO FIND
following the find command you supplied

"FSt1" wrote:

> my name is Frank Stone
> FStone
> FSt one
> how do you spell the number 1
>
> Regards
> FSt1
>
> "Alan" wrote:
>
> > Dear FSt1,
> >
> > Thanks very good. I have modified slightly and now all is OK.
> >
> > What does FSt1 mean or stand for ?
> >
> > Alan
> >
> > "FSt1" wrote:
> >
> > > hi,
> > > if you are using the built in find then you do have a problem. try this...
> > > Sub macfindrow()
> > > dim rn as string
> > > dim rng as range
> > > dim therow as long
> > >
> > > rn = inputbox("enter something to find")
> > > if rn <> "" then
> > > Set rng = nothing
> > > Set rng = range("A1:IV65536").Find(what:=rn, _
> > > After:=Range("A1"), _
> > > Lookin:=xlformulas, _
> > > Lookat:=xlpart, _
> > > SearchOrder:=xlbyrows, _
> > > SearchDirection:=xlNext, _
> > > MatchCase:=false)
> > > end if
> > > therow = rng.row
> > > msgbox "Found at cell " & rng.address
> > > msbbox "The row number is " & therow
> > > end sub
> > >
> > > therow is the variable
> > >
> > > Regards
> > > FSt1
> > > "Alan" wrote:
> > >
> > > > Hello,
> > > >
> > > > Any column on that row. Real problem is storing the 'found' row number to a
> > > > variable
> > > >
> > > > "FSt1" wrote:
> > > >
> > > > > hi,
> > > > > what column? same column? different column?
> > > > >
> > > > > Regards
> > > > > FSt1
> > > > >
> > > > > "Alan" wrote:
> > > > >
> > > > > > Following a find command I want to store the row number to a variablke and
> > > > > > use that to move to a columb on that row