Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > microsoft.public.excel.programming > #109057
| From | S@bugomes <Sbugomes.11c4d828@excelbanter.com> |
|---|---|
| Newsgroups | microsoft.public.excel.programming |
| Subject | Programing to save who and when someone update the file |
| Date | 2016-07-08 03:51 +0100 |
| Message-ID | <Sbugomes.11c4d828@excelbanter.com> (permalink) |
| Organization | ExcelBanter.com |
I'm trying to programing the file to save in the column "R" and "S" the
timing and user who updated the file, but this only works for updating
in the first column...how can I do to works in all colums (from A to
Q)?
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo TratarErro
If Target.Column = 1 And Target.Value <> "" Then
Application.ScreenUpdating = False
Target.Offset(0, 1).Value = Now()
Target.Offset(0, 2).Value = VBA.Environ("username")
End If
TratarErro:
Application.ScreenUpdating = True
End Sub
--
S@bugomes
Back to microsoft.public.excel.programming | Previous | Next — Next in thread | Find similar | Unroll thread
Programing to save who and when someone update the file S@bugomes <Sbugomes.11c4d828@excelbanter.com> - 2016-07-08 03:51 +0100
Re: Programing to save who and when someone update the file "Auric__" <not.my.real@email.address> - 2016-07-08 06:26 +0000
Re: Programing to save who and when someone update the file GS <gs@v.invalid> - 2016-07-08 09:49 -0400
Re: Programing to save who and when someone update the file "Auric__" <not.my.real@email.address> - 2016-07-08 17:28 +0000
Re: Programing to save who and when someone update the file GS <gs@v.invalid> - 2016-07-08 13:49 -0400
csiph-web