Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 352
  • Last Modified:

how do I get the referenced cell in a vba function

I am writing a custom function for vba to parse a string.  When the user enters a cell (a15) in the formula bar to set which cell needs to be converted , i need to know that cell in my code so i can then write the answers.  it's not the activecell.
0
BROOKLYN1950
Asked:
BROOKLYN1950
  • 3
  • 2
  • 2
  • +2
2 Solutions
 
SiddharthRoutCommented:
I would recommend using a UDF For example

Public Sub ParseSring(rng As Range)
       rng.Value = rng.Value & " Hello World"
End Sub

Open in new window


You can directly call the ParseSring from excel. For Example

=ParseSring(A1)

So if the value of A1 is "Hi" then then output will be "Hi Hello World"

Sid
0
 
BROOKLYN1950Author Commented:
how could i then write the results of the new string to the next cell down from the value put in in excel?
0
 
NorieCommented:
Do you mean a user defined function which the user can use like a built-in function?

If you do then it might not be possible to do what you want, mainly because a UDF can't alter the value of a cell - it can only return a value to the cell the function is in.

For example this UDF would return the first word in as string and you could use it in a cell like this:

=GetFirstWord(A1)

where A1 contains the string you want to get the first word from.


Option Explicit

Function GetFirstWord(rng As Range) As String
Dim pos As Long

       pos = InStr(rng, " ")

        pos = IIf(pos, pos - 1, Len(rng.Value))
        
       GetFirstWord = Left(rng.Value, pos)
       
End Function

Open in new window

0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
SiddharthRoutCommented:
In that case put the formula in the next cell and reference the 1st cell in the function if the string that needs to be parsed is in 1sy cell. For example if

A1 = "Hi"

Then type this formulas in cell A2

=ParseSring(A1)

The result in A2 will be

"Hi Hello World"

Sid

Sid
0
 
BROOKLYN1950Author Commented:
sorry for being inarticulate,

my function requires me to separate out from the target cell (A1) ie  my - cat  into to separate cells, one containing "my" the other containing "cat".  I can already create the different strings in sepatarte temp strings,

how can I offset from that target cell (which my code doesn't know) so A2 has "my"  and and A3 has "cat"
0
 
SiddharthRoutCommented:
Instead of using a function, write a sub and then run it for example see the attached excel file.

If you run the Sub ParseString(), the results will be auto populated in the next rows. You will have to amend it for realistic situations.

Sid

Code Used

Sub ParseString()
    parsestr Range("A1")
End Sub

Sub parsestr(rng As Range)
    Dim MyArray() As String
    
    MyArray = Split(rng.Value, "-")
    j = 0
    For i = rng.Row To (rng.Row + UBound(MyArray))
        rng.Offset(i).Value = Trim(MyArray(j))
        j = j + 1
    Next i
End Sub

Open in new window

Sample.xls
0
 
NorieCommented:
You can't do that with a function, but you can do it with a sub.

You could even to it with a worksheet event which will be triggered whenver something is entered on the worksheet.

What code do you currently have and how can it not know the string to parse?
0
 
TinTombStoneCommented:
Just use Text to Columns in the Data Menu/Tab

Why reinvent the wheel?
0
 
TracyVBA DeveloperCommented:
This question has been classified as abandoned and is being closed as part of the Cleanup Program. See my comment at the end of the question for more details.
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 3
  • 2
  • 2
  • +2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now