Vinkjes in cellen

[Plotinus]

L.S.

Ik wil graag een blad van Excel gebruiken om handmatig in cellen 'vinkjes' te plaatsen als aan een bepaalde voorwaarde voldaan is. Dus een klik is vinkje en nogmaals klik is wegvinkje. Is dit eenvoudig voor veel cellen in te stellen?

gegroet,
mrt

 

[danny147]

Beste Plotinus

Zie bestandje.
Dit is maar een voorbeeld van hoe het eruit kan zien.

Groetjes Danny. :thumb:

 

[Efsix]

beste Plotinus,

Ben ik ook al eens mee bezig geweest.
Hier is een voorbeeld van waar ik ben uitgekomen

groeten, Romé

 

[danny147]

Beste Plotinus

L.S.

Ik wil graag een blad van Excel gebruiken om handmatig in cellen 'vinkjes' te plaatsen als aan een bepaalde voorwaarde voldaan is. Dus een klik is vinkje en nogmaals klik is wegvinkje. Is dit eenvoudig voor veel cellen in te stellen?

gegroet,
mrt

Is uw voorbeeldje dan niet goed ?
Handmatig ?

Groetjes Danny. :thumb:

 

[oeldere]

vinkjes aan- / uitzetten

1) waar wil je de uitkomsten van de vinkjes dan voor gaan gebruiken?

het handmatig selecteren van vinkjes lijkt mij toch bewerkelijk.

2) is deze keuze niet met formules (in een hulpkolom) te maken.?

als het gebruikt gaat worden om bepaalde getallen te gaan tellen die aan bepaalde voorwaarden voldoet, heeft excel wel formules voor dit soort problemen.
(somproduct / filters).

Met vriendelijke groeten,

Oeldere

 

[Warme bakkertje]

Deze werkt met dubbelklik in willekeurige cel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     With Target
         Cancel = True
        If .Value = "ü" Then
            .Value = ""
        Else
            .Value = "ü"
            .Font.Name = "Wingdings"
            .Font.Size = 12
        End If
    End With
End Sub

 

[danny147]

Beste Warme bakkertje

Kan je ook een vinkje plaatsen in cel C4 als B4 is "ja" ?
Dit voor het hele bereik C4:C13 in bereik B4:B13

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Als je hem test dan zie je het wel
Heb het juist zelf eens getest en geen probleem

 

[danny147]

Beste Warme bakkertje

Dat weet ik Rudi dat hij werkt bij dubbelklik

Maar als er in cel B4 "ja" staat dan wil ik in cel C4 een vinkje.

Er wordt nogal dikwijls eens op een cel dubbel geklikt en dan verschijnt er een vinkje waar niet nodig is.

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Sorry, misverstandje

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B4:B13]) Is Nothing Then Exit Sub
    With Target.Offset(, 1)
        .Value = IIf(Target.Value = "Ja", "ü", "")
        If .Value = "ü" Then
            .Font.Name = "Wingdings"
            .Font.Size = 14
        End If
    End With
End Sub

 

[danny147]

Beste Warme bakkertje

Er zit ergenes een foutje in, maar ik kan het niet thuis brengen wat het is

Het verwijderd de inhoud in het bereik C4:C13 als er iets in staat.

Heb het proberen aan te passen maar dan komt er "ü" te staan zonder dat hij de celeigenschappen aanpast naar WINDINGS.

Kan je eens kijken waar de fout zit.

Groetjes Danny. :thumb:

 

[danny147]

Beste Warme bakkertje

Foutje gevonden

Ik had "ja" staan ipv "Ja" zonder hoofdletter, daarmee :thumb:

Bedankt Rudi

Groetjes Danny. :thumb:

 

[Plotinus]

Vinkjes in Excel

Iedereen hartelijk dank voor de suggesties; met jullie hulp heb ik een bruikbaar iets kunnen maken.

gegroet,
mrt

 

[Haije]

hoe is het geworden

Plotinus,

mogen wij ook weten wat de oplossing voor jou is geworden?

 

[Warme bakkertje]

En zet je dan ook de vraag op opgelost (rechts onderaan de pagina)