Workbook_SheetBeforeDoubleClick dit werkt ok maar.....

[sylvester-ponte]

hallo

Workbook_SheetBeforeDoubleClick dit start mijn macro en werkt prima maar

ik wil niet dat daarna de "normale" DoubleClick ook wordt uitgevoerd
als dat gebeurt sta ik onbedoeld in de tekst of formule van de betreffende cel

ik wil graag alleen mijn macro en niet de rest.

groet sylvester

 

[ExcelAmateur]

sylvester-ponte,

Ik kan niet vanaf hier kijken hoe de macro eruit ziet.
Moet hij alleen op een kolom werken of op alle cellen?

Dus is het veel handiger om een voorbeeldje hier te plaatsen.

 

[sylvester-ponte]

hallo ExcelAmateur

hier een voorbeeld
het gaat niet om de inhoud maar alleen om te laten zien wat er gebeurt na het dubbelklikken. en wat na "ok" niet moet gebeuren.
ik wil niet in de formule van de cel wezen.
groet sylvester

 

[ExcelAmateur]

Zou je hier wat mee kunnen?
Als de cel gekleurd is gaat hij ervan af en einde sub.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Dim Pers As Range
  If Target.Interior.Color = RGB(204, 255, 204) Then: Range("C1").Select
    Exit Sub
  If Target.Column = 2 And Target.Row < 14 Then
    Set Pers = Range("Blad2!A1")
    MsgBox "op Blad2 staat in de zelfde cel: " & Pers(Target.Row, Target.Column) & _
    " als je ok indrukt gebeurt er wat er normaal bij DoubleClick gebeurt"
  End If
End Sub

 

[robdgr]

Sylvester,

Met de volgende code is één klik voldoende:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Pers As Range
  If ActiveCell.Column = 2 And ActiveCell.Row < 14 Then
  Set Pers = [Blad2!A1]
  MsgBox "Dubbelklikken is in dit bereik niet mogelijk" & Chr(10) & Chr(10) & "Op Blad2 staat in de zelfde cel: " & Pers(Target.Row, Target.Column) & " als je ok indrukt gebeurt er wat er normaal bij DoubleClick gebeurt"
  End If
End Sub

 

[sylvester-ponte]

hallo


ExcelAmateur: het is de bedoeling dat er wel wat gebeurt als ik in de groene cellen dubblelklik.
ik wil graag dat alleen mij macro draait en verder niks.

robdgr: ik wil graag met de selectionchange een andere macro starten.

 

[robdgr]

Sylvester,

Ik heb de macro vervolg toegevoegd:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Pers As Range
  If ActiveCell.Column = 2 And ActiveCell.Row < 14 Then
  Set Pers = [Blad2!A1]
  MsgBox "Dubbelklikken is in dit bereik niet mogelijk" & Chr(10) & Chr(10) & "op Blad2 staat in de zelfde cel: " & Pers(Target.Row, Target.Column) & " als je ok indrukt gebeurt er wat er normaal bij DoubleClick gebeurt"
  
  vervolg
  
  End If
End Sub

Of begrijp ik je vraag/wens niet.

 

[ExcelAmateur]

Ik moet hier afhaken, sorry.

 

[sylvester-ponte]

hallo

ExcelAmateur: misschien ben ik niet duidelijk genoeg sorry

robdgr: mijn bedoeling is dat als ik dubbelklik mijn dubbelklik_macro start.
en dat na het uitvoeren van deze macro niets meer gebeurt.

exel doet na mijn dubbelklik_macro nog iets, namelijk de cel waar ik dubbelklikte
selecteren en als er en die cel een functie staat wordt deze geselecteerd
in de bewerkings mode . dat wil ik niet
dit gebeurt ook na een extra macro "vervolg"

groet sylvester

 

[sylvester-ponte]

heel veel dank voor alle moeite.

ik heb het gevonden:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Dim Pers As Range
  If Target.Column = 2 And Target.Row < 14 Then
  Set Pers = Range("Blad2!A1")
  MsgBox "op Blad2 staat in de zelfde cel: " & Pers(Target.Row, Target.Column) & " als je ok indrukt gebeurt er wat er normaal bij DoubleClick gebeurt"
  [U]Cancel = True[/U]
  End If
End Sub

het zit inde regel met Cancel = True

groeten sylvester