VBA Vinkje script in diverse kleuren Excel

Status
Niet open voor verdere reacties.

DolfH

Gebruiker
Lid geworden
25 nov 2021
Berichten
26
Ik zoek een script wat ik in het hele exec werkboek werkt ongeacht welke plaats.

drie cel rijen naast elkaar.
rij 1, ja, 1x klikken vinkje groen
rij 2, nee, 1x klikken vinke oranje of 2x klikken kruisje rood
rij 3, n.v.t, 1x klikken vinkje grijs

mag maar 1 optie gekozen kunnen worden per rij (om en om).

zie bijgevoegd voorbeeld
 

Bijlagen

  • voorbeeld-check.xlsx
    9,1 KB · Weergaven: 23
Laatst bewerkt:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Font.Name = "Wingdings" Then
Cancel = True
Target.Font.Name = "Wingdings"




If Target.Value = "" Then
Target.Font.Name = "Wingdings"


Target.Value = "ü"
Target.Font.ColorIndex = 50


ElseIf Target.Font.ColorIndex = 50 Then
Target.Value = "ü"
Target.Font.ColorIndex = 45


ElseIf Target.Font.ColorIndex = 45 Then
Target.Value = "ü"
Target.Font.Color = vbRed


ElseIf Target.Font.Color = vbRed Then
Target.Value = "ü"
Target.Font.ColorIndex = 48






Else
Target.Value = ""
End If
End If




End Sub
 
Ziet er goed uit, in bijlage 2 voorbeelden
 

Bijlagen

  • Validatie met Icons of dubblklik vinkje of symbool.xlsm
    37,9 KB · Weergaven: 14
Ziet er goed uit Jean-Paul, maar wil het in 3 kolommen hebben

1e kolom ja alleen groen vinkje mogelijk
2e kolom nee alleen rood kruisje of oranje vinkje mogelijk
3e kolom alleen grijs vinkje mogelijk

per rij maar 1 optie mogelijk
 
Zo iets
 

Bijlagen

  • voorbeeld-check(jp2).xlsm
    21,3 KB · Weergaven: 14
Jaa bijna, als er geen waarde staat in kolom A of alleen in B dan werkt het niet of deels.
Mag ook zijn in de trant van indien de kolom links naast vinkje groen geen tekst bevat dan kan je geen vinkjes e.d. plaatsen op die rij
In kolom A of B komst niet altijd tekst namelijk
 
Aangepast
 

Bijlagen

  • voorbeeld-check(jp3).xlsm
    23,6 KB · Weergaven: 12
Is er nog iets te verzinnen dat het overall werkt als er link een tekst staat o.i.d.. Als ik nu een kolom(en) invoeg werkt het niet meer
 
Ja dat lukt mij wel, maar niet als iemand anders de sheet gebruikt en een kolom in voegd,

in ieder geval heel erg bedankt!!
 
Weet jij misschien hoe ik de aantallen kan tellen per character en kleur
 
zonder voorbeeld bestand is een beetje moeilijk,ik gok met udf formule
 
Gaat om de zelfde sheet. Als ik ergens totalen heb denk ik dat het mij wel lukt om het aan te passen naar de juiste regels. Mag ook ben aan ergens in kolom AA enze dan kan ik er wel wat mee
 
Oke sorry, zie bijlage
 

Bijlagen

  • voorbeeld-check(jp3a).xlsm
    17,6 KB · Weergaven: 9
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan