Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > microsoft.public.excel.programming > #109057

Programing to save who and when someone update the file

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

Show all headers | View raw


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 | NextNext in thread | Find similar | Unroll thread


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