Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Entering static Date/Time
Thanks for the help - I changed to column C being the trigger for A an B. I put the code below into the sheet. I get no errors, but nothin happens in the sheet. Any ideas on what I have missed? Thanks Private Sub Sheet1(ByVal Target As Range) If Target.Columns.Count 3 Then Exit Sub If Target.Column < 3 Then Exit Sub For Each cell In Target If Not IsEmpty(cell) Then Cells(Target.Row, "A").Value = Date Cells(Target.Row, "B").Value = Time Columns("A:B").AutoFit End If Next End Su -- GAMOSTEV ----------------------------------------------------------------------- GAMOSTEVE's Profile: http://www.excelforum.com/member.php...fo&userid=1476 View this thread: http://www.excelforum.com/showthread.php?threadid=26384 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Entering static Date/Time
If you want this to fire when the entry is made in column C, then don't
change the name of the procedure. Paste it in the code module for the sheet where you want this behavior. The below worked fine for me for entries in column C. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Columns.Count 1 Then Exit Sub If Target.Column < 3 Then _ Exit Sub On Error GoTo ErrHandler Application.EnableEvents = False For Each cell In Target If Not IsEmpty(cell) Then Cells(Target.Row, "A").Value = Date Cells(Target.Row, "B").Value = Time Columns("A:B").AutoFit End If Next ErrHandler: Application.EnableEvents = True End Sub -- Regards, Tom Ogilvy "GAMOSTEVE" wrote in message ... Thanks for the help - I changed to column C being the trigger for A and B. I put the code below into the sheet. I get no errors, but nothing happens in the sheet. Any ideas on what I have missed? Thanks Private Sub Sheet1(ByVal Target As Range) If Target.Columns.Count 3 Then Exit Sub If Target.Column < 3 Then Exit Sub For Each cell In Target If Not IsEmpty(cell) Then Cells(Target.Row, "A").Value = Date Cells(Target.Row, "B").Value = Time Columns("A:B").AutoFit End If Next End Sub -- GAMOSTEVE ------------------------------------------------------------------------ GAMOSTEVE's Profile: http://www.excelforum.com/member.php...o&userid=14762 View this thread: http://www.excelforum.com/showthread...hreadid=263848 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Static Date and Time and VBA editing | New Users to Excel | |||
embedded static time & date | Excel Worksheet Functions | |||
static date and time | Excel Discussion (Misc queries) | |||
how can i set a static date and time in excel | Excel Worksheet Functions | |||
Entering static Date/Time | Excel Programming |