double click userform

[Moses99]

I want to double click on a row, application.workbook.worksheet(1).range ("A1"). When I double click on it it shows a pop out a userform

Thank you in advance

 

[Johnny C]

you need to go to the code for the worksheet, and create a worksheet_DblClick event with something like this:

If target.col = 1 and target.row = 1 then Call LoadForm (or whatever your macro is)

 

[Moses99]

hi johnny C

i tried this for initial testing

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Row = 1 Then
MsgBox ("HI")

End If

End Sub

it doesnt work. I want my double click only work on row A only

 

[Moses99]

sorry about that, it works, i wrote it like below

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then
MsgBox ("Hi")

End If

End Sub

How could I write a code for the entire colum A1 until all below

 

[Johnny C]

I'll have a look tomorrow. My PC is running an all-night job at the moment.

 

[Norie]

If you want to use double click try this.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Row = 1 Then
        Cancel = True
        MsgBox "Hi!"
    End If
End Sub

 

[Johnny C]

Thanls Norie.
IIRC BeforeDoubleClick isnt listed as an option on wrksheet events, or it didnt used to be but you could still use it.

 

[Norie]

Pretty sure it is, that's how I got the code stub anyway.