View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Bob Bridges[_2_] Bob Bridges[_2_] is offline
external usenet poster
 
Posts: 257
Default Auto-populate cells based on dates

Hi, Freddy. What criteria will you use for placing the dates in their new
location? Is it simply a serial decision (eg Jan 1 will go in row 2, Jan 5
in row 6 and Feb 2 in row 34)? If so, this sounds pretty simple, but I need
some decision to be sure.

On the assumption that you already know some VBA, here's a bit of (untested)
code that could work along the above lines:

LowestDate = CDate("2008-06-01") 'for example
For Each co In FromDateRange
If IsDate(co.Value) Then 'ignore non-date values
ToRow = CDate(co.Value) - LowestDate + 2
ToSheet.Cells(ToRow, 1) = co.Value
End If
Next co

--- "Freddy" wrote:
Microsoft Visual Basic 6.5 on Microsoft Excel 2002 SP3. I'd like assistance
in writing VBA code to evaluate a column of dates then copy them to a
different cell depending on the date thereby sorting them to eventually
determine which slots remain to be filled.