How to split word like first name, last name without flash fill in excel...
How to split word like first name, last name without flash fill in excel
Download VBA Code File - Click here
Copy Code from here
'Created by Computer Gyan Guruji YouTube Channel (Manoj Kumar)
'Function for FirstName
Function firstname(allc As String)
Dim i As Integer
For i = 1 To Len(allc)
c_char = Mid(allc, i, 1)
If Asc(c_char) = 32 Then
GoTo ENDLOOP
Else
NEWTEXT = NEWTEXT & Mid(allc, i, 1)
End If
Next i
ENDLOOP:
firstname = NEWTEXT
End Function
'Function for MIDDLE NAME
Function midname(allc As String)
Dim i As Integer
For i = 1 To Len(allc)
c_char = Mid(allc, i, 1)
If Asc(c_char) = 32 Then
SP_POS = Application.WorksheetFunction.Find(" ", allc, 1)
GoTo ENDLOOP
Else
End If
Next i
ENDLOOP:
For i = SP_POS + 1 To Len(allc)
c_char = Mid(allc, i, 1)
If Asc(c_char) = 32 Then
GoTo ENDLOOP1
Else
NEWTEXT = NEWTEXT & Mid(allc, i, 1)
End If
Next i
ENDLOOP1:
midname = NEWTEXT
End Function
'Funciton for LAST NAME
Function lastname(allc As String)
Dim i As Integer
For i = 1 To Len(allc)
c_char = Mid(allc, i, 1)
If Asc(c_char) = 32 Then
SP_POS = Application.WorksheetFunction.Find(" ", allc, 1)
GoTo ENDLOOP
Else
End If
Next i
ENDLOOP:
For i = SP_POS + 1 To Len(allc)
c_char = Mid(allc, i, 1)
If Asc(c_char) = 32 Then
sp_pos2 = Application.WorksheetFunction.Find(" ", allc, SP_POS + 1)
GoTo ENDLOOP1
Else
End If
Next i
ENDLOOP1:
For i = sp_pos2 + 1 To Len(allc)
NEWTEXT = NEWTEXT & Mid(allc, i, 1)
Next i
lastname = NEWTEXT
End Function
Did you hear there is a 12 word phrase you can tell your man... that will induce deep feelings of love and impulsive attraction for you deep within his chest?
जवाब देंहटाएंBecause hidden in these 12 words is a "secret signal" that fuels a man's instinct to love, cherish and care for you with his entire heart...
12 Words Who Trigger A Man's Love Impulse
This instinct is so hardwired into a man's brain that it will drive him to try harder than before to take care of you.
Matter of fact, fueling this all-powerful instinct is absolutely essential to getting the best ever relationship with your man that the instance you send your man one of the "Secret Signals"...
...You'll instantly find him open his soul and mind for you in a way he haven't expressed before and he'll recognize you as the only woman in the galaxy who has ever truly attracted him.