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

Programing to save who and when someone update the file

Path	csiph.com!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!border2.nntp.dca1.giganews.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!buffer1.nntp.dca1.giganews.com!buffer2.nntp.dca1.giganews.com!nntp.newsgroupbanter.com!news.newsgroupbanter.com.POSTED!not-for-mail
NNTP-Posting-Date	Thu, 07 Jul 2016 22:49:02 -0500
From	S@bugomes <Sbugomes.11c4d828@excelbanter.com>
Newsgroups	microsoft.public.excel.programming
Subject	Programing to save who and when someone update the file
Date	Fri, 8 Jul 2016 03:51:27 +0100
Message-ID	<Sbugomes.11c4d828@excelbanter.com> (permalink)
Organization	ExcelBanter.com
User-Agent
X-Newsreader
X-Originating-IP
Lines	28
X-Usenet-Provider	http://www.giganews.com
X-Trace	sv3-7bQJU6OHHnMf+3mloE6HF+YDU1RW5zCWhinhCTUNar0EAu/R53D94rAexZrBsCupjPI86zY5nsHKS1s!gx02OsqoOeg8gm3wAjXY7ULCAJEUCcyKUN4uIn2w8VLR8CrtbvJsg7hLZIFS0ooa8aDHeZIwNR7R!Gaf4eB1e5A==
X-Complaints-To	abuse@newsgroupbanter.com
X-Abuse-and-DMCA-Info	Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info	Otherwise we will be unable to process your complaint properly
X-Postfilter	1.3.40
X-Original-Lines	19
X-Original-Bytes	1529
Xref	csiph.com microsoft.public.excel.programming:109057

Show key headers only | 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 | Next — Next 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