Solved

How to adapt this custom Excel 2010 function to use for other character than just dash?

Posted on 2016-10-28
8
38 Views
Last Modified: 2016-11-04
I had this question after viewing Would like this function to be made to work like a MID function, but in reverse..

Function GetDash(r As Range) As String
        Dim intPos As Integer
        intPos = InStrRev(r, "-")
        GetDash = Mid(r, intPos - 1)
End Function
0
Comment
Question by:Alex972
  • 3
  • 2
  • 2
  • +1
8 Comments
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 41864184
Function GetDash(r As Range, s as string) As String
        Dim intPos As Integer
        intPos = InStrRev(r, s)
        GetDash = Mid(r, intPos - 1)
End Function


and call it like

=getdash(a1,"@")
0
 
LVL 46

Expert Comment

by:Martin Liss
ID: 41864185
Function GetDash(r As Range) As String
        Dim intPos As Integer
        intPos = InStrRev(r, "-")
        GetDash = Mid(r, intPos - 1)
End Function

Open in new window

Change the "-" in line 3 to something else or
Function GetDash(r As Range) As String
        Dim intPos As Integer
        Dim strChar As String

        strChar = Inputbox("Enter desired character")
        intPos = InStrRev(r, strChar)
        GetDash = Mid(r, intPos - 1)
End Function

Open in new window

0
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 41864207
You can improve this to

Function GetDash(r As Range, Optional s As String = "-") As String
        Dim intPos As Integer
        intPos = InStrRev(r, s)
        GetDash = Mid(r, intPos - 1)
End Function


so dash (-) is the default value if the second argument is not given
1
Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
LVL 46

Expert Comment

by:Martin Liss
ID: 41864210
Nice idea Syed.
0
 
LVL 35

Expert Comment

by:[ fanpages ]
ID: 41864231
Note: If the String variable s does not exist within String variable r &, hence, intPos will be zero (0), then the following statement will produce a run-time error:

GetDash = Mid(r, intPos - 1)
0
 
LVL 1

Author Comment

by:Alex972
ID: 41864424
I added these different functions to a module where I have a working function.
I tried the dash and other values, but I only get #VALUE! or blank.
0
 
LVL 1

Accepted Solution

by:
Alex972 earned 0 total points
ID: 41866107
I appreciate the solutions suggested, but I searched elsewhere and found this:

Function Reverse(str As String) As String
    Reverse = StrReverse(Trim(str))
End Function

I like this because it can be used with MID, REPLACE and SUBSTITUTE.

A1 formula =reverse(MID(reverse(B1),1,FIND("-",reverse(B1))-2))
A1 results   =Formulas > Formula Auditing > Trace Precedents      

B1 value     =Show arrows that indicate what cells affect the value of the currently selected cell. - Formulas > Formula Auditing > Trace Precedents
reverse-mid.jpg
0
 
LVL 1

Author Closing Comment

by:Alex972
ID: 41873682
The functions that were submitted didn't work for me.  I searched other sites and found a workable solution.
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
Introduction This Article briefly covers methods of calculating the NPV and IRR variants in Excel as well as the limitations in calculating and interpreting IRR results. Paraphrasing Richard Shockley, author of my favourite finance reference tex…
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question