hiker95
The code you wrote works like magic.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C38")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Cells(38, 2).Value = Format(Date, "dd-mmm")
End If
End Sub
Excel 2007 | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
B | C | D | E | F | G | H | I | J | K | L | M | N | O | |||
2 | Sheet1 | |||||||||||||||
3 | ||||||||||||||||
37 | ||||||||||||||||
38 | ||||||||||||||||
39 | ||||||||||||||||
Sheet1 |
Excel 2007 | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
B | C | D | E | F | G | H | I | J | K | L | M | N | O | |||
2 | Customer1 | |||||||||||||||
3 | ||||||||||||||||
37 | ||||||||||||||||
38 | 01-Jan | write what relevant happened when I did the sames meeting. | ||||||||||||||
39 | ||||||||||||||||
Customer1 |
Private Sub Worksheet_Change(ByVal Target As Range)
' hiker95, 01/01/2017, ME982790
If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
With Application
.EnableEvents = False
.ScreenUpdating = False
With ActiveSheet
If Not .Range("B2") = vbEmpty Then
.Name = .Range("B2").Value
End If
With .Range("B38")
.Value = Now()
.NumberFormat = "dd-mmm"
End With
With .Range("C38:N38")
.MergeCells = True
.HorizontalAlignment = xlCenter
End With
End With
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub