Thread
:
Desire ChangeEvent not triggered if ChangeEvent was column (field) insertion
View Single Post
#
2
Posted to microsoft.public.excel.programming
[email protected]
external usenet poster
Posts: 5
Desire ChangeEvent not triggered if ChangeEvent was column (field) insertion
Hi,
maybe this
If Target.Column < 125 Then Exit Sub
column 125 is "DU" so change to suit.
Mike
On Wed, 14 Oct 2009 08:22:50 -0400,
wrote:
2003 2007
What would the VBA Syntax to eliminate (from ChangeEvent) i.e. the addition of a Column within the
Target Range? The issue is that all cells in that column would be populated eith a time/date stamp.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'
'
Dim myCell As Range
Dim myRange As Range
Dim myTime As String
myTime = Now()
Set myRange = Range(Target.Address)
With Application
.EnableEvents = False
.Screenupdating = False
End with
For Each myCell In myRange
With Me.Cells(myCell.Row, "DZ")
.NumberFormat = "mm/dd/yyyy hh:mm:ss"
.Value = myTime
End With
Next myCell
Range("DZ1").Value = "Date Last Update"
With Application
.ScreenUpdating = True
.EnableEvents = True
End with
End Sub
TIA EagleOne
Reply With Quote
[email protected]
View Public Profile
Find all posts by
[email protected]