hello again

Removing the quotes gives an compile error:endstatement error,

We are nearly their so hopefully you can solve this for me.

Once again I thankyou for timeout on my issue.


"ryguy7272" wrote:

Those pesky double quotes...

Try this:
ActiveCell.FormulaR1C1 = "=MID(RC[-1],1+(LEFT(RC[-1])="0"),99)"


HTH,
Ryan---
--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Steved" wrote:

Hello ryguy7272

ryguy7272 the below line is producing =MID(A2,1+(LEFT(A2)="0"),99)

ActiveCell.FormulaR1C1 = "=MID(RC[-1],1+(LEFT(RC[-1])=""0""),99)"

I'm not shore what to do for it be =MID(B2,1+(LEFT(B2)="0"),99)

Please I thanyou for your patience on my issue.




"ryguy7272" wrote:

There are MANY ways to do this. This may be one of the more intuitive ways;
hopefully easy to interpret the logic:

Sub DelZeros()
'Do Until ActiveCell = ""
For X = 1 To 1
Dim Rng As Range
Set Rng = Range("B2", Range("B56000").End(xlUp))
For Each cell In Rng
If cell.Value < "" Then
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=MID(RC[-1],1+(LEFT(RC[-1])=""0""),99)"
ActiveCell.Offset(1, -1).Select
End If
Next cell
Next X
'Loop
End Sub


HTH,
Ryan---
--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Steved" wrote:

Hello from Steved

Col B:B
Column format is General
0702301 to become 702301 but if it has an X702301 please ignore
Yes I'm only requiring the first digit of the cell to be changed ie delete
"0" if it has an "X" ignore it and find the next "0"

The bottom is similar as to what I'm trying to acheive please
Sub removezero()
Range("B2:B250").Formula = "=required Formula please"
End Sub

Thankyou