Double click activation from another sheet

In Sheet1

Please Login or Register  to view this content.

In Sheet2

Please Login or Register  to view this content.

Double-clicking in D1 on Sheet2 should give the same as double-clicking A1 in Sheet1

Originally Posted by ByteMarks

In Sheet1

Please Login or Register  to view this content.

In Sheet2

Please Login or Register  to view this content.

Double-clicking in D1 on Sheet2 should give the same as double-clicking A1 in Sheet1

I am doing something wrong and it doesn't work?

In Sheet1 (the real name is: Experiment 1500)
I have this code:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

calc = Application.Calculation
Application.Calculation = xlCalculationManual

If Target.Address = "$A$1" Then
MsgBox "You double-clicked A1 on Sheet1"
End If

Cells(5, "B") = Cells(5, "B") + Cells(16, "B")
Cancel = True

Cells(5, "A") = Cells(5, "A") + Cells(13, "A")
Cancel = True

Cells(8, "A") = Cells(8, "A") + Cells(21, "AD")
Cancel = True

Cells(10, "B") = Cells(10, "B") + Cells(13, "B")
Cancel = True

Cells(5, "C") = Cells(5, "C") + Cells(15, "C")
Cancel = True

Cells(10, "C") = Cells(10, "C") + Cells(16, "D")
Cancel = True

Cells(5, "D") = Cells(5, "D") + Cells(13, "C")
Cancel = True

Cells(8, "C") = Cells(8, "C") + Cells(15, "D")
Cancel = True

Application.Calculation = calc
End Sub


In Sheet2 (the real name is Dashboard) I pasted what you have sent. I just changed the D1 to W1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$W$1" Then
Application.Run "Sheet1.Worksheet_BeforeDoubleClick", Sheet1.Range("A1"), False
End If
End Sub

It might be easier you separate out the double-click code and then call the routine from both events.

So in Sheet1

Please Login or Register  to view this content.

Then in Sheet2

Please Login or Register  to view this content.

Originally Posted by ByteMarks

It might be easier you separate out the double-click code and then call the routine from both events.

So in Sheet1

Please Login or Register  to view this content.

Then in Sheet2

Please Login or Register  to view this content.

It shows an error

Run-time error '424'
Object required

I'm not getting an error. Which line is it on?

It's because it's Sheet15 not Sheet1.

Here's the same thing using the tab description which should fix it.

Please Login or Register  to view this content.

Originally Posted by ByteMarks

It's because it's Sheet15 not Sheet1.

Here's the same thing using the tab description which should fix it.

Please Login or Register  to view this content.

And I must change and this?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call Sheet1DoubleClick(Target, Cancel)
End Sub

Or I leave it as it is?


And if I must change it, how am I going to do it?

Sorry. I feel silly for asking so dummy questions.

Not at all, it's a good question.
Although I called it Sheet1DoubleClick, that was just a name of the routine I created. You could really call it anything.
For example, if you wanted to call it ABC you'd change the name of the procedure

Please Login or Register  to view this content.

and then change it accordingly where you 'call' it.
e.g.

So in the Experiment sheet.

Please Login or Register  to view this content.

and then in the Dashboard sheet

Please Login or Register  to view this content.