userform tonen

[tone14]

Hallo

Zou er iemand weten hoe je volgende toepassing in VBA neerschrijft?

Wanneer je op een cel in een bepaalde kolom dubbelklik, dan komt een userform tevoorschijn.

Dank

 

[Hoornvan]

tone14,

Zet deze code achter het werkblad en past de naam van het userform aan.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    UserForm1.Show
End Sub

 

[tone14]

Ge zijt bedankt

 

[Hoornvan]

tone14,

Graag gedaan

 

[Hoornvan]

tone14,

Zet de vraag nog even als opgelost.
Alvast bedankt.

 

[tone14]

Mss nog een vraag:

Als ik dit nu uitvoer, doet hij dit nu voor het gehele werkblad.
Kan dit nu voor een bepaalde kolom vb; van A17 tot A80.

mvg,

 

[Hoornvan]

tone14,

Ik ben al een poosje aan het puzzelen voor je maar zonder resultaat.
Dat komt omdat ik maar een amateur ben met VBA.

 

[tone14]

Ik ben er ook al een tijdje meer bezig, maar ook zonder resultaat...

Ik zal nog even verder proberen

toch bedankt..

 

[snb]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
if intersect(target,range(A10:A80)) then UserForm1.Show
End Sub

 

[Hoornvan]

snb,

Hij geeft bij mij een foutmelding.
Bij range heb ik de " geplaatst maar het werkt niet.

 

[tone14]

Hallo,

Bij mij lukt het wel bij dubbelklik op de cellen A10:A80, maar als je
dubbellklikt op andere cellen heeft hij inderdaad een foutmelding...

mvg

 

[snb]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("A10:A80")) Is Nothing Then UserForm1.Show
End Sub

Te vinden in de hulpfunktie van de VBEditor.

 

[tone14]

Iedereen bedankt voor de hulp

mvg