ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   using best approach for activecell property (https://www.excelbanter.com/excel-programming/417230-using-best-approach-activecell-property.html)

thread

using best approach for activecell property
 
hi
i need to build with excel an option to put time signiture after an
update of another cell
the relevant way i need is for every cell that was inputed i need
right a way to put a time signiture in the offset of 1 column,the
problem is that the selectionchange or change function are working
after the information was added or before any inputs made
is it posible to have the information once it was just inputted?

Mike H

using best approach for activecell property
 
Hi,

I don't follow your coments on when change event code works but this may do
what you want. Right click the sheet tab, view code and paste it in. Works on
Column A so change to suit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(, 1).Value = Time
Application.EnableEvents = True
End If
End Sub

Mike

"thread" wrote:

hi
i need to build with excel an option to put time signiture after an
update of another cell
the relevant way i need is for every cell that was inputed i need
right a way to put a time signiture in the offset of 1 column,the
problem is that the selectionchange or change function are working
after the information was added or before any inputs made
is it posible to have the information once it was just inputted?


thread

using best approach for activecell property
 
thank you very much,it realy worked for me....

On 17 ספטמבר, 22:04, Mike H wrote:
Hi,

I don't follow your coments on when change event code works but this may do
what you want. Right click the sheet tab, view code and paste it in. Works on
Column A so change to suit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
* * Target.Offset(, 1).Value = Time
Application.EnableEvents = True
End If
End Sub

Mike



"thread" wrote:
hi
i need to build with excel an option to put time signiture after an
update of another cell
the relevant way i need is for every cell that was inputed i need
right a way to put a time signiture in the offset of 1 column,the
problem is that the selectionchange or change function are working
after the information was added or before any inputs made
is it posible to have the information once it was just inputted?-הסתר טקסט מצוטט-


-הראה טקסט מצוטט-




All times are GMT +1. The time now is 12:04 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com