VBA to extract string between 2 special characters (where spec. characters appear twice)

[Sah213]

I'm looking for some VBA to extract the text: 1620011017 from the below string;

Inv_1620056384_1620011017_1034258

There could be any number of characters, so I think I would need to define it based on the fact it's the string between the 2 underscores.
I think starting from the right of the string would be easiest as starting from the left it's the 2nd string between the _ characters. Starting from the right, it's the first string that meets that criteria.

If anyone could help with their expertise, I'd really appreciate it!

 

[Joe4]

But by your rules (return the string between two underscores), 1620056384 is also between two underscores. So you have two values that meet your criteria.
So how do you know which one to return?

 

[Sah213]

Hi Joe,

Yes completely agree, so I either need;

a) a way to select the 2nd string that meets this criteria if substringing from the left, or b) if there's a way to substring from the right - then it's the first criteria that would be returned?

 

[Marc L]

A VBA demonstration as a beginner starter :​

Sub Demo1()
    V = Split("Inv_1620056384_1620011017_1034258", "_")
    If UBound(V) > 1 Then MsgBox V(2)
End Sub

 

[Joe4]

Will there always be exactly 3 underscores?
Or might there be less/more?

 

[Marc L]

​

Post #4 variation : If UBound(V) > 0 Then MsgBox V(UBound(V) - 1) …​

 

[Joe4]

A VBA demonstration as a beginner starter :

Why not just give them a dynamic solution instead of a hard-coded example that only works for the one example?

 

[Marc L]

​

Oh you did not well read the initial post ! ​

​

And as with the If codeline it works « dynamicly » obviously whatever the « string » …​

 

[Sah213]

Will there always be exactly 3 underscores?
Or might there be less/more?

Yes - there will indeed always be 3.

 

[Joe4]

Yes - there will indeed always be 3.

Here is a formulaic solution that should work on any value in cell A1, provided that the strings in between the underscores do not get too long:

=TRIM(LEFT(RIGHT(SUBSTITUTE(A1,"_",REPT(" ",100)),200),100))