Home |
Search |
Today's Posts |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Try...
Sub Solution3() Dim rng As Range Set rng = Range("a2", Range("a" & Rows.Count).End(xlUp)) rng.Offset(, 1).Formula = "=year(a2)" With rng.Offset(, 1) .Value = .Value End With Set rng = Nothing End Sub -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Help needed Writing formula that totals data at end of column | Excel Programming | |||
Help needed Writing formula that totals data at end of column | Excel Programming | |||
Help needed with macro: Writing contents of two cells to two new columns | Excel Programming | |||
VB evaluate a value in a table's column and display msgbox | Excel Discussion (Misc queries) |