Deleting first character issue

  • Thread starter Thread starter saman110 via OfficeKB.com
  • Start date Start date
S

saman110 via OfficeKB.com

This macro deletes first character of each cell in a range. But if there is
black cell in the begining or in between cells it does not work.
Is there any way to overcome this issue.

thx.

Sub RemoveQuote()
On Error GoTo e
Dim rng As Range, cell As Object
Set rng = Selection
For Each cell In rng
cell = Right(cell, Len(cell) - 1)

Next cell
e:
End Sub
 
Sub RemoveQuote_R1()
On Error GoTo e
Dim rng As Range, cell As Range
Set rng = Selection
For Each cell In rng.Cells
If cell.HasFormula = False Then
If Len(cell.PrefixCharacter) > 0 Then
cell.Value = cell.Value
ElseIf Len(cell.Value) > 0 Then
cell.Value = Right(cell.Value, Len(cell.Value) - 1)
End If
End If
Next 'cell
e:
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"saman110 via OfficeKB.com"
wrote in message
This macro deletes first character of each cell in a range. But if there is
black cell in the begining or in between cells it does not work.
Is there any way to overcome this issue.
thx.

Sub RemoveQuote()
On Error GoTo e
Dim rng As Range, cell As Object
Set rng = Selection
For Each cell In rng
cell = Right(cell, Len(cell) - 1)
Next cell
e:
End Sub
 
Back
Top