Insert formula programatically

macropod · #2 11-03-2015, 03:19 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Removing add in programatically	chrismad	Word VBA	4	05-14-2014 02:56 PM
How do I send an email programatically?	macroscope	Outlook	7	02-01-2013 02:27 PM
Insert the content of a cell into formula?	chaghrie	Excel	3	08-27-2012 05:22 AM
Sorting or an Excel formula to insert a blank row after ending a series.	PRADEEPB270	Excel	1	09-07-2011 02:33 AM