Display cursor position in cell

[Regina Rodler]

Hello there,

is it possible, and if so, how, to show X- and Y-coordinates
of the cursor position in a range / cell while mouse moves ?

Thank you in advance,

Regards,

RR

[Paul B]

Regina, here is one way, right click on the worksheet tab and view code,
paste this in the window that opens
will put the cell address in A1, change to the cell you want

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = ActiveCell.Address
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Regina Rodler" <[email protected]> wrote in message
news:%[email protected]...
> Hello there,
>
> is it possible, and if so, how, to show X- and Y-coordinates
> of the cursor position in a range / cell while mouse moves ?
>
> Thank you in advance,
>
> Regards,
>
> RR
>

[Regina Rodler]

Thank you Paul,

but what I need is a continuous display of coordinates of actual
coordinate-values whenever mouse is moved.

RR

"Paul B" <[email protected]> schrieb im Newsbeitrag
news:[email protected]...
> Regina, here is one way, right click on the worksheet tab and view code,
> paste this in the window that opens
> will put the cell address in A1, change to the cell you want
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> [A1] = ActiveCell.Address
> End Sub
>
>
> --
> Paul B
> Always backup your data before trying something new
> Please post any response to the newsgroups so others can benefit from it
> Feedback on answers is always appreciated!
> Using Excel 2002 & 2003
>
> "Regina Rodler" <[email protected]> wrote in message
> news:%[email protected]...
>> Hello there,
>>
>> is it possible, and if so, how, to show X- and Y-coordinates
>> of the cursor position in a range / cell while mouse moves ?
>>
>> Thank you in advance,
>>
>> Regards,
>>
>> RR
>>
>
>

[Regina Rodler]

Thank you Paul,

but what I need is a continuous display of
actual cursor position as mouse is moved.

RR

"Paul B" <[email protected]> schrieb im Newsbeitrag
news:[email protected]...
> Regina, here is one way, right click on the worksheet tab and view code,
> paste this in the window that opens
> will put the cell address in A1, change to the cell you want
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> [A1] = ActiveCell.Address
> End Sub
>
>
> --
> Paul B
> Always backup your data before trying something new
> Please post any response to the newsgroups so others can benefit from it
> Feedback on answers is always appreciated!
> Using Excel 2002 & 2003
>
> "Regina Rodler" <[email protected]> wrote in message
> news:%[email protected]...
>> Hello there,
>>
>> is it possible, and if so, how, to show X- and Y-coordinates
>> of the cursor position in a range / cell while mouse moves ?
>>
>> Thank you in advance,
>>
>> Regards,
>>
>> RR
>>
>
>

[Tom Ogilvy]

Here is code by Patrick Malloy that shows it every second:

Option Explicit
Global bShowPos As Boolean
Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Type POINTAPI
X As Long
Y As Long
End Type
Sub start_timer()
bShowPos = True
Application.OnTime Now + _
TimeValue("0:00:01"), "ShowPos"
End Sub
Sub ShowPos()
Dim lRetVal As Long
Dim Pos As POINTAPI
lRetVal = GetCursorPos(Pos)
Application.StatusBar = Pos.X & ", " & Pos.Y
Range("A1") = Pos.X & ", " & Pos.Y
If bShowPos Then
start_timer
Else
Application.StatusBar = False
End If
End Sub
Sub Stop_Timer()
bShowPos = False
End Sub

--
Regards,
Tom Ogilvy

"Regina Rodler" <[email protected]> wrote in message
news:[email protected]...
> Thank you Paul,
>
> but what I need is a continuous display of coordinates of actual
> coordinate-values whenever mouse is moved.
>
> RR
>
> "Paul B" <[email protected]> schrieb im Newsbeitrag
> news:[email protected]...
> > Regina, here is one way, right click on the worksheet tab and view code,
> > paste this in the window that opens
> > will put the cell address in A1, change to the cell you want
> >
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > [A1] = ActiveCell.Address
> > End Sub
> >
> >
> > --
> > Paul B
> > Always backup your data before trying something new
> > Please post any response to the newsgroups so others can benefit from it
> > Feedback on answers is always appreciated!
> > Using Excel 2002 & 2003
> >
> > "Regina Rodler" <[email protected]> wrote in message
> > news:%[email protected]...
> >> Hello there,
> >>
> >> is it possible, and if so, how, to show X- and Y-coordinates
> >> of the cursor position in a range / cell while mouse moves ?
> >>
> >> Thank you in advance,
> >>
> >> Regards,
> >>
> >> RR
> >>
> >
> >
>
>

[Tom Ogilvy]

This code by Bob Phillips would be more responsive:
http://groups.google.co.uk/groups?hl...TNGP11.phx.gbl

--
Regards,
Tom Ogilvy

