I am trying to design a macro to work with a database I made in excel. I
have a lot of questions since I have never made a macro before. But I'll
just start with a simple question. I want to run a macro that will input
the current date in cell a1, then when I run the macro the next day, I
want to input the current date in cell a2. How do I set up a macro to
do that? I tried setting up a counter but I don't know how to say
something like Range(a1 + 1) = Now. So it selects the next cell down
everytime I run it. Thanks for the help in advance.

Jason


--
cappuccine
------------------------------------------------------------------------
cappuccine's Profile: http://www.excelforum.com/member.php...o&userid=28242
View this thread: http://www.excelforum.com/showthread...hreadid=482005

Dim iLastRow as Long

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
If iLastRow = 1 And Cells(iLastRow,"A").Value = "" Tyhen
'do nothing
Else
iLastRow = iLastRow + 1
Cells(iNextRow,"A").Value = Format(Date,"dd mmm yyyy")
End If

--

HTH

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


"cappuccine" wrote
in message ...

I am trying to design a macro to work with a database I made in excel. I
have a lot of questions since I have never made a macro before. But I'll
just start with a simple question. I want to run a macro that will input
the current date in cell a1, then when I run the macro the next day, I
want to input the current date in cell a2. How do I set up a macro to
do that? I tried setting up a counter but I don't know how to say
something like Range(a1 + 1) = Now. So it selects the next cell down
everytime I run it. Thanks for the help in advance.

Jason


--
cappuccine
------------------------------------------------------------------------
cappuccine's Profile:
http://www.excelforum.com/member.php...o&userid=28242
View this thread: http://www.excelforum.com/showthread...hreadid=482005

A couple of typos.
What Bob meant to type was

Dim iLastRow as Long

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
If iLastRow = 1 And Cells(iLastRow,"A").Value = "" Then
'do nothing
Else
iLastRow = iLastRow + 1
Cells(iLastRow,"A").Value = Format(Date,"dd mmm yyyy")
End If


Regards

Roger Govier


Bob Phillips wrote:
Dim iLastRow as Long

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
If iLastRow = 1 And Cells(iLastRow,"A").Value = "" Tyhen
'do nothing
Else
iLastRow = iLastRow + 1
Cells(iNextRow,"A").Value = Format(Date,"dd mmm yyyy")
End If

Thanks Roger, but there is a also a logic error. Should be

Dim iLastRow as Long

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
If iLastRow = 1 And Cells(iLastRow,"A").Value = "" Then
'do nothing
Else
iLastRow = iLastRow + 1
End If
Cells(iLastRow,"A").Value = Format(Date,"dd mmm yyyy")


--

HTH

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


"Roger Govier" wrote in message
...
A couple of typos.
What Bob meant to type was

Dim iLastRow as Long

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
If iLastRow = 1 And Cells(iLastRow,"A").Value = "" Then
'do nothing
Else
iLastRow = iLastRow + 1
Cells(iLastRow,"A").Value = Format(Date,"dd mmm yyyy")
End If


Regards

Roger Govier


Bob Phillips wrote:
Dim iLastRow as Long

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
If iLastRow = 1 And Cells(iLastRow,"A").Value = "" Tyhen
'do nothing
Else
iLastRow = iLastRow + 1
Cells(iNextRow,"A").Value = Format(Date,"dd mmm yyyy")
End If

Hadn't spotted that one Bob<g

Regards

Roger Govier


Bob Phillips wrote:
Thanks Roger, but there is a also a logic error. Should be

Dim iLastRow as Long

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
If iLastRow = 1 And Cells(iLastRow,"A").Value = "" Then
'do nothing
Else
iLastRow = iLastRow + 1
End If
Cells(iLastRow,"A").Value = Format(Date,"dd mmm yyyy")