• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Checkbox vraagje

Status
Niet open voor verdere reacties.

xbox360

Gebruiker
Lid geworden
7 nov 2008
Berichten
496
Klein vraagje,
de lijst is ingekort anders was die te groot
ik heb in C6 een checkbox, zodra ik die aan klik dan komt er in cel E6 de datum
de week informatie zoekt hij in tabblad invoer parknummer
is het misschien mogelijk zodra je in tabblad invoer parknummer in cel D6 een week nummer invoer dat er automatische een vink komt in de checkbox?
nu check hij C6 tot en met G6 de week nummer ( tabblad invoer parknummer )
het gaat eigenlijk tot en met week 53
Alvast super bedankt:thumb:
 

Bijlagen

  • Reinigings schema.xlsm
    1,3 MB · Weergaven: 71
Plaats in de code van Blad1
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$D$6" Then
        If Target.Value <> "" Then Sheets("Planning overzicht").CheckBox1.Value = True
        If Target.Value = "" Then Sheets("Planning overzicht").CheckBox1.Value = False
    End If
End Sub
 
checkbox

:thumb: THNX
ga dit verder uitwerken in mijn gehele lijst
Super bedankt
 
Wanneer het om een andere checkbox gaat dan zal je de naam ook moeten wijzigen. Tenzij je dit dynamisch maakt...
Bijvoorbeeld:
Code:
c = Target.Row + 3
If Target.Value <> "" Then Sheets("Planning overzicht").Controls("CheckBox" & c).Value = True

Overigens kan je ipv een target.adres een range aangeven zodat je niet elke keer de code hoeft te kopiëren en plakken.
 
@spaarie,
ik denk dat ik per regel moet gaan doen, omdat de checkbox per regel anders is
ga ermee aan de gang, alvast super bedankt
 
@spaarie

de formule ziet er ongeveer per checkbox zo uit

is er geen slimmeren manier om van 4 checkeboxen een regel te maken?
het ziet er nu zo uit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$D$6" Then
If Target.Value <> "" Then Sheets("Planning overzicht").CheckBox1.Value = True
If Target.Value = "" Then Sheets("Planning overzicht").CheckBox1.Value = False
End If
If Target.Address = "$E$6" Then
If Target.Value <> "" Then Sheets("Planning overzicht").CheckBox2.Value = True
If Target.Value = "" Then Sheets("Planning overzicht").CheckBox2.Value = False
End If
If Target.Address = "$F$6" Then
If Target.Value <> "" Then Sheets("Planning overzicht").CheckBox3.Value = True
If Target.Value = "" Then Sheets("Planning overzicht").CheckBox3.Value = False
End If
If Target.Address = "$G$6" Then
If Target.Value <> "" Then Sheets("Planning overzicht").CheckBox4.Value = True
If Target.Value = "" Then Sheets("Planning overzicht").CheckBox4.Value = False
End If

Alvast super bedankt:thumb:
 
Ik denk wel dat er iets mogelijk is daarin...
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("D6:G6")) Is Nothing Then
        c = Target.Column - 3
        If Target.Value <> "" Then Sheets("Planning overzicht").OLEObjects("CheckBox" & c).Object.Value = True
        If Target.Value = "" Then Sheets("Planning overzicht").OLEObjects("CheckBox" & c).Object.Value = False
    End If
End Sub
 
Gaat nog leuk worden met 686 vinkvakken;)
Je kan beter eens kijken naar het lettertype Windings in combinatie met een dubbelklik

iets korter
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("D6:G6")) Is Nothing Or Target.Count > 1 Then Exit Sub
  Sheets("Planning overzicht").OLEObjects("CheckBox" & Target.Column - 3).Object.Value = Target <> ""
End Sub
 
Checkbox

Helaas is er een probleem met de checkbox en range
elke checkbox heeft een nummer 1 t/m 1110
dus een range kan je wel doen maar je moet toch de nummer van de checkbox toewijzen :eek:
 
Dat is de 'c' in de code...
Doordat je 'Target' een kolom verspringt is de c dynamisch en afhankelijk van welke kolom de 'Target' af gaat.
 
Checkbox

heel de lijst ziet er zo uit
in die Range D11:G11 zitten 4 checkboxen :confused:
de formule klopt wel maar dan pak hij de eerste checkbox
 

Bijlagen

  • checkbox.JPG
    checkbox.JPG
    42,5 KB · Weergaven: 59
Voorzie ons dan van een goed voorbeeldbestand, want dit ziet er heel anders uit dan je .xlsm bestand.
 
Checkbox

Klopt,
omdat de formule te groot is om te uploaden
ik zal proberen of ik een regel kan maken met 4 checkboxen
Alvast super bedankt:thumb:
 
en als je het bestand opslaat als .xlsb, kun je het dan wel uploaden?
 
Nieuwe XLSM

hierbij een regel met checkboxen
 

Bijlagen

  • Reinigings schema test 2017.xlsm
    1,8 MB · Weergaven: 57
Het is een nietszeggend voorbeeld wat ook nog eens ongelofelijk traag is. De aangereikte suggesties zijn ook niet terug te vinden. Vinkvakken worden over het algemeen afgeraden en zeker als je er zoveel gebruikt. Zie de tweede zin in #8 (en eigenlijk ook de eerste)
 
Is dit ook een optie?
 

Bijlagen

  • vb_spaarie.xlsm
    18,4 KB · Weergaven: 60
@Spaarie

Toppie
dit gaat sneller en makkelijker voor mijn collega`s
ga dit zo uitwerken met 289 ondergrondse locatie`s
:thumb::thumb::thumb: super bedankt
 
@spaarie

ALLER laatste vraagje
alles is klaar alleen nog een klein probleempje
nu wil ik tabblad Planning beveiligen voor het deleten van de data alleen geeft die een rare error van thisworkbook
is dit te omzeilen?
 

Bijlagen

  • Reinigings schema makkelijke versie.xlsm
    45 KB · Weergaven: 59
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan