Need excel expert

kashif.special2005

Active Member
Joined
Oct 26, 2009
Messages
443
Hi,
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p> </o:p>
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:p> </o:p>
I am using this code but it is not working
<o:p> </o:p>
For j = last_row To 2 Step -1<o:p></o:p>
<o:p> </o:p>
cell_value = Cells(last_row, 1).Value<o:p></o:p>
<o:p> </o:p>
If IsNumeric(cell_value) = True Then
Next j<o:p></o:p>
Else<o:p></o:p>
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:p></o:p>
End If<o:p></o:p>
Next j
<o:p> </o:p>
<o:p> </o:p>
2<SUP>nd</SUP> Question:-<o:p></o:p>
<o:p> </o:p>
'Range("H2:H" & last_row).Formula = "=Value(TRIM(IF(ISTEXT(A2),MID(A2,2,LEN(A2)),A2)))"
<o:p> </o:p>
When I am applying above formula it is working fine, but when I am applying below formula it is giving me an error.
<o:p> </o:p>
Please help<o:p></o:p>
<o:p> </o:p>
'Range("H2:H" & last_row).Value=application.WorksheetFunction.TRIM(IF(ISTEXT(A2),MID(A2,2,LEN(A2)),A2))
<o:p> </o:p>
<o:p> </o:p>
Thanks,
Kashif.<o:p></o:p>
 

Excel Facts

Add Bullets to Range
Select range. Press Ctrl+1. On Number tab, choose Custom. Type Alt+7 then space then @ sign (using 7 on numeric keypad)
Have you had your special K today? Breakfast is SERVED!
icon10.gif
icon10.gif
 
Last edited:
Upvote 0
Do you like your penguin covered in chocolate? ( that is not a euphemism! )

I do! I would be happy to offer a goat made from the finest ear hairs of a pit miner, along with a small wooden duck playing the violin, for the chance at a chocolate covered penguin?
 
Upvote 0

Forum statistics

Threads
1,224,597
Messages
6,179,808
Members
452,944
Latest member
2558216095

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top