Checkbox

[Dokman]

Hallo,

ik ben bezig met en bestand, maar daar moeten en paar checkboxen in staan.
Nu weet ik wel hoe ik deze moet aanmaken. En als ik er op klik dat en bepaalde cel dan en kleur wordt.

K3 staat check box
X3 staat Waar / Onwaar (Deze worden later onzichtbaar gemaakt)
E3 tot I3 worden geel.

Dat lukt allemaal.

Maar ik moet dit ook doen tot
K140 staat check box
X140 staat Waar / Onwaar (Deze worden later onzichtbaar gemaakt)
E140 tot I140 worden geel.

Want elke regel van 3 tot 140 krijg zijn eigen checkbox

Moet ik dan voor elke rij en nieuwe Voorwaardelijke opmaak maken.
Of kan ik dit via en vba doen.

 

[Mde]

het bereik instellen van VO dan kan het in 1 keer, bij Vo niet de 3 vast zetten met dollarteken!

 

[snb]

In een Excelbestand horen geen checkboxen, maar cellen met letterype wingdings.
De invoer van de letter a leidt tot een vinkje.
Les 1 van automatisering: automatisering moet je werk vereenvoudigen, om goed te kunnen automatiseren moet je eerst je werk vereenvoudigen.
Een grondige analyse van werkprocessen gaat dan ook aan een opbouw van een werkblad vooraf.

 

[Dokman]

@Mde Kom er niet helemaal uit, want hij zet de $ gewoon weer terug,
heb en voorbeeld bestandje toegevoegd.

@snb snap je redenering dus hoe zou jij het doen??

 

[emields]

Probeer deze eens.(Eerst opslaan als xlms)

 

[Mde]

kan ook zo

 

[emields]

ja het kan ook zo, maar als er 140 checkboxen staan zal het wel zeer traag werken zijn.

 

[popipipo]

NAV de opmerking van SNB deze file
Dubbelklik in kolom J en/of K om vinkje te verschijnen of te verdwijnen

 

[Mde]

ja het kan ook zo, maar als er 140 checkboxen staan zal het wel zeer traag werken zijn.

was ook om te laten zien dat het wel kan

 

[AHulpje]

Met slechts twee checkboxen:

 

[Dokman]

hoi popipipo

ik ben met die van jou bezig om die toe te toevoegen in mijn eigen bestand.
maar krijg het er niet tussen heb alles zo staan als jij ook hebt.

ik heb de code en module in mijn eigen bestand geplaatst en de Voorwaardelijke opmaak gemaakt.

Maar als ik nu op de cel druk gebeurt er niets. er wordt ook geen letter P geplaatst in de cel J3.

Ik heb mijn originele bestand toegevoegd.
Daar staan nog meer VBA-scripts in. Weet niet of ze met elkaar overweg kunnen maar
deze moeten wel blijven bestaan.

 

[emields]

Is dit beter? je hebt hier de keuze.

 

[popipipo]

Je had de code in tabblad 'Blad1' geplaatst ipv tabblad 'Gegevens'
En van Wingdings2 had je Wingdings 3 gemaakt.
DE voorwaardelijke opmaak mis ik geheel.

 

[Dokman]

Dankje.

Maar ik vraag me toch en beetje af hoe het werkt. Voor de toekomst,
Bij en klik in de cel komt er en P te staan. En die verandert naar en V van.

Maar ik kan niet uit de script halen hoe je er en V van maakt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 9 And Target.Row > 2 Then
        frmOpmerking.Show
    End If
    If Not Intersect(Target, [j3:j140]) Is Nothing And Target.Count = 1 Then
        If Target = "" Then
          Target = "P"
        Else
          Target = ""
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [k3:k140]) Is Nothing And Target.Count = 1 Then Target = IIf(Target.Value = "P", "", "P")
End Sub

 

[Haije]

Kijk eens naar de code achter blad Gegevens

 

[popipipo]

Letter type Wingdings2 is de veroorzaker hier van.