Apply double click marco function of a cell based on a another cell value in same row

[Vincent88]

Hi, I need help to run a marco by double clicking a cell in E column to run a marco but this can only be implemented if the both Cell A and B in same row is not empty. Below is my code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Range("A:B" & Rows.Count).Value <> 0 Then
Range("E" & Rows.Count).Activate
End If

If Not Intersect(Target, Range("E" & Rows.Count)) Is Nothing Then
Cancel = True
Call Module8.SelectOLE
End If
End Sub

 

[Osvaldo Palmeiro]

I'm not quite sure I understood what you meant, but here we go.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Column <> 5 Or Application.CountA(Cells(Target.Row, 1).Resize(, 2)) < 2 Then Exit Sub
 Cancel = True
 Call Module8.SelectOLE
End Sub

 

[Vincent88]

I'm not quite sure I understood what you meant, but here we go.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Or Application.CountA(Cells(Target.Row, 1).Resize(, 2)) < 2 Then Exit Sub
Cancel = True
Call Module8.SelectOLE
End Sub

Hi Osvaldo,
Thank you for your quick response. What I meant is that both cells ( ie : A2 and B2 ) must be non blank, then the double clicking function in E2 works. This applies to all other rows afterward. Appreciate your further insight.

 

[Osvaldo Palmeiro]

Hi, Vincent.

The code I suggested should work for any cell in column E as you described above.

Remembering (apologise if you already know this) that a copy of the code should be installed in the appropriate sheet module (right click on the sheet tab and choose to "View Code").

 

[Vincent88]

Hi, Vincent.

The code I suggested should work for any cell in column E as you described above.

Remembering (apologise if you already know this) that a copy of the code should be installed in the appropriate sheet module (right click on the sheet tab and choose to "View Code").

Hi Osvaldo,
Though I don't quite understand the script but it works. Thank you for your help.