Sub swa()
Dim s
For k = 1 To Sheets(1).Range("a65356").End(xlUp).Row
s = ""
For i = Len(Sheets(1).Cells(k, 1).Text) To 1 Step -1
If IsNumeric(Mid(Sheets(1).Cells(k, 1).Value, i, 1)) Then
s = Mid(Sheets(1).Cells(k, 1).Value, i, 1) & s
Else
Exit For
End If
Next i
MsgBox s
Sheets(1).Cells(k, 3).Value = s
Next k
End Sub
On Fri, May 13, 2011 at 7:05 PM, Mishra, Kailash (GE Capital, Non-GE) <
kailash.mis...@ge.com> wrote:
> Hi Experts,
>
>
>
> I have Consolidate Addresses along with PIN code in one column I need only
> the PIN the pin code in Next column Please confirm if any formula for this,
>
>
>
>
>
> Regards
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> *Appointment Address*
>
> *PIN Code*
>
> 13/1, NS road, room no735, Martial street,kolkata-700001
>
>
>
> Opp.Bank of India.Shanti Park,Mira Road East
>
>
>
> flat no 13,ground floor,guru nanak market,infrt of national park,laajpat
> nagar,part 4,delhi 110024
>
>
>
> 97-A, pocket-B, mayur vihar, phase-II, delhi-110092
>
>
>
> A-7, SIDDHI APARTMENT OPP.AMAR~APARTMENT OPERA SOCI., nava vikas road,
> PALDI ahm 380007
>
>
>
> # 27/161, Pragatinagar~Naranpura ahm 380013
>
>
>
> jp nagar 6 th phase near sindoora kalyana mantap sarakki signal
> Bangalore-560078
>
>
>
> THE FOYER HOUSE NO.52, 2ND CRSS HUCCHINS RD , COX TOWN, BANGALORE
>
>
>
> #229, 9th A Main~vijayanagar, NEAR GOVT SCHOOL, BANGALORE-40
>
>
>
>
>
--
*Regards*
* *
*Ashish Koul*
*akoul*.*blogspot*.com <http://akoul.blogspot.com/>
*akoul*.wordpress.com <http://akoul.wordpress.com/>
My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>
P Before printing, think about the environment.
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
