Hi Paul,
I just took the your code above:
----------------------------------------------------------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Dim inx
Dim strFileName As String
strFileName = "MyLocation\MyFile.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
------------------------------------------------------------------------------------
On 29 sep., 14:50, Paul Schreiner <schreiner_p...@att.net> wrote:
> Amresh,
>
> If you have a question, please post a NEW discussion thread
> instead of hijacking another discussion.
>
> 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: Amresh Maurya <amreshkushw...@gmail.com>
> To: excel-macros@googlegroups.com
> Sent: Thu, September 29, 2011 8:42:48 AM
> Subject: Re: $$Excel-Macros$$ Audit Trail
>
> Guys,
>
> you have any presentation ppt on internet.if you have pls send me..
>
> Regards
> Amresh
>
> On Thu, Sep 29, 2011 at 5:40 AM, Seba <sebastjan.hri...@gmail.com> wrote:
>
> 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 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 link
> >http://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 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
