Checkbox

[Blizter]

Hoi

Wie kan mij aan een code helpen

Ik zou graag als ik een checkbox aanvinkt de code ja willen laten wegschrijven op mijn werkblad.
Zodra hij niet is aangevinkt de code nee.

Wie kan me helpen ????

 

[Niels28]

Private Sub CheckBox1_Click()
If CheckBox1 Then Range("a1").Value = "ja" Else Range("a1").Value = "nee"
End Sub

Niels

 

[Blizter]

Is er ook nog een andere mogelijkheid ??

Ik gebruik namelijk eerst deze code

lrij = .Range("D" & Rows.Count).End(xlUp).Row + 1

Dus dan klopt de vaste range niet

Groeten

 

[trucker10]

Ja het uploaden van je bestandje Want de code die jij heeft is om op de eerstvolgende lege regel te kopiëren . heeft niks met je checkboxen te maken
wsl ben je beter af met een case code

 

[Blizter]

Omdat ik naar de eerstvolgende regel verwijs kan ik niet met de cel a1 werken.
Ik bedoel eigenlijk dat hij dus mijn vinkje omzet in ja of nee alleen dan moet hij dat elke keer in de regel doen.
de ene keer in a1 dan in a2 dan in a3 enz.

 

[Blizter]

Bekijk bijlage Nieuw2.xlsm

Hier is nog de file

gr.

 

[trucker10]

Ik heb je file ingekeken en zie niet direct

Ik bedoel eigenlijk dat hij dus mijn vinkje omzet in ja of nee alleen dan moet hij dat elke keer in de regel doen.
de ene keer in a1 dan in a2 dan in a3 enz.

Geef misschien een eerste checkbox in het desbetreffende formulier , of moet het vanaf het userform komen ?Wsl zal het iets worden van

If CheckBox1.Value = true  Then [A1].value = "Ja"  Esle [A1].value = "Nee"

> code uit de losse pols

 

[Blizter]

Er zit een userform aan heb alleen de knop verwijderd zie ik net
Klik Alt+f11 en dan zie je meer

Gr

 

[trucker10]

Er zit een userform aan heb alleen de knop verwijderd zie ik net
Klik Alt+f11 en dan zie je meer

Gr

Ik kan ook met de rechtermuisknop op de tab klikken om in de VB editor te komen dat is allemaal overduidelijk voor mij , enkel jouw vraag is vaag waar komt de checkbox ?

 

[Blizter]

Op de userform bevestig ik of ik een bepaalde lijst heb ingeleverd.
Dan moet deze in dezelfde regel worden ingevuld dmv het userform
Dus als voorbeeld als ik mesnummer 123 invul moet daarachter ja of nee komen te staan onder machineinstellijst.
een volgende keer moet ik b.v. mesnummer 544 invullen en dan weer bevestigen of ik een lijst heb enz.
vandaar dat ik elke keer op een andere regel moet werken

 

[trucker10]

Probeer deze code

Private Sub Save5061()
MsgBox "machine 5061"
With Sheets("5061")
    lrij = .Range("D" & Rows.Count).End(xlUp).Row + 1
    .Cells(lrij, "D") = TextBox1.Value
    If CheckBox1.Value = True Then
    .Cells(lrij, "F") = "Ja"
    Else
    .Cells(lrij, "F") = "Nee"
    End If
End With
Unload Me
End Sub

Vanwaar die A1 , A2 en A3 ????

dat elke keer in de regel doen.
de ene keer in a1 dan in a2 dan in a3 enz.

P.S. dit lijkt op een userform van Danny147

 

[Niels28]

zo?

Private Sub Save5061()
MsgBox "machine 5061"
With Sheets("5061")
    lrij = .Range("D" & Rows.Count).End(xlUp).Row + 1
    .Cells(lrij, "D") = TextBox1.Value
    If CheckBox1 Then .Cells(lrij, "F").Value = "ja" Else .Cells(lrij, "F").Value = "nee"
    If CheckBox2 Then .Cells(lrij, "H").Value = "ja" Else .Cells(lrij, "H").Value = "nee"
    End With
Unload Me
End Sub

Niels

 

[Blizter]

Dank je wel jongens.

Nu kan ik weer een stuk verder.