Solved

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

Posted on 2016-10-28
8
41 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 47

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
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 47

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

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

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

Suggested Solutions

Freeze panes is an option within all variants of Excel to enable parts of a sheet to remain stationary when the cursor is in another part of the sheet. This is a very useful feature which is overlooked or under used.
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
This Micro Tutorial demonstrates in Microsoft Excel how to consolidate your marketing data by creating an interactive charts using form controls. This creates cool drop-downs for viewers of your chart to choose from.
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

756 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