Waarde van bepaalde cel opslaan in logbestand tijdens uitvoeren macro

[cocko]

Hallo,

Onlangs heeft iemand hier voor mij onderstaande code geschreven. Dit ding houdt bij wanneer en door wie een bepaalde macro is uitgevoerd. Nu zou ik graag willen dat in een derde kolom de WAARDE van cel DATA!$E$2 (op het moment van uitvoeren)geplaatst word. Wie kan mij helpen aan een (volgens mij kleine) toevoeging?

Alvast bedankt!


Dim lr As Long
Sheets("Log").Cells(Rows.Count, ("A")).End(xlUp).Offset(1) = Now
Sheets("Log").Cells(Rows.Count, ("A")).End(xlUp).Offset(, 1) = Application.UserName
ActiveWorkbook.Worksheets("Log").Sort.SortFields.Clear
lr = Sheets("Log").Cells(Rows.Count, ("B")).End(xlUp).Row
ActiveWorkbook.Worksheets("Log").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Log").Sort
.SetRange Range("A1:B" & lr)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 

[WinteE]

Probeer dit eens :

Dim lr As Long
Sheets("Log").Cells(Rows.Count, ("A")).End(xlUp).Offset(1) = Now
Sheets("Log").Cells(Rows.Count, ("A")).End(xlUp).Offset(, 1) = Application.UserName
[B]Sheets("Log").Cells(Rows.Count, ("A")).End(xlUp).Offset(, 2) = Worksheets("Data").Range("E2").Value[/B]
ActiveWorkbook.Worksheets("Log").Sort.SortFields.Clear
lr = Sheets("Log").Cells(Rows.Count, ("B")).End(xlUp).Row
ActiveWorkbook.Worksheets("Log").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Log").Sort
.SetRange Range("A1:B" & lr)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 

[cocko]

Ja, precies wat ik nodig had!

Hartelijk bedankt!