Recording multiple event details to same row

[sharky12345]

I'm using this to record an event;

Sub ErrorAUDIT(Evnt As String)
Application.ScreenUpdating = False
Set ws = Worksheets("Audit")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = Now
ws.Cells(iRow, 2).Value = Evnt
ws.Cells(iRow, 3).Value = evnt2
ws.Cells(iRow, 4).Value = Evnt3
ws.Cells(iRow, 5).Value = Evnt4
ws.Cells(iRow, 6).Value = Evnt5
Application.ScreenUpdating = True
End Sub

and this to call the event, which is triggered by a compile error;

Dim Evnt As String
Evnt = "Program Error"
evnt2 = ErrNo
Evnt3 = strDescription
Evnt4 = strProcedure
Evnt5 = ErrLine
Call ErrorAUDIT(Evnt)

My issue is that it is only recording the Evnt and not the others - can someone show me what I need to do please to get it to record all of the error details?

 

[dmt32]

Hi,
looking at your code you are only passing one of the variables to your ErrorAUDIT procedure as an argument.
You can pass all the other variables using a ParamArray as your argument.

Sub ErrorAUDIT(ParamArray Evnt() As Variant)
Application.ScreenUpdating = False
Set ws = Worksheets("Audit")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = Now
ws.Cells(iRow, 2).Value = Evnt(0)
ws.Cells(iRow, 3).Value = Evnt(1)
ws.Cells(iRow, 4).Value = Evnt(2)
ws.Cells(iRow, 5).Value = Evnt(3)
ws.Cells(iRow, 6).Value = Evnt(4)
Application.ScreenUpdating = True
End Sub

Dim Evnt As String
Evnt = "Program Error"
Evnt2 = ErrNo
Evnt3 = strDescription
Evnt4 = strProcedure
Evnt5 = ErrLine
Call ErrorAUDIT(Evnt, Evnt2, Evnt3, Evnt4, Evnt5)

above is untested but hopefully, will do what you want.

You may also want to have a look here:https://forums.windowssecrets.com/s...-to-create-log-file-when-runtime-error-occurs
which you may find of interest.

Dave

 

[sharky12345]

Thanks so much Dave!