Use of Today() and change data type

[Dale]

Hi all


How would I insert the date into a cell (programatically) then change its
data type to text.
Currently, when I open the file days later, of course, Excel populates the
cells with the current date.
My desired end result is subsequent openings will display the date the cell
was originally populated. (Needs to stay the same always.)

Does anyone have a better idea how to do this?


I have the following


With oExcel
.Range("L1").Select
.Selection.NumberFormat = "General"
.ActiveCell.FormulaR1C1 = "WorkOrder"
.Range("L2").Select
.ActiveCell.FormulaR1C1 = z
.Range("L3").Select
.ActiveCell.FormulaR1C1 = z
.Range("L2").Select
.Selection.AutoFill Destination:=.Range("L2:L3"), Type:=xlFillDefault
.Range("L2:L3").Select
' .Selection.AutoFill Destination:=.Range("L2:L99"), Type:=xlFillDefault
.Selection.AutoFill Destination:=.Range("L2:L" & DATAcount + 1),
Type:=xlFillDefault

' .Range("L2:L99").Select

.Range("M1").Select
.Selection.NumberFormat = "@" '"General"
.ActiveCell.FormulaR1C1 = "DateRun"
.Range("M2").Select
.ActiveCell.FormulaR1C1 = "=TODAY()"
.Range("M3").Select
.ActiveCell.FormulaR1C1 = "=TODAY()"
.Range("M2:M3").Select
.Selection.AutoFill Destination:=.Range("M2:M" & DATAcount + 1),
Type:=xlFillDefault
' .Range("M2:M99").Select
' .ActiveWindow.LargeScroll Down:=-2
' .ActiveWindow.LargeScroll ToRight:=-1
.Range("N1").Select
' .ActiveWorkbook.Save
.ActiveWorkbook.Close SaveChanges:=True


End With


Regards
Dale

 

[STEVE BELL]

Dale

Range("G14") = Date

inputs a static date = today

 

[Bob Phillips]

With oExcel
.Range("L1").Value = "WorkOrder"
.Range("L2").FormulaR1C1 = z
.Range("L3").FormulaR1C1 = z
.Range("L2").AutoFill Destination:=.Range("L2:L3"), Type:=xlFillDefault
.Range("L2:L3").AutoFill Destination:=.Range("L2:L" & DATAcount + 1),
Type:=xlFillDefault

.Range("M1").Value = "DateRun"
.Range("M2").Value = Format(Date, "dd mmm yyyy")
.Range("M3").Value = Format(Date, "dd mmm yyyy")
.Range("M2:M3").AutoFill Destination:=.Range("M2:M" & DATAcount + 1),
Type:=xlFillDefault
.ActiveWorkbook.Close SaveChanges:=True
End With