kashifzia423
New Member
- Joined
- Dec 12, 2014
- Messages
- 8
sir please tell me how can i make separation between text and numbers from a same cell?
Function TrailingNumber(Cell As Range) As String
TrailingNumber = Mid(Cell, Evaluate("MIN(FIND({0,1,2,3,4,5,6,7,8,9}," & Cell.Address & "&""0123456789""))"))
End Function
Function LeadingText(Cell As Range) As String
LeadingText = Left(Cell, Evaluate("MIN(FIND({0,1,2,3,4,5,6,7,8,9}," & Cell.Address & "&""0123456789""))") - 1)
End Function
For the sake of providing multiple approaches to tackle the same issue, these are my macros (Not so brillant as RegExp expressions from Hiker 95 but .... ) :
thanks