Thread: Help with Code
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Jim May Jim May is offline
external usenet poster
 
Posts: 477
Default Help with Code

Yes, they are primarily Check Numbers,,, 63444, 63445, but an occiation
63446, Blamk, Blank, Blank, They were originally numbers - General Format; I
I looped thru trying to assign a " ' " prefix..

"Bob Phillips" wrote:

Are those cells formatted as Text?

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"JimMay" wrote in message
news:EcT2g.7644$fG3.5368@dukeread09...
After Running the below Macro, certain cells (just 2 or 3) contain The
R[-1]C versus 65546 (a number type); How can I correct?
TIA;;


Private Sub FillNum()
' Macro recorded 4/23/2006 by Jim May
'
Lrow = Cells(Rows.Count, "E").End(xlUp).Row ' get last row using
amt col
Set MyNum = Range("F5:F" & Lrow)
MyNum.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
MyNum.Copy
MyNum.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A4").Select
End Sub