Checkbox berekening

[Ampulex]

Dag specialisten

Ik heb een excel (2010) file waar een omschrijving staat en dan een getal. Onderaan is een cel met een SUM formule. Via checkboxen wil ik kunnen aanvinken met welke getallen er rekening moet houden en de rest negeren.

Een bijkomende vraag is of je een conditional format aan de check boxen kan koppelen? Bv geen check maakt de text kleur grijs.

Vriendelijke groeten
Thomas

 

[gast0660]

Dit is allemaal mogelijk,
maar post eens een vb bestandje

 

[Gijsbert1]

Bedoel je zoiets?
Bekijk bijlage 274427

 

[Ampulex]

Gijs dat is het helemaal.

Ik ben nogal een Excel leek buiten de basis dingen. Kan je me het uitleggen hoe ik dit doe?

Groeten
Thomas

 

[Gijsbert1]

1. ieder ingevoegde checbox heeft een link met de cel waar het op staat. (rechtsklik op willekeurige checkbox--> tab "besturingselement"--> Koppeling met cel.
2. Tekstkleur van gekoppelde cellen (A2:A11) wit gemaakt. (er staat WAAR/TRUE of ONWAAR/FALSE achter de checkbox door de koppeling)
3. Som.als formule in C12 die alles van C2:C11 optelt als A2:A11 "WAAR" is.
4. Voorwaardelijke opmaak met formule:

=$A2=ONWAAR

Toegepast op:

=$B$2:$C$11

Groet Gijs

 

[Ampulex]

Gijs

Het is gelukt, maar is er een snellere manier om die checkboxen met de gekoppelde cel door te slepen/kopieren?
Ik kopieer en plak en pas dan iedere checkbox apart aan voor de gekoppelde cel.

Hartelijke dank het is exact wat ik zocht.

Groeten
Thomas

 

[Cobbe]

Dit is een snelle manier:

Sub SelectievakjesPlaatsen()
n = Val(InputBox("Hoeveel checkboxen heb je nodig? "))  'aantal selectievakjes
r = Val(InputBox(" Op welke rij komt het eerste vakje? "))  'rijnummer van eerste cel
k = Val(InputBox("In welke kolom moeten deze komen? "))   'kolomnummer van eerste cel
Dim i%
  For i = 0 To n - 1
   ActiveSheet.CheckBoxes.Add((Cells(r + i, k).Left + 15), (Cells(r + i, k).Top - 2), 72, 72).Select
    Selection.Characters.Text = "Telt/telt niet"
    Selection.LinkedCell = Cells(r + i, k).Address
    Selection.ShapeRange.Height = 17.25
    Selection.ShapeRange.Width = 65#
  Next i
End Sub

PS: Test deze uit op een blanco blad zo zie je wat er gebeurt en kan je oefenen.

WAAR/ONWAAR kan je onzichtbaar maken door de letterkleur op wit te zetten voor de betreffende kolom.

 

[Ampulex]

Bedankt Cobbe

Maar ik heb toch wat meer info nodig hoe ik dit kan doen. Ik heb geen ervaring met zulke codes in excel.
Heb al van alles geprobeerd maar er komt niets tevoorschijn.

Groeten
Thomas

 

[Cobbe]

Druk op de button en:
Kies voor 10 dan 2 dan 3 en zie wat er gebeurt.

De code is zichtbaar als je ALT-F11 drukt.

 

[Gijsbert1]

Mooi Cobbe! :thumb:

 

[Gijsbert1]

Thomas,

Zonder VBA-code is de snelste manier door rechts te klikken op een checkbox en vervolgens in de formule balk de gekoppelde cel invoeren/aanpassen.
Bekijk bijlage 274661

Wil je het sneller doen? En heb je al handmatig checkboxes ingevoerd?
Dan is de volgende code in VBA wellicht een goed alternatief op de code van Cobbe:

Sub Koppel_cb()
i = 2
For Each cb In ActiveSheet.CheckBoxes
cb.LinkedCell = Cells(i, "C").Address
i = i + 1
Next cb
End Sub

 

[snb]

Iets anders: dubbelklik in kolom B:

 

[Ampulex]

Bedankt Gijsbert en Cobbe Ik heb met jullie hulp het kunnen realiseren.

Snb dat lijkt me ook wel Cool en mooi maar ik was al bezig met de checkboxen. Toch bedankt voor het voorstel.