invoer beperken en macro starten

[cow18]

dan gebeurt er iets en staat gans je werkblad vol errors, s_hit happens.
kijken in thisworkbook en in bladmodule van "dieren_bib" en overnemen in je origineel

 

[SUVERMO]

U bent echt een expert.
daarjuist de code in het uiteindelijke bestand geplaatst, het werkt prima en zonder foutmelding.

Vanavond ga ik proberen een macro starten als er iets wordt ingevuld in een cel in kolom S

daarna zou ik graag iets maken of vinden voor
Nakomelingen, kinderen, kleinkinderen, achterkleinkinderen, etc
Verwanten, ouders, grootouders, broeders en zussen, halfbroers, nichten, halfbroers, etc
Bloedverwantschap, inteeltcoëfficiënt

er is dus nog veel te doen, mogelijk bestaat er reeds iets op dit forum wat in kan gebruiken?

 

[SUVERMO]

toch nog een probleem,

de code staat nu in blad Dieren_Bib, en werkt ook het dubbelklikken op de groene cellen in kolom AA
in de andere bladen werkt het dubbelklikken op de groene cellen in kolom AA echter niet meer.
heeft U een oplossing?

 

[cow18]

Waar stond hij daarnet ?
In Thisworkbook (=voor de ganse werkmap).
Wat is het verschil met nu ?
Hij werkt niet meer in alle werkbladen, enkel in Dieren_Bib, dus ..., eventueel met sh spelen om onderscheid te maken in welk werkblad je meer of min wil doen.

 

[SUVERMO]

Ik begrijp het niet goed,
het probleem is het dubbelklikken in kolom AA van de andere bladen

 

[cow18]

ja en wat staat er voor code voor dubbelklikken in iedere bladmodule of in ThisWorkbook ?
3 keer niets, behalve in Dieren_bib

 

[SUVERMO]

Zo werkt het goed

niets in ThisWorkbook
in Dieren_Bib

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$1:$C$3" Then
Unprot
Columns("C:J").Hidden = True
Columns("L:S").Hidden = False
Ga_naar_Dierenbibliotheek
Else
If Target.Address = "$L$1:$L$3" Then
Unprot
Columns("C:J").Hidden = False
Columns("L:S").Hidden = True
Ga_naar_Dierenbibliotheek
Else
If Not Intersect(Target, Range("AA11:AA42")) Is Nothing Then Cancel = True
If Intersect(Target, Range("AA11:AA42")) Is Nothing Then Exit Sub
Application.Run Replace(Target.Item(1).Value, " ", "_")
End If
End If
End Sub

in de andere bladen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("AA11:AA42")) Is Nothing Then Cancel = True
   If Intersect(Target, Range("AA11:AA42")) Is Nothing Then Exit Sub
   Application.Run Replace(Target.Item(1).Value, " ", "_")
End Sub

 

[cow18]

tja, als je graag veel tikt, dan is dit OK.