Resultaten 1 tot 8 van de 8

Onderwerp: Knop of vinkje gebruiken

  1. #1
    Tuil is offline Junior Member
    Geregistreerd
    Feb 2006
    Berichten
    25

    Standaard Knop of vinkje gebruiken

    Ik wil graag een knop maken of een vinkje, als ik deze aanvink dat ik een bepaalde tekst in een vakje krijg.


    bijv als ik op de knop druk dat ik "goed" in b10 krijg.

    kan dat?


    bvd

  2. # ADS
    Geregistreerd
    Always
    Berichten
    Many
     
  3. #2
    Mr. Magoo's Avatar
    Mr. Magoo is offline Super Moderator
    Geregistreerd
    Nov 2005
    Locatie
    Blokker Nederland
    Berichten
    4.879

    Standaard Re: Knop of vinkje gebruiken

    zie voorbeeld
    Bijgevoegde Bestanden Bijgevoegde Bestanden
    Suc6

    druk op F1 en lees ! En zie wat de moeder van de meeste oplossingen is.
    en Worksheet.nl is de dochter

    Moderator www.worksheet.nl / mr.magoo@worksheet.nl

  4. #3
    Tuil is offline Junior Member
    Geregistreerd
    Feb 2006
    Berichten
    25

    Standaard Re: Knop of vinkje gebruiken

    Dank je, het werkt

  5. #4
    Tuil is offline Junior Member
    Geregistreerd
    Feb 2006
    Berichten
    25

    Standaard Het vinkje werkt nu nog een vraagje

    Het keuze vinkje werkt maar, nu wil ik graag als ik hem aan vink tekst in een vakje komt te staan en als ik hem niet aanvink de tekst in het hokje ernaat komt te staan.


    wat moet ik er dan nog bij inzetten?

    Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
    Worksheets("Blad1").Range("B10").Value = "Tekst"
    Else
    Worksheets("Blad1").Range("B10").Value = ""
    End If
    End Sub


  6. #5
    Mr. Magoo's Avatar
    Mr. Magoo is offline Super Moderator
    Geregistreerd
    Nov 2005
    Locatie
    Blokker Nederland
    Berichten
    4.879

    Standaard Re: Het vinkje werkt nu nog een vraagje

    Citaat Oorspronkelijk geplaatst door Tuil
    Het keuze vinkje werkt maar, nu wil ik graag als ik hem aan vink tekst in een vakje komt te staan en als ik hem niet aanvink de tekst in het hokje ernaat komt te staan.


    wat moet ik er dan nog bij inzetten?

    Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
    Worksheets("Blad1").Range("B10").Value = "Tekst"
    Else
    Worksheets("Blad1").Range("B10").Value = ""
    End If
    End Sub

    Hint:

    Experimenteer eens met B10


    P/s waar je Blad1 ziet staan, dat kun je ook veranderen, is je bladnaam
    Suc6

    druk op F1 en lees ! En zie wat de moeder van de meeste oplossingen is.
    en Worksheet.nl is de dochter

    Moderator www.worksheet.nl / mr.magoo@worksheet.nl

  7. #6
    Tuil is offline Junior Member
    Geregistreerd
    Feb 2006
    Berichten
    25

    Standaard Re: Knop of vinkje gebruiken

    Ik heb het met het vinkje voorelkaar, maar als ik nu meerdere vinkjes wil gebruiken doen die het niet, zie vb

    Code:
    Private Sub CheckBox1_Click()
     If CheckBox1.Value = True Then
      Worksheets("Blad1").Range("G60").Value = ""
     Else
      Worksheets("Blad1").Range("G60").Value = "X"
     End If
      If CheckBox1.Value = True Then
      Worksheets("Blad1").Range("H60").Value = "X"
     Else
      Worksheets("Blad1").Range("H60").Value = ""
     End If
    End Sub
    
    Private Sub CheckBox2_Click()
     If CheckBox1.Value = True Then
      Worksheets("Blad1").Range("G61").Value = ""
     Else
      Worksheets("Blad1").Range("G61").Value = "X"
     End If
      If CheckBox1.Value = True Then
      Worksheets("Blad1").Range("H61").Value = "X"
     Else
      Worksheets("Blad1").Range("H61").Value = ""
     End If
    End Sub
    
    Private Sub CheckBox3_Click()
    If CheckBox1.Value = True Then
      Worksheets("Blad1").Range("G62").Value = ""
     Else
      Worksheets("Blad1").Range("G62").Value = "X"
     End If
      If CheckBox1.Value = True Then
      Worksheets("Blad1").Range("H62").Value = "X"
     Else
      Worksheets("Blad1").Range("H62").Value = ""
     End If
    End Sub

  8. #7
    Cobbe's Avatar
    Cobbe is offline Forum Guru
    Geregistreerd
    Nov 2005
    Berichten
    6.137

    Standaard Re: Knop of vinkje gebruiken

    Probeer deze dan maar:

    Code:
    Private Sub CheckBox1_Click()
     If CheckBox1.Value = True Then
      Worksheets("Blad1").Range("G6").Value = "X"
       Worksheets("Blad1").Range("H6").Value = ""
     Else
      If CheckBox1.Value = False Then
      Worksheets("Blad1").Range("H6").Value = "X"
      Worksheets("Blad1").Range("G6").Value = ""
     End If: End If
    End Sub
    
    Private Sub CheckBox2_Click()
     If CheckBox2.Value = True Then
      Worksheets("Blad1").Range("G7").Value = "X"
      Worksheets("Blad1").Range("H7").Value = ""
     Else
      If CheckBox2.Value = False Then
      Worksheets("Blad1").Range("H7").Value = "X"
      Worksheets("Blad1").Range("G7").Value = ""
     End If: End If
    End Sub
    
    Private Sub CheckBox3_Click()
     If CheckBox3.Value = True Then
      Worksheets("Blad1").Range("G8").Value = "X"
      Worksheets("Blad1").Range("H8").Value = ""
     Else
      If CheckBox3.Value = False Then
      Worksheets("Blad1").Range("H8").Value = "X"
      Worksheets("Blad1").Range("G8").Value = ""
     End If: End If
    End Sub
    
    Private Sub CheckBox4_Click()
     If CheckBox4.Value = True Then
      Worksheets("Blad1").Range("G9").Value = "X"
      Worksheets("Blad1").Range("H9").Value = ""
     Else
      If CheckBox4.Value = False Then
      Worksheets("Blad1").Range("H9").Value = "X"
      Worksheets("Blad1").Range("G9").Value = ""
     End If: End If
    End Sub
    Suc6, Cobbe
    Mvgr. & succes, Cobbe
    ---------------------------------------------------------
    Ik hoop dat je er iets uit geleerd hebt.
    Wil je de vraag op opgelost zetten als alles werkt.

    Wil je een of ander bestand in een andere versie ontvangen?
    Laat het dan even weten, als er geen versieconflicten inzitten komt dat in orde!

  9. #8
    Tuil is offline Junior Member
    Geregistreerd
    Feb 2006
    Berichten
    25

    Standaard Re: Knop of vinkje gebruiken

    bedankt ik zag het toen ik hem aan het nalezen was,
    als ik nu zo'n hele lijst heb, kan ik hem dan ook kopieren, maar dan zodat code zelf aanpast ( de goede code CheckBox1 en rijnummer, want nu moet ik ze allemaal bij langs om te veranderen.

Gelijkwaardige Onderwerpen

  1. Vinkje in selectievakje
    Door suisse in forum Afgehandelde vragen
    Reacties: 1
    Laatste Bericht: 27-06-11, 15:24
  2. Vinkje bij betaald ? dan bedrag aftrekken
    Door Ledub in forum Afgehandelde vragen
    Reacties: 4
    Laatste Bericht: 29-04-11, 10:47
  3. RS - Vinkje uit dan weer op Nul, maar hoe??
    Door rrstorm in forum Afgehandelde vragen
    Reacties: 8
    Laatste Bericht: 06-02-10, 20:45
  4. Knoppen of vinkje
    Door statie in forum Afgehandelde vragen
    Reacties: 16
    Laatste Bericht: 12-09-09, 19:25
  5. vinkje uitzetten
    Door costertje in forum Afgehandelde vragen
    Reacties: 2
    Laatste Bericht: 11-08-09, 08:57

Forum Rechten

  • Je mag geen nieuwe onderwerpen plaatsen
  • Je mag geen reacties plaatsen
  • Je mag geen bijlagen toevoegen
  • Je mag jouw berichten niet wijzigen
  •