subject:"RE\: $$Excel\-Macros$$ Excel Fourmla"

RE: $$Excel-Macros$$ Excel Fourmla

2011-05-13 Thread Mishra, Kailash (GE Capital, Non-GE)

: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Excel Fourmla 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(

Re: $$Excel-Macros$$ Excel Fourmla

2011-05-13 Thread ashish koul

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,