Hi again,
Thank you for quick response.
I keep having issues becuase it is not runing for the following example:
x <- data.frame(customer = "SHBUF7WF2ZIEZ221T")
y <- data.frame(supplier = c("SHBUF7;WF2,ZIE,Z22,1T9","SHBUF7;WF2,ZIE,Z22,1T8",
"SHBUF7;WF2,ZIE,Z22,1T", "SHB UF7;WF2,ZIE,Z22",
"SHBUF7;WF2,ZIE,Z22,1T9999999"))
#### The solution would be
x<- data.frame(customer=c("SHBUF7WF2ZIEZ221T"),
supplier=c("SHBUF7;WF2,ZIE,Z22,1T9",
"SHBUF7;WF2,ZIE,Z22,1T8","SHBUF7;WF2,ZIE,Z22,1T",
"SHBUF7;WF2,ZIE,Z22,1T9999999"))

Thanks