Need excel expert

[kashif.special2005]

Hi,
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
1<SUP>st</SUP> Question:- I am applying loop in cells that if cells value is alphanumeric than convert it into numeric and if cells value is numeric than next loop
<o> </o>
I am using this code but it is not working
<o> </o>
For j = last_row To 2 Step -1<o></o>
<o> </o>
cell_value = Cells(last_row, 1).Value<o></o>
<o> </o>
If IsNumeric(cell_value) = True Then
Next j<o></o>
Else<o></o>
Cells(last_row, 1).Value = Value(Trim(Mid(Cells(last_row, 1), Cells(last_row, 1), Len(Cells(last_row, 1))), Cells(last_row, 1)))<o></o>
End If<o></o>
Next j
<o> </o>
<o> </o>
2<SUP>nd</SUP> Question:-<o></o>
<o> </o>
'Range("H2:H" & last_row).Formula = "=Value(TRIM(IF(ISTEXT(A2),MID(A2,2,LEN(A2)),A2)))"
<o> </o>
When I am applying above formula it is working fine, but when I am applying below formula it is giving me an error.
<o> </o>
Please help<o></o>
<o> </o>
'Range("H2:H" & last_row).Value=application.WorksheetFunction.TRIM(IF(ISTEXT(A2),MID(A2,2,LEN(A2)),A2))
<o> </o>
<o> </o>
Thanks,
Kashif.<o></o>

 

[Burrgogi]

Did OP ever find his Excel expert?

Oh pick ME! ME!

let's see... A squared + B squared = do not square this # > If_Only_I_Could_Make_A_Meaningful_Title =nulll

What can I say - I'm a genius.

 

[Ruddles]

JackDanIce, I've a feeling we're not in Kansas any more!

 

[JackDanIce]

And that my friend did make me laugh out loud (OMG I made an actual LOL!)

 

[Burrgogi]

JackDanIce, I've a feeling we're not in Kansas any more!

How can there be a Kansas if you're living in the UK?

That would be like me saying "OMG- we're not in Stonehenge anymore!"

 

[Burrgogi]

I realize that my last post was not very helpful so as my contribution this forum, I took some time to come up with a custom vba so that our regular experts on the board can take a little breather from the daily grind.

Sub Must_Make_Kashir_Happy()
' Find fastest Excel expert on internet
' Coding by Burrgogi VBA jedi in training
Dim Title as String
Dim Problem as String

Title = "Need Excel Expert"
Problem = "My Problem"

For ea. Answer, run test
Result = noJoy
MustGetAnswer
Loop
	vbTimer 60 seconds
		MakePost = "I AM WAITING!"
	Wait
	If Thread Content = Old
Back To Loop
	If Thread Content  = New
End Loop
End Timer
End Sub

 

[Kentman]

Guys this thread....just genious pmsl!

 

[kashif.special2005]

Hi,

Still I am waiting for answer......

Thanks,
Kashif.

 

[SuperFerret]

Did you at least try GlennUK's response in post 10?

http://www.mrexcel.com/forum/showpost.php?p=2741778&postcount=10

 

[GlennUK]

Hey Super Ferret, thanks for pointing that out to Kashif ... yet still no feedback.

 

[Kentman]

Hi,

Still I am waiting for answer......

Thanks,
Kashif.

Still I am waiting for sense of humour.......(and another chance at the penguin!)