Auto Date Help!!!

[mattless1]

Hi.

Is it possible to have the cell, B1 - which will return the Date in this format of (19-Sept-2012) when a number is added into cell A1? , but also do the same for ever other line after that E.G A2-B2, A3-B3 & so on

Example, I type "206" in Cell A1.
Now B1 will show me the Date.

Thanks for any help in advance.

 

[p45cal]

try something like this in the relevant sheet's code-module:

Private Sub Worksheet_Change(ByVal Target As Range)
Set DetectRange = Range("A2:A20") 'adjust this
Set DetectedCells = Intersect(Target, DetectRange)
If Not DetectedCells Is Nothing Then
    For Each cll In DetectedCells
        With cll.Offset(, 1)
            .NumberFormat = "d-mmm-yyyy"
            .Value = Date
        End With
    Next cll
End If
End Sub

 

[mattless1]

This works like a dream. Many Many thanks for helping solve that. i have tried so many different ways.

Again Thanks