Hi Paul,
thank you very much for aour effort. There is just one thing: I paste
2 values in S14 and S15 and the macro records values in S13 and S14.
Cold you please help.
regards,
seba
On 29 sep., 14:15, Paul Schreiner <schreiner_p...@att.net> wrote:
> The trick here is knowing that when target.count > 1, then the Target Range
> becomes an array.
> So, to get the cell address and values, you have to loop through the array..
> like:
>
> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
> Dim inx
> Dim strFileName As String
> strFileName = "c:\temp\file_name.txt" 'Change as appropriate
> Open strFileName For Append As #1
> If Target.Count > 1 Then
> For inx = 0 To Target.Count - 1
> Print #1, ActiveWorkbook.Name _
> & vbTab _
> & Sh.Name _
> & vbTab _
> & Target(inx).Address _
> & vbTab _
> & Environ("username") _
> & vbTab _
> & Date _
> & vbTab _
> & Time _
> & vbTab _
> & Target(inx).Value
> Next inx
> Else
> Print #1, ActiveWorkbook.Name _
> & vbTab _
> & Sh.Name _
> & vbTab _
> & Target.Address _
> & vbTab _
> & Environ("username") _
> & vbTab _
> & Date _
> & vbTab _
> & Time _
> & vbTab _
> & Target.Value
> End If
> Close #1
> End Sub
>
>
> 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: Seba <sebastjan.hri...@gmail.com>
> To: MS EXCEL AND VBA MACROS <excel-macros@googlegroups.com>
> Sent: Thu, September 29, 2011 4:18:58 AM
> Subject: $$Excel-Macros$$ Audit Trail
>
> Hi all,
>
> I need to setup a Audi Trail system for my excel workbooks and I found
> this code on the net by google search.
> -------------------------------------------------
> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
> Range)
>
> Dim strFileName As String
> strFileName = "Location\file_name.txt" 'Change as appropriate
>
> Open strFileName For Append As #1
> If Target.Count > 1 Then
> Print #1, ActiveWorkbook.Name & vbTab & Sh.Name & vbTab &
> Target.Address & vbTab & Environ("username") & vbTab & Date & vbTab &
> Time & vbTab & "Multiple cells changed"
> Else
>
> Print #1, ActiveWorkbook.Name & vbTab & Sh.Name & vbTab &
> Target.Address & vbTab & Environ("username") & vbTab & Date & vbTab &
> Time & vbTab & Target.Value
> End If
> Close #1
>
> End Sub
> ----------------------------------------------------
>
> This does the job, but I would like to have all values logged when
> multiple cells are changed.
> Lets say I paste a range. In the log file it just states "Multiple
> cells changed". I tried modifying it, however with no success.
>
> Can anyone please help?
>
> Thank you.
> Best regards,
> seba
>
> --
> ----------------------------------------------------------------------------------
>
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links
> :http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials athttp://www.excel-macros.blogspot.com
> 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below
> linkhttp://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
