Hi CMES-IT,
To convert a Julian date into a date/time serial number, you might use the following formula:
=DATE(IF(0+(LEFT(A1,2))<30
To convert it to a text string that looks like 7/15/2006, you would use:
=TEXT(DATE(IF(0+(LEFT(A1,2
If your date is a normal date/time serial number, then the formula would be:
=TEXT(A1,"m/d/yyyy")
To copy a formula down 5000 lines:
1) Insert a blank column next to your dates
2) Put the above formula next to the first date. Format that cell as a date if you are using the first formula above.
3) Select the cell containing that formula
4) Double-click the little square at the bottom right of the selection marquee. This will automatically copy your formula down.
5) Edit...Copy the selection (should be all 5000 cells)
6) Select the original date cell
7) Edit...Paste Special...Values
8) Delete the inserted column
Hoping to be helpful,
Brad
Main Topics
Browse All Topics





by: zorvekPosted on 2006-11-13 at 10:14:55ID: 17932028
You are going to need a macro to do the work. Add this macro to any general module, select the cells to convert, and run the macro.
dValues()
Public Sub ConvertSelectionToFormatte
Dim Cell As Range
Dim Value As String
For Each Cell In Selection
Value = Cell.Text
Cell.NumberFormat = "@"
Cell = Value
Next Cell
End Sub
Kevin