InStrRev not extracting data to right of last space in string

Hey all, I created this macro in VBA:

Please Login or Register  to view this content.

This line:

secondary_last_name = Left(main_name, InStrRev(main_name, " ") + 1)

is supposed to extract:

DIAZ

in:

ROGELIO P DIAZ

Instead, it doesn't extract anything.


For example in this:

ROGELIO P DIAZ &W CLUADIA L

This line:

MsgBox secondary_first_name & " " & secondary_last_name

is supposed to return this:

CLUADIA L DIAZ

rather it returns this:

CLUADIA L ROGELIO P DIAZ

Not sure why the instrrev function is not returning the data to the right of the last space in the string main_name *(e.g. ROGELIO P DIAZ) in order to extract DIAZ.

Thanks for response.

Hi

Your problem is caused by using pos, not pos-1 as this includes the space after
ROGELIO P DIAZ_ (underscore used to show space)
So, InstrRev is fining that 16th Character at the end of the main name.

Also, uou should be using Mid not left to obtain secondary_last_name

Please Login or Register  to view this content.