Date Stamp

[strongermel]

I am trying to have a date stamp in an adjacent cell after that cell changes. Problem I'm having is that the cell changes are not manual but based off of a formula in the cell that changes when I update other cells. Therefore the vba isn't working. Is this possible?

I have used the following vba:

Once AQ changes to a 1, I would like a time stamp in AR showing the date it was changed.

I've used a combination of the vba below and have gotten it to work but only if I drag the formula down the column AR again.


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count < 1 Then Exit Sub
If Not Intersect(Target, Range("AQ5:AQ100")) Is Nothing Then
With Target(1, 2)
.Value = Date
.EntireColumn.AutoFit
End With
End If
End Sub


Help!

If this is not possible then an alternative may be(if possible) to have a date stamp once all cells in a range are no longer empty. This would be once cells C:E are no longer empty date stamp AR w/ the date the last cell was filled.

Thank You

Melanie

 

[mclark1313]

strongermel,

I am trying to do the same thing and was wondering if you were able to figure it out?

I want to timestamp a row when I manually change a cell.

 

[Marcelo Branco]

Melanie,

Maybe using the Precedents property. Could you post the formula that changes the values of range AQ5:AQ100?

M.

 

[lenze]

Hi and welcome to the board!!! Both of you!!!

Strongerme: What cell(s) do you change manually to cause AQ to change. What I mean is, what are the precedents for AQ?

lenze