ja of nee

[ACER10]

Hoe kan ik via het aanvinken van een keuze vakje een JA of een Nee op het einde van een lijst plaatsen.
bv vakje aangevinkt = JA en niet aangevinkt = NEE

dank bij voorbaat.

Ed

 

[edmoor]

Wat voor een keuzevakje?
In een Userform of op een werkblad?
Indien werkblad, Formulier besturingselement of ActiveX?

 

[ACER10]

Dit via een keuze vakje (vierkantje) in een form die een ja (aangevinkt) of nee (niet aangevinkt) moet zetten op een andere sheet.

 

[edmoor]

Wat je wilt is duidelijk en geen probleem.
Maar het is nog steeds niet duidelijk om wat voor een keuzevakje het gaat en dat is voor een correct antwoord wel van belang om te weten.
Plaats dan een voorbeeld documentje.

 

[ACER10]

Ik heb volgende reeds voor de JA en het werkt, maar nu wil ik een NEE als het vakje (checkbox) in userform niet is aangevinkt.

With Sheets("TIENEN")
endrow = .Range("c4").End(xlDown).Row + 1
selectrow = endrow
If UserForm4.CheckBox1.Value = True Then
.Range("C" & selectrow).Value = "JA"
End If
End With

 

[edmoor]

Probeer deze eens:

With Sheets("TIENEN")
    endrow = .Range("c4").End(xlDown).Row + 1
    selectrow = endrow
    .Range("C" & selectrow).Value = IIf(UserForm4.CheckBox1, "JA", "NEE")
End With

 

[ACER10]

Ik krijg een compileerfout (syntaxfout) bij onderstaande...

With Sheets("TIENEN")
endrow = .Range("c4").End(xlDown).Row + 1
selectrow = endrow

.Range("C" & selectrow).Value = If(UserForm4.CheckBox1, "JA", "NEE")
End If
End With

 

[edmoor]

Omdat je de IIf hebt gewijzigd in If.

 

[ACER10]

nu krijg ik de foutmelding
end IF zonder blok IF

ik dacht dan iif een typfoutje was....

 

[edmoor]

Die regel heb ik dus teveel laten staan en moet weg.
Aangepast in #6.
IIF is een functie.

 

[VenA]

Die End IF hoort er ook niet.

 

[Jack Nouws]

1 regeltje kan ook

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sheets("TIENEN").Range("C4").End(xlDown).Offset(1) = IIf(UserForm4.CheckBox1, "JA", "NEE")
[/FONT]

 

[ACER10]

Bedankt hoor, alles werkt naar behoren.

Ed

 

[HSV]

UserForm4 zal ook overbodig zijn lijkt me.

 

[snb]

Of zo:

Sheets("TIENEN").Range("C4").End(xlDown).Offset(1) = format(CheckBox1, "yes/no")