I'd use:Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim cell As Range
If Not Application.Intersect(Target, Range("n4:n100")) Is Nothing Then
For Each cell In Target
If cell.Value <> "" Then
cell.Offset(0, 1).Value = Application.UserName
Cells(cell.Row, "P").Value = Date
End If
Next
End If
End Sub
BTW: I'd change the cell formatting in column "P" to dd.mm.yyyyso that they are
"real" dates.That way, in the future if you wish to calculate something from
this date you can do so.also: your "month" value in column "A" can be:
date(Year(P2),month(P2),1)and DISPLAYED as mmm-yy
your summary table is similar.
Paul-----------------------------------------
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
-----------------------------------------
From: Pravin Gunjal <isk1...@gmail.com>
To: Excel Macros <excel-macros@googlegroups.com>; Mandeep Baluja
<rockerna...@gmail.com>; Vaibhav Joshi (Vabz) - Mumbai Excel <v...@vabs.in>
Sent: Monday, October 26, 2015 6:32 AM
Subject: $$Excel-Macros$$ VBA to pick up current date in last column
Dear Friends
I have attached an excel file in which I have used macro to get "Created by"
field automatically once the values are entered in column N (Qty).
Likewise I want the last column (Entry Date) to be updated as current date, as
and when the column N gets entered.
I have made one manual entry in row no. 7.
Could you please help me out to fulfil the requirement.
Thank you,
Regards
Pravin Gunjal
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
