Thread: Insert formula programatically
View Single Post
 
Old 11-03-2015, 03:19 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Is there a reason for not using something like:
=TEXT(DATEVALUE(TEXT(B1,"0000-00-00")),"MMM DD, YYYY")&": "&C1
in column D?

For example:
Code:
Sub Demo()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim i As Long
With ThisWorkbook.Worksheets("Sheet1").UsedRange
  For i = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row
    .Cells(i, 4).Value = "=TEXT(DATEVALUE(TEXT(B" & i & "," & _
      Chr(34) & "0000-00-00" & Chr(34) & "))," & Chr(34) & _
      "MMM DD, YYYY" & Chr(34) & ")&" & Chr(34) & ": " & Chr(34) & "&C" & i
  Next
End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote