set variable for string after first underscore

ArviLaanemets · #2 07-09-2018, 11:33 AM

The worksheet formula is like (assumed the text is in cell A2, on fly)

Code:

=IFERROR(RIGHT(A2,Find("_",A2)), A2)

Sorry! With Office 2010

Code:

=IF(ISERROR(RIGHT(A2,Find("_",A2)-1)), A2,RIGHT(A2,Find("_",A2)))

When you need this in VBA, then instead FIND() you have to use InStr(), and If ... End If to handle cases when the string is not found (then InStr() returns 0).
Something like:

Code:

If InStr(SourceVariable, "_") = 0 Then
     ResultVariable = SourceVariable
Else
     ResultVariable = Right(SourceVariable, Len(SourceVariable) - InStr(SourceVariable, "_"))
End If

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Assigning a string variable to a userform label caption	Larry_1	Excel Programming	3	12-18-2017 06:59 AM
I want to create a bar chart of multiple variable. Then I need to draw trend lin of those variable	shimulsiddiquee	Excel	1	05-16-2017 07:39 AM
Emails to recipients with underscore in email address not received	gjskerritt	Outlook	0	03-14-2017 06:27 PM
Run Time Error '91': Object variable or With block variable not set using Catalogue Mailmerge	Berryblue	Mail Merge	1	11-13-2014 05:36 PM
Why unable to use underscore in microsoft word styles( user defined)?	noufalcm	Word	1	03-08-2011 01:46 PM