Two macro problem

[Theangelp]

Hi,

I have a 'Log' macro on my workbook using this code: -

Please Login or Register  to view this content.

I also have an 'update' macro which copies a block of cells from one area of a worksheet to another. My problem is that when I now run the update macro I am getting a run time error '13': Type mismatch - which highlights the first line of my 'Log' code as being the problem.

Can anyone tell me a way around this please?

Many thanks in advance.

Alan.

[Logit]

The error you experience there is not reproducible here. What does occur however is multiple entries of the time and date from row 1 to row 84.
And, each row has several entries extending to the right.

I believe from your code you are wanting to time stamp each entry ? If that is the case, here is another macro that you can work with. It know it
will require some editing to display as you require but if you experiment with it I am certain you can quickly grasp the code's intent:

Please Login or Register  to view this content.

[NoSparks]

Does the 'update' macro disable and re-enable events?

[Logit]

Do you mean :

Please Login or Register  to view this content.

Ooops ... sorry .. you meant HIS update macro.

That's ok though, cuz I should have added these lines anyways.

Hey Sparks !

[Theangelp]

No. My code is :

[CODE]Sub CopyPrevious()
'
' CopyPrevious Macro
'

'
Application.ScreenUpdating = False
Columns("G:J").Select
Selection.Copy
Columns("K:K").Select
ActiveSheet.Paste
Range("K12").Select
ActiveCell.FormulaR1C1 = "Previous Quarter"
Range("K3").Select
ActiveCell.FormulaR1C1 = _
"=""Comments were last copied over on ""&TEXT(TODAY(),""dd/mm/yy"")"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False

End Sub[CODE]

[Theangelp]

Thanks Logit. I'll give this a try. Much appreciated.

[NoSparks]

You need to control Events.

Try running your CopyPrevious macro using the F8 key to step through one line at a time and see exactly where the code goes.

Then add the disable and re-enable event lines and F8 through again to see the difference.

Please Login or Register  to view this content.

Google up on disabling/re-enabling events in VBA.
If you have an error in your code or exit the sub with events disabled nothing works like it should.