"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> Here is code by Patrick Malloy that shows it every second:
>
> Option Explicit
> Global bShowPos As Boolean
> Declare Function GetCursorPos Lib "user32" _
> (lpPoint As POINTAPI) As Long
> Type POINTAPI
> X As Long
> Y As Long
> End Type
> Sub start_timer()
> bShowPos = True
> Application.OnTime Now + _
> TimeValue("0:00:01"), "ShowPos"
> End Sub
> Sub ShowPos()
> Dim lRetVal As Long
> Dim Pos As POINTAPI
> lRetVal = GetCursorPos(Pos)
> Application.StatusBar = Pos.X & ", " & Pos.Y
> Range("A1") = Pos.X & ", " & Pos.Y
> If bShowPos Then
> start_timer
> Else
> Application.StatusBar = False
> End If
> End Sub
> Sub Stop_Timer()
> bShowPos = False
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
> "Regina Rodler" <[email protected]> wrote in message
> news:[email protected]...
> > Thank you Paul,
> >
> > but what I need is a continuous display of coordinates of actual
> > coordinate-values whenever mouse is moved.
> >
> > RR
> >
> > "Paul B" <[email protected]> schrieb im Newsbeitrag
> > news:[email protected]...
> > > Regina, here is one way, right click on the worksheet tab and view
code,
> > > paste this in the window that opens
> > > will put the cell address in A1, change to the cell you want
> > >
> > > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > > [A1] = ActiveCell.Address
> > > End Sub
> > >
> > >
> > > --
> > > Paul B
> > > Always backup your data before trying something new
> > > Please post any response to the newsgroups so others can benefit from
it
> > > Feedback on answers is always appreciated!
> > > Using Excel 2002 & 2003
> > >
> > > "Regina Rodler" <[email protected]> wrote in message
> > > news:%[email protected]...
> > >> Hello there,
> > >>
> > >> is it possible, and if so, how, to show X- and Y-coordinates
> > >> of the cursor position in a range / cell while mouse moves ?
> > >>
> > >> Thank you in advance,
> > >>
> > >> Regards,
> > >>
> > >> RR
> > >>
> > >
> > >
> >
> >
>
>

[Regina Rodler]

Thank you, Tom !

RR

"Tom Ogilvy" <[email protected]> schrieb im Newsbeitrag
news:[email protected]...
> This code by Bob Phillips would be more responsive:
> http://groups.google.co.uk/groups?hl...TNGP11.phx.gbl
>
> --
> Regards,
> Tom Ogilvy
>
> "Tom Ogilvy" <[email protected]> wrote in message
> news:[email protected]...
>> Here is code by Patrick Malloy that shows it every second:
>>
>> Option Explicit
>> Global bShowPos As Boolean
>> Declare Function GetCursorPos Lib "user32" _
>> (lpPoint As POINTAPI) As Long
>> Type POINTAPI
>> X As Long
>> Y As Long
>> End Type
>> Sub start_timer()
>> bShowPos = True
>> Application.OnTime Now + _
>> TimeValue("0:00:01"), "ShowPos"
>> End Sub
>> Sub ShowPos()
>> Dim lRetVal As Long
>> Dim Pos As POINTAPI
>> lRetVal = GetCursorPos(Pos)
>> Application.StatusBar = Pos.X & ", " & Pos.Y
>> Range("A1") = Pos.X & ", " & Pos.Y
>> If bShowPos Then
>> start_timer
>> Else
>> Application.StatusBar = False
>> End If
>> End Sub
>> Sub Stop_Timer()
>> bShowPos = False
>> End Sub
>>
>> --
>> Regards,
>> Tom Ogilvy
>>
>> "Regina Rodler" <[email protected]> wrote in message
>> news:[email protected]...
>> > Thank you Paul,
>> >
>> > but what I need is a continuous display of coordinates of actual
>> > coordinate-values whenever mouse is moved.
>> >
>> > RR
>> >
>> > "Paul B" <[email protected]> schrieb im Newsbeitrag
>> > news:[email protected]...
>> > > Regina, here is one way, right click on the worksheet tab and view
> code,
>> > > paste this in the window that opens
>> > > will put the cell address in A1, change to the cell you want
>> > >
>> > > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> > > [A1] = ActiveCell.Address
>> > > End Sub
>> > >
>> > >
>> > > --
>> > > Paul B
>> > > Always backup your data before trying something new
>> > > Please post any response to the newsgroups so others can benefit from
> it
>> > > Feedback on answers is always appreciated!
>> > > Using Excel 2002 & 2003
>> > >
>> > > "Regina Rodler" <[email protected]> wrote in message
>> > > news:%[email protected]...
>> > >> Hello there,
>> > >>
>> > >> is it possible, and if so, how, to show X- and Y-coordinates
>> > >> of the cursor position in a range / cell while mouse moves ?
>> > >>
>> > >> Thank you in advance,
>> > >>
>> > >> Regards,
>> > >>
>> > >> RR
>> > >>
>> > >
>> > >
>> >
>> >
>>
>>
>
>

[gonlois]

Thanks Paul, this worked perfectly in order to highlight (small) column titles when I'm entering data several rows below them