Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Capture cell address in UDF
Hi NG!
Is there a way of capturing the cell address of an argument in a UDF in stead of the value of the argument. I have a UDF definition like Function Test(arg) .... End Function when I use the function I type =test(A1) and i get the value of A1. But what I like to captuire is the address A1 Is there any way to achieve this? Jan |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Capture cell address in UDF
Function Test(arg As Range)
Test = arg.Address End Function Mike F "Jan Kronsell" wrote in message ... Hi NG! Is there a way of capturing the cell address of an argument in a UDF in stead of the value of the argument. I have a UDF definition like Function Test(arg) ... End Function when I use the function I type =test(A1) and i get the value of A1. But what I like to captuire is the address A1 Is there any way to achieve this? Jan |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Capture cell address in UDF
Put this into its own module Function CPosition() As String 'Runs from sheet1 to trigger event 'To get it to work, enter this into the desired cell: '=CPos() Application.Volatile CPosition = "Cursor is in " & ActiveCell.Address(False, False) End Function And put this into sheet1 module Private Sub Worksheet_SelectionChange(ByVal Target As Range) Worksheets("Sheet1").Range("A1").Formula = CPosition() Me.Calculate End Sub "Jan Kronsell" wrote: Hi NG! Is there a way of capturing the cell address of an argument in a UDF in stead of the value of the argument. I have a UDF definition like Function Test(arg) .... End Function when I use the function I type =test(A1) and i get the value of A1. But what I like to captuire is the address A1 Is there any way to achieve this? Jan |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Capture cell address in UDF
Thank you, but I need a fucntion not a Sub.
Jan "Mike" skrev i en meddelelse ... Put this into its own module Function CPosition() As String 'Runs from sheet1 to trigger event 'To get it to work, enter this into the desired cell: '=CPos() Application.Volatile CPosition = "Cursor is in " & ActiveCell.Address(False, False) End Function And put this into sheet1 module Private Sub Worksheet_SelectionChange(ByVal Target As Range) Worksheets("Sheet1").Range("A1").Formula = CPosition() Me.Calculate End Sub "Jan Kronsell" wrote: Hi NG! Is there a way of capturing the cell address of an argument in a UDF in stead of the value of the argument. I have a UDF definition like Function Test(arg) .... End Function when I use the function I type =test(A1) and i get the value of A1. But what I like to captuire is the address A1 Is there any way to achieve this? Jan |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Capture cell address in UDF
Thank you. It works great.
Jan "Mike Fogleman" skrev i en meddelelse m... Function Test(arg As Range) Test = arg.Address End Function Mike F "Jan Kronsell" wrote in message ... Hi NG! Is there a way of capturing the cell address of an argument in a UDF in stead of the value of the argument. I have a UDF definition like Function Test(arg) ... End Function when I use the function I type =test(A1) and i get the value of A1. But what I like to captuire is the address A1 Is there any way to achieve this? Jan |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Capture range object address | Excel Programming | |||
Use VBA to capture IP address | Excel Programming | |||
Capture Dynamic Range address into Modeless Form | Excel Programming | |||
Capture Dynamic Range address into Modeless Form | Excel Programming | |||
Capture Outlook E-Mail Address | Excel Programming |