View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] sailor4life61@yahoo.com is offline
external usenet poster
 
Posts: 7
Default Fill in the blanks

Hello,
I would like to fill in the blanks cells in column A row 14 through
last used row with the formula =mid(A2,2,10). Column B has last used
row.

Im trying unsucessfully to use something like, but it isn't filling in
the blanks:

Dim LastRow As Long
Dim rng As Range
Dim i As Long
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
For i = 14 To cLastRow
'If Cells(i, "A").Value = "" Then
Cells(i, "A").Formula = "=MID(R[-12]C[2],2,10)"

' End If
Next i

Thank you