Checkbox value aanpassen

[basbergie]

Goedemiddag,

Ik heb een vraagje ik heb een Userform met verschillende checkboxen.
Nou heb ik het voor elkaar gekregen om de gegevens uit het userform te kopieeren naar de eerstevolgende lege rij in het blad Licenties.
Dit is met de volgende code:

Private Sub CommandButton1_Click()
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Licenties")
Lastrow = Sheets("Licenties").Cells(Rows.Count, "B").End(xlUp).Row + 1
With ws
.Range("B" & Lastrow) = TextBox1.Value
.Range("C" & Lastrow) = TextBox2.Value
.Range("D" & Lastrow) = ComboBox1.Value
.Range("E" & Lastrow) = CheckBox1.Value
.Range("F" & Lastrow) = CheckBox2.Value
.Range("G" & Lastrow) = CheckBox3.Value
.Range("H" & Lastrow) = CheckBox4.Value
.Range("I" & Lastrow) = CheckBox5.Value
.Range("J" & Lastrow) = CheckBox6.Value
.Range("K" & Lastrow) = CheckBox7.Value
End With
TextBox1.Value = ""
TextBox2.Value = ""
ComboBox1.Value = ""

End Sub

Nou kopieert hij alles goed alleen zet hij waar of onwaar neer in de cel.
Kan ik dit misschien wijzigen naar een bedrag. Dus bijvoorbeeld zet ik de checkbox aan dan laat hij €30,00 zien, en zodra ik de checkbox uitzet laat hij 0 zien.
Het liefst wil ik dit ook verwijzen naar een bepaalde cel dus dat ik een kosten tabel maak waar alle bedragen in staan. En dat de checkbox vervolgens daar de bedragen weer uithaalt.
Dus staat de checkbox aan kopieert hij cel a2 naar de betreffende cell staat de checkbox uit kopieert hij b2 naar de betreffende cel

Weten jullie misschien hoe ik dit kan doen

 

[edmoor]

Een CheckBox bevat nooit iets anders dan True of False.
Daar moet je dan dus op controleren en actie ondernemen.

 

[snb]

Private Sub CommandButton1_Click()
  sn=range("A1:A7")    '  prijsgegevens
  Sheets("Licenties").Cells(Rows.Count, 2).End(xlUp).offset(1).resize(,10)=array(TextBox1,TextBox2,ComboBox1,CheckBox1*sn(1,1),CheckBox2*sn(2,1),CheckBox3*sn(3,1),CheckBox4 *sn(4,1),CheckBox5*sn(5,1),CheckBox6*sn(6,1),CheckBox7*sn(7,1))
End Sub

Verkorting van de controlnamen maakt het nog zimpuler.

Private Sub CommandButton1_Click()
  sn=range("A1:A7")    '  prijsgegevens
  Sheets("Licenties").Cells(Rows.Count,  2).End(xlUp).offset(1).resize(,10)=array(T_01,T_02,CB_01,C_01*sn(1,1),C_02*sn(2,1),C_03*sn(3,1),C_04  *sn(4,1),C_05*sn(5,1),C_06*sn(6,1),C_07*sn(7,1))
End Sub