Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Hello, I have the following code, but not sure how to exclude top few lines
(as header) from being affected, to modify range.. thanks Option Explicit Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count 1 Then Exit Sub If Not Intersect(Me.Range("AJ:AJ"), .Cells) Is Nothing Then Application.EnableEvents = False With Me.Cells(.Row, "AG") .NumberFormat = "dd" .Value = Now End With Application.EnableEvents = True End If If Not Intersect(Me.Range("AO:AR"), .Cells) Is Nothing Then Application.EnableEvents = False With Me.Cells(.Row, "AU") .NumberFormat = "dd" .Value = Now End With Application.EnableEvents = True End If End With End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
auto date script for 2 columns? have 1.. | Excel Discussion (Misc queries) | |||
How do I calculate if a date is in a certain time frame? | Excel Worksheet Functions | |||
Recurring annual events using a specific date as a trigger date | Excel Worksheet Functions | |||
Making a auto date entered into a cell permanent from a template | Excel Discussion (Misc queries) | |||
Auto date changing in Excel is maddening | Charts and Charting in Excel |