In need of a macro.

[Guest]

I am looking for a macro that will seperate and add the next day.

When I use this worksheet, sometimes I input multiple days at a time so
the now function wouldn't work. But i would like to be able to run a macro
that will look and see what the last day entered was in column B. Insert a
break of some sort. Preferably fill cells A:Q solid black. How they are
seperated is unimportant. Just something to show the end of a day. For
example, if cell B26 is my last entry, and it was 11/23/2004. Starting at
A27, Fill cells A2727 with a black background, and in those cells in white
bold font enter 11/24/2004.

Thanks in advance for your help,
Steve

 

[Guest]

A bit of a revision or clarification, when 11/24/2004 is entered, I would
like it to be entered in column B. I don't want A to be merged.

Thanks again,
Steve

 

[Bob Phillips]

Sub FillIn()
Dim cLastRow As Long

cLastRow = Cells(Rows.Count, "B").End(xlUp).Row
With Cells(cLastRow + 1, "A").Resize(1, 17)
.Interior.Color = RGB(&H0, &H0, &H0)
.Value = Cells(cLastRow, "B").Value + 1
With .Font
.Bold = True
.Color = RGB(&HFF, &HFF, &HFF)
End With
.NumberFormat = "mm/dd/yy"
End With

End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

The macro worked great. I have one quick question. The date being entered
appears all the cells for the specified row. Is there a way to modify it so
that it only appears in column B?

 

[Tom Ogilvy]

Sub FillIn()
Dim cLastRow As Long

cLastRow = Cells(Rows.Count, "B").End(xlUp).Row
With Cells(cLastRow + 1, "A").Resize(1, 17)
.Interior.Color = RGB(&H0, &H0, &H0)
.Item(1,1).Value = Cells(cLastRow, "B").Value + 1
With .Item(1,1).Font
.Bold = True
.Color = RGB(&HFF, &HFF, &HFF)
End With
.Item(1,1).NumberFormat = "mm/dd/yy"
End With

End Sub