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>
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


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