Force condition on all Rows

  • Thread starter Thread starter afmullane
  • Start date Start date
A

afmullane

Hi there,

I am using the following code to print the system date and time in
column 3 when the user types something in column 1. However this only
ranges from row A2 to row A20.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A20], Target) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 3) = Now
Application.EnableEvents = True
End If
End Sub

I would like however, to set this condition for all of the column and
not just rows 2 through 20.

Any help would be greatly apreciated

Aidan Mullane
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro converts time entered in column E and F from Indian time to CST( without daylight saving) 1
Change_Event troubles, no error & no work. 6
Clear a "moving" range offset from Target 31
Excel How to run multiple Private Sub Worksheet_Change(ByVal Target As Range) 0
paste special in this vba code? 1
Date Stamp in Last Column in active row if any data changes in row 1
Simple Copy Paste within Worksheet Change Event 2
Combine 2 worksheet event change codes 4

Back
Top