Static date and time

[jw4th]

I have an excel workbook that takes data from the first sheet and puts it into additional sheets. I have set up formulas that take the data from one to the other. Because of the formulas, one column always has zeros in it until the data from the first page is inserted. I would like to have a static date and time entered in another cell once the data in the cell with the formula becomes greater than 0. Is this possible? Very inexperienced with excel. Thanks in advance!

 

[Gary's Student]

Lets say the cell with the formula is A1 and we want the date/time stored in B1. Place the following event macro in the worksheet code area:

Private Sub Worksheet_Calculate()
   If Range("A1").Value > 0 And Range("B1") = "" Then
      Application.EnableEvents = False
         Range("B1").Value = Now
      Application.EnableEvents = True
   End If
End Sub

 

[jw4th]

So that seems to work. You will have to pardon my ignorance, but if i want this to cover a range of cells versus just one cell, how would i modify the code to cover say a1-a50 and put resulting static date in b1-b50?
Thanks!