Een keer klikken in een cel

[johngub]

Hallo,

Graag zou ik willen wanneer men in de cel E2:E200 klikt dat er dan een userform1 opkomt
nu is dat bij dubbel klikken bij de code hieronder.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set oRange = Range("E2:E200")
If Not Intersect(Target, oRange) Is Nothing Then
UserForm1.Show
End If
End Sub

John

 

[Cobbe]

Gebruik de RightClick als eventtrigger en bouw een instructie (escape) in je userform om de activatie van het rechtermuismenu te cancelen.

 

[johngub]

Ja dat heb ik ook geprobeerd Cobbe werk ook prima maar ik zou graag willen dat bij het aanklikken van die cel automatisch het userform te voorschijn komt.
Ik weet ook helemaal niet of dat wel kan.

 

[VenA]

Waarom geen SelectionChange?

 

[edmoor]

Zo dus:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("E2:E200")) Is Nothing Then
        UserForm1.Show
    End If
End Sub

 

[Cobbe]

En deze dan?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set oRange = Range("E2:E200")
If Not Intersect(Target, oRange) Is Nothing Then
         UserForm1.Show
End If
End Sub

 

[johngub]

Nou ze werken alle 2 prima
Bedank Cobbe en Edmoor.

 

[johngub]

Toch nog een vraagje
Hoe kan ik laten kijken of de cel leeg is?
Dus bij een lege cellen E2:E200 moet het userform te voorschijn komen en als er al tekst in staat niet.

 

[edmoor]

Het object Target is je cel, daar kan je ieder attribuut van lezen, dus ook de Value.

 

[VenA]

And target.value = ""

ergens in de code zetten

 

[johngub]

Ja Edmoor maar ik heb geen idee hoe je dat in de formule zet (te weinig kennis van nog)

 

[johngub]

Het is gelukt Bedankt allemaal

 

[edmoor]

Zoals je ziet komt die kennis wel