macro run log

[mani_singh]

hi everyone - what ihave is a page called "log"

on this i need a two column table

in colA = date / time of macro run
in colB = successfull or failed - depending on if the macro finished or not

it must log and prepare for the next row or data entry the next time the macro is run

NOTE: the macro is singular i.e. one main macro to do everything in the service.

any ideas on how to get this done?

 

[Andrew Fergus]

Hi

In your existing code, assuming you are using error handling, you would incorporate the result like this:

'Your existing variable declarations

Dim NextRow As Long
NextRow = Worksheets("log").Range("A65536").End(xlUp).Row + 1
Worksheets("log").Cells(NextRow, 1).Value = Format(Now(), "General Date")

On Error GoTo Error_Handler

'Your existing code
'  "      "      "
'  "      "      "
'  "      "      "
'  "      "      "
'  "      "      "
'  "      "      "
'  "      "      "
'  "      "      "
'  "      "      "
'  "      "      "
'  "      "      "
'  "      "      "
Worksheets("log").Cells(NextRow, 2).Value = "Successful"

Exit_Here:
    Exit Sub

Error_Handler:
    MsgBox Err.Description, vbCritical, "Error # " & Err.Number
    Worksheets("log").Cells(NextRow, 2).Value = "Failed"
    GoTo Exit_Here
    
End Sub

I don't expect you will be able to drop this code directly into your routine but hopefully it gets you started in the right direction.

Andrew

 

[mani_singh]

thanks for that andrew! nice one